Excelのマクロについての質問です。マクロに関しては初心者です。
温度を計測する実験をしています。sheet1に計測している数値が更新されていってどんどん書き込まれている状況です。
Dim fStop As Boolean 'グローバル変数を宣言
Private Sub Command1_Click()
'
' Macro1 Macro
'
'
Dim iRows As Integer
Dim sRows As String
Dim i As Integer
Dim tm As Single
fStop = Fal
For i = 1 To 500
Cells(1, 1) = i
tm = Timer() + 5
Do
DoEvents
Loop While Timer() < tm
' 最終行の調査:
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
' CH3 の最新データをシート3にコピー
Worksheets("Sheet3").Range("D9").Value = Worksheets("Sheet1").Cells(iRows, 5).Value
Next i
End Sub
Private Sub Command2_Click()
fStop = True
End Sub
上記のプログラムを作り、sheet1に書き込まれていってる数値の一番新しい数値のみをsheet3の特定のセルの場所に更新されていくように作りました。（コマンドボタン１で計測を開始、コマンドボタン２で計測終了）
しかし計測する場所が増えるにつれて下記の部分のプログラムを増やさなければいけません。このプログラムを一まとめにして、指定されたsheet3のセルに書きこまれるようにしたいのですが、どのようなプログラムを加えればいいのでしょうか？Excelのバージョンは２００３です。
' 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
' CH3 の最新データをシート3にコピー
Worksheets("Sheet3").Range("D9").Value = Worksheets("Sheet1").Cells(iRows, 5).Value
