VBAが優秀なセル範囲のマクロを実行します。

Question

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim KeyCells As Range 

    ' The variable KeyCells contains the cells that will 
    ' cause an alert when they are changed. 
    Set KeyCells = Range("z12:z15") 

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then 
     If Range("Z12:Z45).value = "yes" then 
      MsgBox "Cell " & Target.Address & " has changed." 
     End If 
    End If 
End Sub 

この問題を解決するには問題があります。どんな助けもありがとう。 VBAで TX

ルイージ

Answer 1

、あなたは定数（「はい」）、またはそのことについて何かを配列（Range("Z12:Z45").value）を比較することはできません。範囲のセル（または配列のエントリ）をループするか、おそらくMatchまたはCountIf関数を使用する必要があります。

さらに、変更を確認するには、Targetの範囲を調べる必要があります。Range("z12:z15")ではありません。

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim KeyCells As Range, cel As Range 

    ' The variable KeyCells contains the cells that will cause an alert when they are changed. 
    Set KeyCells = Range("z12:z15") 

    If Not Intersect(KeyCells, Target) Is Nothing Then 
     For Each cel In Intersect(KeyCells, Target) 
     If StrComp(cel.text, "yes", vbTextCompare) = 0 Then 
      MsgBox "Cell " & cel.Address & " has changed." 
     End If 
     Next 
    End If 
End Sub