| |
▼ichinose さん：
回答ありがとうございました
下のを今つなげて作ったのですが、初心者でかなり雑ですいません。
CommandButton1（Loop用ボタン）
CommandButton2（Loopを止めるボタン）
と、したんですがCommandButton2をクリックしても止まってくれません。
連打すると止まるようなのですが、それが普通なのですか。
'------------------------------------------
Option Explicit
Private 無限ループフラグ As Boolean
'------------------------------------------
Sub sel(Mysel As Variant)
Dim ABC As Variant
Dim ABCD As Variant
Dim AB As Variant
Dim A As Variant
For ABC = 1 To 4
ActiveCell.Offset(0, 1).Select
Next ABC
For ABCD = 1 To 5
ActiveCell.Offset(1, 0).Select
Next ABCD
For AB = 1 To 4
ActiveCell.Offset(0, -1).Select
Next AB
For A = 1 To 5
ActiveCell.Offset(-1, 0).Select
Next A
End Sub
'------------------------------------------
Private Sub CommandButton1_Click()
無限ループフラグ = True
Range("C2").Select
Do While 無限ループフラグ = True
Call sel(1)
DoEvents
Loop
End Sub
'------------------------------------------
Private Sub CommandButton2_Click()
無限ループフラグ = False
End Sub
|
|
