Добрый день
Я столкнулся с кодом VBA, который очень хорошо работает для запуска макроса в Excel при нажатии на определенную ячейку. См. ниже:
Вариант Явный
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Если Выборка.Количество = 1 Тогда
Если Не Пересекать(Цель, Диапазон("D4")) Ничего, Тогда
Вызов MyMacro
End If
End If
End Sub
Я пытаюсь добавить еще 3 таких сценария в тот же код, но у меня нет опыта кодирования, поэтому устранение неполадок ни к чему не привело. Пожалуйста, посмотрите ниже пример того, что я пытаюсь сделать, и исправьте код, если это возможно:
Вариант Явный
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Если Выборка.Количество = 1 Тогда
Если Не Пересекать(Цель, Диапазон("D4")) Ничего, Тогда
Вызов MyMacro1
End If
End If
Если Выборка.Количество = 1 Тогда
Если Не Пересекать(Цель, Диапазон("E10")) Ничего, Тогда
Вызов MyMacro2
End If
End If
Если Выборка.Количество = 1 Тогда
Если Не Пересечение(Цель, Диапазон("G23")) Ничего, Тогда
Вызов MyMacro3
End If
End If
Если Выборка.Количество = 1 Тогда
Если Не Пересечение(Цель, Диапазон("J33")) Ничего, Тогда
Вызов MyMacro4
End If
End If
End Sub
Я ожидал, что различные макросы, которые я создал (которые хорошо работают), будут автоматически запускаться при нажатии на ячейки, отмеченные в коде.
Мы будем благодарны за любую помощь!
Я столкнулся с кодом VBA, который очень хорошо работает для запуска макроса в Excel при нажатии на определенную ячейку. См. ниже:
Вариант Явный
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Если Выборка.Количество = 1 Тогда
Если Не Пересекать(Цель, Диапазон("D4")) Ничего, Тогда
Вызов MyMacro
End If
End If
End Sub
Я пытаюсь добавить еще 3 таких сценария в тот же код, но у меня нет опыта кодирования, поэтому устранение неполадок ни к чему не привело. Пожалуйста, посмотрите ниже пример того, что я пытаюсь сделать, и исправьте код, если это возможно:
Вариант Явный
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Если Выборка.Количество = 1 Тогда
Если Не Пересекать(Цель, Диапазон("D4")) Ничего, Тогда
Вызов MyMacro1
End If
End If
Если Выборка.Количество = 1 Тогда
Если Не Пересекать(Цель, Диапазон("E10")) Ничего, Тогда
Вызов MyMacro2
End If
End If
Если Выборка.Количество = 1 Тогда
Если Не Пересечение(Цель, Диапазон("G23")) Ничего, Тогда
Вызов MyMacro3
End If
End If
Если Выборка.Количество = 1 Тогда
Если Не Пересечение(Цель, Диапазон("J33")) Ничего, Тогда
Вызов MyMacro4
End If
End If
End Sub
Я ожидал, что различные макросы, которые я создал (которые хорошо работают), будут автоматически запускаться при нажатии на ячейки, отмеченные в коде.
Мы будем благодарны за любую помощь!