Запустите код VBA, если значение ячейки истинно или равно только числу

Question

У меня есть лист Excel, содержащий менеджер имен динамического списка ячеек диапазона ячеек (Picked). Когда я щелкаю любую ячейку из этого списка, код VBA показывает значение активной ячейки в другой ячейке. Я хочу запустить этот код VBA, если $d$2 = 1 только.

Код VBA, как показано ниже.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(ActiveCell, [Picked]) Is Nothing Then
        [ValPicked] = ActiveCell.Value
     End If
End Sub

Answer 1

Просто добавьте еще If и используйте Target в своем коде вместо ActiveCell. Первая - это ячейка, которая была изменена.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, [Picked]) Is Nothing Then
        If Range("D2").Value = 1 Then
            [ValPicked] = Target.Value
        End If
     End If
End Sub