Екцел ВБА догађаји

Отворени догађај радне свеске | Радни лист Цханге Евент

Догађаји акције које обављају корисници који покрећу Екцел ВБА да изврши код.

Отворени догађај радне свеске

Код додати на Опенбоок Ворк Опен ће Екцел ВБА извршити када отворите радну свеску.

1. Отворите Висуал Басиц Едитор.

2. Двапут кликните на ову радну свеску у Пројецт Екплорер-у.

3. Изаберите Воркбоок са леве падајуће листе. Изаберите Опен са десне падајуће листе.

4. Додајте следећу линију кода на Воркбоок Опен Евент:

MsgBox "Good Morning"

5. Сачувај, затворите и поново отворите Екцел датотеку.

Резултат:

Радни лист Цханге Евент

Код који је додат на радни лист Цханге Евент ће извршити Екцел ВБА када промените ћелију на радном листу.

1. Отворите Висуал Басиц Едитор.

2. Двапут кликните на листу (на пример Схеет1) у Пројецт Екплорер-у.

3. Изаберите Радни лист са леве падајуће листе. Изаберите Промени са десне падајуће листе.

Радни лист Промените догађај у Екцелу ВБА

Додајте следеће линије кода у догађаје Промени радни лист:

4. Догађај промени радни лист слуша све промјене на листу1. Једино желимо да Екцел ВБА уради нешто ако нешто промени у ћелији Б2. Да бисте то постигли, додајте следеће линије кода:

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

End If

5. Ми само желимо Екцел ВБА да прикаже МсгБок ако корисник унесе вредност већу од 80. Да би се постигло ово, додајте сљедећу линију кода између Иф и Енд Иф.

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

6. На Схеет1 унесите број већи од 80 у ћелију Б2.

Резултат: