ワークシートの変更方法に関する問題。変更できません

Question

ワークシートに次のコードを追加しようとしています。現時点では何もしません。

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address(False, False) = "j4" Then 
    Application.EnableEvents = False 
    If Target.Value = 0 Then 
     Range("j5").Value = 1 
    Else 
     Range("j5").Value = 2 
    End If 
    Application.EnableEvents = True 
End If 
End Sub 

コードのワークシートに配置され、マクロセキュリティが「すべてのマクロを有効にする」に設定されています。

私は

エクセル2010の64ビット版を使用していますあなたが提供することができます任意の助けてくれてありがとう。 James

Answer 1

問題は初めてのIfです。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range("J4")) Is Nothing Then 
     Application.EnableEvents = False 
     If (Target = 0) Then 
      Range("J5") = 1 
     Else 
      Range("J5") = 2 
     End If 
     Application.EnableEvents = True 
    End If 
End Sub