Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29679 / 76807

←次へ　｜　前へ→


	【52407】ontimeメソッドの日付指定

dope - 07/11/13(火) 14:13 -


	引用なし

	パスワード

はじめまして．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")
----

このようにもしたのですがうまくいきませんでした．
日付と時間をシートに入力し，入力した時刻に走らせるようにするにはどうしたらいいでしょうか？
よろしくおねがいいたします．

0 hits

▼

【52407】ontimeメソッドの日付指定 dope 07/11/13(火) 14:13

≪