Събития в Excel VBA

Отваряне на събитие в работната книга | Работно събитие за промяна на работен лист

Събития са действия, изпълнявани от потребители, които задействат Excel VBA да изпълнява код.

Отваряне на събитие в работната книга

Кодът, добавен към работното събитие Open Workbook, ще бъде изпълнен от Excel VBA, когато отворите работната книга.

1. Отворете редактора на Visual Basic.

2. Кликнете два пъти върху тази работна книга в Project Explorer.

3. Изберете Работна книга от левия падащ списък. Изберете Отвори от десния падащ списък.

4. Добавете следния ред за код към събитието Open Workbook:

MsgBox "Good Morning"

5. Запазете, затворете и отворете отново файла в Excel.

Резултат:

Работно събитие за промяна на работен лист

Кодът, добавен към събитието за промяна на работен лист, ще бъде изпълнен от Excel VBA, когато промените клетка в работен лист.

1. Отворете редактора на Visual Basic.

2. Щракнете двукратно върху лист (например Sheet1) в Project Explorer.

3. Изберете Работен лист от левия падащ списък. Изберете "Промяна" от десния падащ списък.

Работен лист Промяна събитие в Excel VBA

Добавете следните кодови линии към събитието за смяна на работен лист:

4. Събитието за смяна на работен лист следи всички промени в Лист1. Искаме само Excel VBA да направи нещо, ако нещо се промени в клетка В2. За да постигнете това, добавете следните кодови редове:

If Target.Address = "$B$2" Then

End If

5. Искаме само Excel VBA да покаже MsgBox, ако потребителят въведе стойност по-голяма от 80. За да постигнете това, добавете следната кодова линия между If и End If.

If Target.Value > 80 Then MsgBox "Goal Completed"

6. На Sheet1 въведете число по-голямо от 80 в клетка B2.

Резултат: