Jak ukončit nekonečnou smyčku? Do....Loop – Visual Basic – Fórum – Programujte.com

V Excelu mám pod tlačítkem následující kód:

Private Sub CommandButton1_Click()
Do
i = i + 1
Cells(1, 1) = i
Loop
End Sub

Při spuštění je tlačítko stále sepnuté a nelze vůbec nic dělat ani stisknout jiná tlačítka s příkazem End. Potřeboval bych smyčku zastavit buď stiskem stejného nebo jiného tlačítka, či klávesou. Jediné co funguje je ESC. Něco jsem našel "Doevent" ale vůbec mi nejde to zapsat, aby to fungovalo.

2. Během Loopu bych chtěl měnit i jiné parametry, například barvu fontu.......pomocí check boxu, ale vše je zamrznuté...nevím jak to pojmout. Viděl jsem aplikaci, kde vše lze měnit za chodu: http://chandoo.org/…g-pendulums/

Tak se na kód toho pendula podívej.

Ten příkaz je DoEvents.

#2 z
Já bych se podíval, ale při editaci nejde vidět...něco tam je, ale né vše. Netváří se jako zamčený a zkoušel jsem najít cestu jak to odblokovat, určitě je to program, který se mi právě hodí pro mojí aplikaci