워크 시트 변경 방법의 문제점. 변경할 수 없습니다

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