|
はじめまして.VBAを勉強し始めたばかりの初心者ですがよろしくお願いいたします.
VBAを用いて一定時間ごとに測定するプログラムを作製しているのですが,行き詰っているため投稿させていただきました.
測定するためのプロシージャを一定時間ごと(20分おき)に3日程度走らせるためにOntimeメソッドを使おうと考えているのですが,どうもうまくいきません.
----
Sub タイマー()
colum = 3
Jikan2 = 2
Application.OnTime Worksheets("Sheet2").Range("A1:Z100"), "Sheet1.data"
End Sub
----
Sheet2のセルに測定時刻を20分おきに入力しておき,Sheet1のdataというプロシージャを呼びだしたいのですが,日付を超える時刻を記入すると,dataがまわり続けてしまいます.
こちらのページ(h**p://www.geocities.jp/happy_ngi/YNxv9112.html)を参考にして
----
Sub タイマー()
colum = 3
Jikan2 = 2
Application.OnTime Worksheets("Sheet2").Range("A1:A3") + Worksheets("Sheet2").Range("B1:C3"), "Sheet1.data"
End Sub
----
と修正したのですが,「型が一致しません」とエラーがでてしまいます.
----
Application.OnTime DateValue(Worksheets("Sheet2").Range("A1:A3")) + TimeValue(Worksheets("Sheet2").Range("B1:C3"), "Sheet1.data")
----
このようにもしたのですがうまくいきませんでした.
日付と時間をシートに入力し,入力した時刻に走らせるようにするにはどうしたらいいでしょうか?
よろしくおねがいいたします.
|
|