Здравствуй, Форум.
Имеется код:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$D$3" Then
Select Case Target.Value
Case Is = 1: Macro1
Case Is = 2: Macro2
End Select
End If
End Sub
Есть ли возможность заставить срабатывать по нажатию кнопки на листе?
Имеется код:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$D$3" Then
Select Case Target.Value
Case Is = 1: Macro1
Case Is = 2: Macro2
End Select
End If
End Sub
Есть ли возможность заставить срабатывать по нажатию кнопки на листе?