/ / Прекъсване на макрос в Excel

Прекъсване на макроса в Excel

Можеш прекъсване на макрос в Excel по всяко време чрез натискане на Esc или Ctrl + Break.

Поставете командния бутон на работния лист и добавете следните кодови редове:

Dim x As Long
x = 5

Do While x > 2
    x = x + 1
Loop

1. Щракнете върху командния бутон на листа. Този макрос никога не спира, защото частта след "Do While" винаги ще е вярна (x винаги ще бъде по-висока от 2).

2. За да спрете тази безкраен цикъл, натиснете Esc или Ctrl + Break. Ще се покаже следният диалогов прозорец:

Код за прекъсване на диалоговия прозорец

3. Щракнете върху Край, за да прекратите макроса, след което върху Debug, за да разгледате макроса в редактора на Visual Basic.

4. Добавете следния кодов ред в началото на кода си, ако не искате потребителите на вашата програма да могат да прекъсват вашия макрос (не се препоръчва).

Application.EnableCancelKey = xlDisabled

5. Въпреки, че в края на макроса автоматично се нулирате xlInterrupt, добра практика (когато използвате предишния кодов ред), за да прекратите макроса си със следния ред:

Application.EnableCancelKey = xlInterrupt

Забележка: Ако Excel блокира и вече не можете да прекъсвате макроса си, натиснете Ctrl + Alt + Delete и затворете Excel.

Също така се чете: