| |
▼正 さん：
こんばんは。
>無限ループ中にボタンを押すと止まるというコードを作成中なのですが
>無限ループ中だと何もきかないんです。
ということは、ご自分でコードを作ったと言う事ですね？
そのコードも見せて頂ければよかったのですが・・・。
シートにコマンドボタン（コントロールツールボックスのコマンドボタン）を
ふたつ配置した例です。
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
試してみて下さい。
|
|
ichinose
- 03/7/26(土) 18:54 -
