同じセルを変更する値/オーバーライドに基づいて条件付き書式を設定する方法

Question

条件付き書式設定でコードやルールを書くことができるのでしょうか？セルの値を変更した場合、モデルの入力条件を変更したことが明らかになります。

私はモデルを持っていますが、特定の前提は自分の入力です。私はまた、セルを入力するだけで成長率を変えたいと思った場合、オーバーライドセクションを設けています。そのセルの値を上書きした後にそのセルの色を変更することは可能ですか？

ありがとうございます！

Answer 1

何かが変更されたときを検出するためにWorksheetChangeEventを使用します。

Private Sub Worksheet_Change(ByVal Target As Range) 
' do stuff 
End Sub 

をワークシートオブジェクト（コード・エディタで、ワークシートをダブルクリック）に上記のコードを入れてください。

Application.Intersectを使用して、変更内容を絞り込みます。あなたはA10にセルA1でのみ興味があるなら例えば：

Private Sub Worksheet_Change(ByVal Target As Range) 
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then 
    ' do stuff 
End If 
End Sub 

その後味わうためにあなたの変更されたセルの書式を設定：

Private Sub Worksheet_Change(ByVal Target As Range) 

If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then 

    With Target.Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .Color = 255 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 

End Sub 

ターゲットは、影響を受けたセルの範囲です。もちろん、ユーザは一度に複数のセルに影響を及ぼすことができる。オートフィルでは、Target.Rows.Count> 1のようなロジックを追加する必要があるかもしれませんが、あなたはそのアイデアを得るでしょう。