Excel VBA質問箱 IV

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

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


5138 / 13644 ツリー ←次へ | 前へ→

【52407】ontimeメソッドの日付指定 dope 07/11/13(火) 14:13 質問[未読]
【52409】Re:ontimeメソッドの日付指定 じゅんじゅん 07/11/13(火) 14:34 発言[未読]
【52434】Re:ontimeメソッドの日付指定 dope 07/11/14(水) 11:54 お礼[未読]

【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")
----

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

【52409】Re:ontimeメソッドの日付指定
発言  じゅんじゅん  - 07/11/13(火) 14:34 -

引用なし
パスワード
   If文で今日(Date)が3日間の中であれば、Ontimeメソッドに処理が移れば
いいように思うのですが。
違っていたらすいません。

【52434】Re:ontimeメソッドの日付指定
お礼  dope  - 07/11/14(水) 11:54 -

引用なし
パスワード
   返信ありがとうございます.
今回のプログラムでは測定日を頻繁に変更するため,プログラムを直接いじらずに
シートに記入した数字を変更することにより対応したいのですが,無理なのでしょうか?

5138 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free