|
▼正 さん:
こんばんは。
>無限ループ中にボタンを押すと止まるというコードを作成中なのですが
>無限ループ中だと何もきかないんです。
ということは、ご自分でコードを作ったと言う事ですね?
そのコードも見せて頂ければよかったのですが・・・。
シートにコマンドボタン(コントロールツールボックスのコマンドボタン)を
ふたつ配置した例です。
Commandbutton1(無限ループを作る)
Commandbutton2(↑の無限ループを止める)
上記のコマンドボタンを配置したシートのモジュールに
'=====================================================
private 無限ループフラグ As Boolean
'===================================
Private Sub CommandButton1_Click()
無限ループフラグ = True
i = 0
Do While 無限ループフラグ = True
Cells(1, 1).Value = i
i = i + 1
DoEvents
Loop
End Sub
'===================================
Private Sub CommandButton2_Click()
無限ループフラグ = False
End Sub
試してみて下さい。
|
|