中部ガソ灯油の値段が決まった時、東京ガソ灯油の値段を記入する事が
やっと出来た。簡単な様で、なかなか難しい。
changeイベントでは、DDE機能でエクセルに転記した値段を拾ってくれない
Calculateイベントでは、sheet1のどこのセルで変化しても変わってしまう
ガソリン灯油前1から後3まで36個が変化するのを拾わなければならない
のでsheettを36個つくらなければ、ならないこれでは良くない
最後にOnTimeメソッドで36個のマクロをそれぞれ時間指定で記録
させる方法を探してみた。
Sub auto_open()
flgStop = False
Worksheets("sheet1").Cells(10, 10) = "タイマ作動中"
Application.OnTime TimeValue("09:01:00"), "keisan1"
Application.OnTime TimeValue("09:03:00"), "keisan2"
Application.OnTime TimeValue("09:05:00"), "keisan3"
Application.OnTime TimeValue("09:07:00"), "keisan4"
Application.OnTime TimeValue("09:09:00"), "keisan5"
flgStop = auto_close = True
End Sub
上記マクロで36個時間指定して、東京ガソリンの値段を記入
すれば、なんとか出来た。数分のづれがでるが誤差の範囲だろう
マクロVBAは、ほとんど、わからなかったが、すこし、理解できた。
便利な様で不便だし難しい
明日実際動いている数字でテストだ。本日は動いていないが、正確に刻んで
いる。 これが出来たからって相場で儲けられないが、指標の一つになる。