EXCELのグラフをリアルタイムに描く方法を教えてください。

1秒毎に更新されるA1セルを別セルに移す方法はどうでしょうか？

・A1セルに値が入る

・C1セルにA1セルの値を移す

・B1セルに時間データ

・1秒後A1セル更新

・C2セルにA1セルの値を移す

・B2セルに時間データ

これを繰り返し処理させる。

そしてグラフは先にB1：C1000までの折れ線を作っておく。

        Cells(x, 2) = Time()           'B列に時間データの入力
        Cells(x, 3) = Cells(1, 1)      'A1セルをC列に移す

1秒毎にA1セルが更新される・・という処理がどういう風になっているのかわかりませんが、マクロであれば上のコードを追加してもらえれば可能かと。

http://q.hatena.ne.jp/

>上記のApplication.Waitを実施するとDDEの更新がとまってしまいます。結果、1秒後のデータも同じ物となってしまいます。DDEのデータ更新はランダムに発生します。

>どのようにしたらDDEのデータ更新に影響を与えず、マクロを実行することができるでしょうか？

>教えてください。

XL2000: マクロを繰り返し固定時間間隔で呼び出す方法

Application.OnTimeを使ってみてはどうでしょうか。

標準モジュールを追加して、下記のコードを記述してください

Option Explicit
    
Private nCurrentRow As Integer
Private fContinue As Boolean

Public Sub StartTimerProc()
    nCurrentRow = 2 ' 記録開始位置
    fContinue = True
    Call TimerProc
End Sub

Public Sub StopTimerProc()
    fContinue = False
End Sub

Private Sub TimerProc()
    Dim nextTime As Date
    
    With Sheets(1)
        Cells(nCurrentRow, 2) = Now()
        Cells(nCurrentRow, 3) = Cells(1, 1)
    End With
    
    If fContinue Then
        nCurrentRow = nCurrentRow + 1
        nextTime = Now() + TimeValue("00:00:01")
        Application.OnTime nextTime, "TimerProc"
    End If
    
 End Sub

----

記録を開始するときは、マクロの実行で「StartTimerProc」

記録を停止するときは、マクロの実行で「StopTimerProc」