Проблемы с методами изменения рабочего листа; не удалось изменить

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 

код, размещенных на листе и безопасности макросов установлено значение «Включить все макросы».

Я использую 64-разрядную версию Excel 2010

Спасибо за любую помощь вы можете предложить. 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