ExcelのVBAについての質問です。

質問

ExcelのVBAについての質問です。
計測機器をつないでsheet1に数値が書き込まれていってる状況です。下記のプログラムを特定の時間内に複数回ループされるように設定したいのですが、そのようなプログラムを加えればいいのでしょうか？
Sub Macro1()
'
' Macro1 Macro
'

'
Dim iRows As Integer
Dim sRows As String

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

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

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

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

End Sub

回答No.2

Dolphin130 · ベストアンサー

いまいち質問の具体的な意味を掴みにくいので、見当違いの答えになるかも知れませんが…。

「ある条件が続く間」、もしくは「ある条件になるまで」ループを続けるのであれば、「Do Loopステートメント」を使ってやるのが一般的かと思います。「Do Loopステートメント」の「条件式（ＶＢＡヘルプには【condition】と書いてます」に質問者さんの言う「特定の時間」の条件を入れれば良いかと。もちろん条件式にはＶＢＡの論理演算子が使えますので、繰り返し回数の制限もできます。

もっと具体的な繰り返しの条件を教えていただければ、他の方からも、もっと具体的な解説をしていただけるのではないかと思います。

補足

丁寧な回答ありがとうございます。
具体的に言うと計測しているものの監視盤を作りたいので、例えばsheet1に計測していてどんどん書き込まれている数値を、sheet3に作った監視盤に最新の数値のみを取りたいので質問に乗せたプログラムを例えば１時間に１００回繰り替えせるようにするにはどうすればいいのでしょうか？

回答No.1

imogasi

文系の課題では余り考えない課題（エクセルは基本的にデータがシートに全部揃って処理をする）ですが
過去の質問・回答に
エクセルのあるセルA1に常に自動更新される値があります。これを
1分ごとに自動で特定の列に順に出力していきたい
Sub test01()
Cells(Rows.Count, "B").End(xlUp).Offset(1).Value = Range("A1")
Application.OnTime Now + TimeValue("00:00:10"), "test01"
End Sub
このタイムインターバルの部分を質問者の場合に修正し、test1（上記Sub・・・ End　Sub)の第１行目の前に、本質問のやりたいことを追加してやってみてどうでしょうか。
また上記第１行目は、各々の瞬時の状態を、上書きしないで保存するために、書きだし位置のセルをづらすために必要と思います。
再帰的な処理になっています。
時間到来が処理のきっかけになるという、普通のマウスクリックやファイルOpenなどのイベントと違った
タイプの珍しいものです。