Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5213 / 76732 ←次へ　｜　前へ→
【77132】Re:解決策は不明ですが、何となく原因が分かってきました
発言  β  - 15/5/23(土) 13:38 -
引用なし
パスワード
   ▼きよ さん：

>質問で書かせて頂きましたコードでは、見かけ上「??：??：??」でも、内部処理は、「当日ではなくて1900年xx月xx日の、??：??：??」になっているようで、コンボボックスから指定した時刻になっても何も起きなかったのが原因のようです。

γさんも指摘されているとおり、これが原因ではないと思いますよ。
確かに、TimeSerial で作成した日付型データは年月日が　0 になります。
（Double型変数に入れるか、あるいは CDbl関数で変換すると、整数部分は 0 ）

でも、Ontime は、この形の場合、日付部分は無視して時刻を見ています。
先ほど、私のＰＣの時刻で13:30:00 に以下のTestを実行。
ちゃんと 13:31:40 に TestSub が実行されましたよ。

Sub Test()
　　Dim hh As Long
　　Dim mm As Long
　　Dim ss As Long
　　Dim starttime As Date
　　
　　hh = 13
　　mm = 31
　　ss = 40

　　starttime = TimeSerial(hh, mm, ss)
　　
　　Application.OnTime starttime, "TestSUb"
　　
End Sub

Sub TestSub()
　　MsgBox Now()
End Sub
299 hits
▼ 【77117】コンボボックスから時刻指定でアプリを起動させたいと思います きよ 15/5/23(土) 1:37 質問[未読]
【77118】Re:コンボボックスから時刻指定でアプリを... β 15/5/23(土) 2:13 発言[未読]
【77119】Re:コンボボックスから時刻指定でアプリを... γ 15/5/23(土) 8:18 発言[未読]
【77120】Re:コンボボックスから時刻指定でアプリを... ichinose 15/5/23(土) 8:20 発言[未読]
【77121】Re:コンボボックスから時刻指定でアプリを... β 15/5/23(土) 9:26 発言[未読]
【77130】Re:コンボボックスから時刻指定でアプリを... きよ 15/5/23(土) 13:21 発言[未読]
【77140】Re:コンボボックスから時刻指定でアプリを... きよ 15/5/23(土) 15:06 お礼[未読]
【77122】解決策は不明ですが、何となく原因が分かっ... きよ 15/5/23(土) 10:51 質問[未読]
【77123】Re:解決策は不明ですが、何となく原因が分... γ 15/5/23(土) 11:21 発言[未読]
【77124】Re:解決策は不明ですが、何となく原因が分... γ 15/5/23(土) 11:51 発言[未読]
【77125】Re:解決策は不明ですが、何となく原因が分... きよ 15/5/23(土) 12:11 発言[未読]
【77132】Re:解決策は不明ですが、何となく原因が分... β 15/5/23(土) 13:38 発言[未読]≪
【77126】Re:コンボボックスから時刻指定でアプリを... きよ 15/5/23(土) 12:24 発言[未読]
【77127】Re:コンボボックスから時刻指定でアプリを... γ 15/5/23(土) 12:28 発言[未読]
【77128】Re:コンボボックスから時刻指定でアプリを... γ 15/5/23(土) 12:31 発言[未読]
【77129】Re:コンボボックスから時刻指定でアプリを... きよ 15/5/23(土) 12:57 発言[未読]
【77131】Re:コンボボックスから時刻指定でアプリを... きよ 15/5/23(土) 13:26 発言[未読]
【77134】Re:コンボボックスから時刻指定でアプリを... γ 15/5/23(土) 13:52 発言[未読]
【77136】Re:コンボボックスから時刻指定でアプリを... きよ 15/5/23(土) 14:21 発言[未読]
【77137】Re:コンボボックスから時刻指定でアプリを... γ 15/5/23(土) 14:26 発言[未読]
【77138】Re:コンボボックスから時刻指定でアプリを... γ 15/5/23(土) 14:27 発言[未読]
【77139】Re:コンボボックスから時刻指定でアプリを... きよ 15/5/23(土) 15:04 お礼[未読]
【77133】Re:コンボボックスから時刻指定でアプリを... β 15/5/23(土) 13:43 発言[未読]
【77135】Re:コンボボックスから時刻指定でアプリを... きよ 15/5/23(土) 14:02 発言[未読]
【77141】Re:コンボボックスから時刻指定でアプリを... きよ 15/5/23(土) 15:07 お礼[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5213 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free