Excel：テーブルへのリアルタイム更新行を記録する

Question

sheet1にリアルタイム更新行（A2：E2）があり、5秒ごとにsheet2の表に記録したいと思います。最終的な目標はそれをグラフ化することです。

私はこれを試しましたが、データシートを1行で更新するだけで、さらにデータを取り込めませんでした。

Sub ValueStore() 
    Dim dTime As Date 
    Dim LastRow As Long 
    LastRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1 
    Range("A2:E2").Copy Destination:=Sheets("Data").Range("A" & LastRow) 
    Call StartTimer 
End Sub 

Sub StartTimer() 
    dTime = Now + TimeValue("00:00:05") 
    Application.OnTime dTime, "ValueStore", Schedule:=True 
End Sub 

Sub StopTimer() 
    On Error Resume Next 
    Application.OnTime dTime, "ValueStore", Schedule:=False 
End Sub 

Sub DeleteData() 
    Sheets("Data").Range("A2:E1000").Delete 
End Sub 

Answer 1

...次のループを実行する前に、ループと待機（）メソッドを使用して

sub valuestore() 
    for (loop range) 
     LastRow = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1 
     Range("A2:E2").Copy Destination:=Sheets("Data").Range("A" & LastRow) 
     application.wait now()+"00:00:05" 
     next loop_variable 
     end sub 

を試してみてください