Доброго времени суток! Я сделал базу, но она зависает, можно сделать так чтобы макрос сробативал при нажатие листа. В интернете нашел другой способ если А1 будет равен 2 то макрос сработает. вот коды
можно это как-то переделать
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) Dim w As Object 'On Error Resume Next If Range("A1".Value = 2 Then MsgBox "Ох! Значение ячейки стало равным 2-м!" MsgBox "Я попробую сейчас открыть модуль с процедурой, которая все это делает!" End If End Sub |