ExcelのVBAについて質問です。Excelは2003です。
ExcelのVBAについて質問です。Excelは2003です。
コマンドボタン1で下記のプログラムを実行するようにしています。
Sub Macro1()
'
' Macro1 Macro
'
'
Dim iRows As Integer
Dim sRows As String
Dim i As Integer
For i = 1 To 100
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
これをコマンドボタン2で途中でも強制的に終了するようにしたいのですがコマンドボタン2にはどのようなプログラムを入れればいいでしょうか?
お礼
アドバイスありがとうございます。参考にさせていただきます。