エクセルで時系列データを自動記録したい

DDE通信によりリアルタイムの株価データを取得し、
エクセルに株価を表示できる状態になっています。
（株価が変動すると自動的にセルの値が変わる）

これを、時間帯に分けて他のセルに自動記録したいのですが、
エクセルやマクロの機能にて実現可能でしょうか？

（イメージ）
9:10 550
9:20 580
9:30 570
↓
以下15:00まで

当方の環境は
エクセル2000
OSはwinXP
DDE通信は楽天証券のリアルタイムスプレッドシート
を使用しています。

これがエクセルで可能なのかどうかもわからないのですが、
もし方法をおわかりの方がいましたらよろしくお願い致します。

No.3 ベストアンサー 回答者： ki-aaa 回答日時： 2009/03/17 22:22

えーと、紹介したページの#8(KenKen_SPさんのVBA)をつかう物とします。

' 呼び出すマクロ--＞ Application.Ontime のマクロ名と一致させて下さい
Sub MACRO1()

Dim lngRow As Long
With ThisWorkbook.Sheets("Sheet1")
lngRow = .Range("B65536").End(xlUp).Offset(1).Row
.Range("B" & lngRow) = Time
.Range("C" & lngRow) = Range("A1")
End With

End Sub

実行時間と株価をB,C列に表示します。
シート名は適宜、書き換えてください。

この回答へのお礼

おかげさまで自動記録できるようになりました。

これで株価の解析がとても楽になります。

本当にありがとうございました。m(_ _)m

お礼日時：2009/03/18 10:31

No.2 回答者： ki-aaa 回答日時： 2009/03/16 23:12

同じ趣旨の質問が有りますので、紹介します。

頑張ってください。

参考URL：http://oshiete1.goo.ne.jp/qa2218976.html

この回答への補足

on timeにより定期的にマクロを実行できるのはわかったのですが、

値を保存するセルを時間によって移動させる方法がわかりません…

A1に株価が表示されていて、これを

9:10に B1に
9:20に B2に
9:30に B3に

という感じで記録できれば…と考えています。

引き続き良い方法がありましたらご教授下さい。

補足日時：2009/03/17 20:59

No.1 回答者： fujillin 回答日時： 2009/03/16 14:52

指定した時間に実行を行う命令（=OnTimeなど）がありますので、これを利用して、定期的にセルの値を控えていくマクロを作成すれば、お望みの内容に近いことが実現可能と思われます。