ExcelのVBAについて質問です。Excelは２００３です。

質問

ExcelのVBAについて質問です。Excelは２００３です。

コマンドボタン１で下記のプログラムを実行するようにしています。
Sub Macro1()
'
' Macro1 Macro
'
'
Dim iRows As Integer
Dim sRows As String
Dim i As Integer

For i = 1 To １００

Application.Wait Now + TimeValue("00:00:05")

' 最終行の調査:
iRows = Worksheets("Sheet1").UsedRange.Rows.Count

' 最終行をシート3にコピー
Worksheets("Sheet1").Rows(iRows).Copy Destination:=Worksheets("Sheet4").Range("1:1")

' CH1 の最新データをシート3にコピー
Worksheets("Sheet3").Range("B9").Value = Worksheets("Sheet1").Cells(iRows, 3).Value

' CH2 の最新データをシート3にコピー
Worksheets("Sheet3").Range("C9").Value = Worksheets("Sheet1").Cells(iRows, 4).Value

Next i
End Sub
これをコマンドボタン２で途中でも強制的に終了するようにしたいのですがコマンドボタン２にはどのようなプログラムを入れればいいでしょうか？

回答No.1

D-Matsu · ベストアンサー

他のマクロから直接終わらせることはできないので、Macro1にも変更が必要です。
グローバル変数として終了フラグを用意しておき、Macro1の実行前にフラグをクリア、ボタン２が押されたらフラグを立てて、Macro1では実行中にフラグを見て立っていたら強制終了、という流れになります。