Excel VBA質問箱 IV

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

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


5231 / 76735 ←次へ | 前へ→

【77117】コンボボックスから時刻指定でアプリを起動させたいと思います
質問  きよ  - 15/5/23(土) 1:37 -

引用なし
パスワード
   初めまして、
皆様、宜しくお願い致します。


UserForm1に、コンボボックスを3つ、コマンドボタン1つを配置し、

コンボボックスのオブジェクト名を、
cbo_hh        ’ 時を入れるため
cbo_mm        ’ 分を入れるため
cbo_ss        ’ 秒を入れるため

コマンドボタンのオブジェクト名は、
cmd_start    ’ 実行ボタン

としました。


下記のコードを記述して、それぞれのコンボボックスで「cbo_hh」「cbo_mm」「cbo_ss」
から「時」「分」「秒」を指定しても、指定時刻になってもFirefoxが起動しません。

どうやったら、指定時刻にFirefoxを起動させることができるのでしょうか?
解決策をご存じの方がいらっしゃいましたら、ご教示のほど宜しくお願い致します。


※コードは、
−−−−−−−−−−−−−−−−−−−−−−
' (General) (Declarations)
  Dim hh As Long
  Dim mm As Long
  Dim ss As Long
  Dim starttime As Date
−−−−−−−−−−−−−−−−−−−−−−  
Private Sub UserForm_Initialize()
  
    For hh = 0 To 23
      UserForm1.cbo_hh.AddItem hh
    Next

    For mm = 0 To 59
      UserForm1.cbo_mm.AddItem mm
    Next
    
    For ss = 0 To 59
      UserForm1.cbo_ss.AddItem ss
    Next

End Sub
−−−−−−−−−−−−−−−−−−−−−−
Private Sub cmd_start_Click()
  
  hh = cbo_hh.ListIndex
  mm = cbo_mm.ListIndex
  ss = cbo_ss.ListIndex
  
  starttime = TimeSerial(hh, mm, ss)
  
  Application.OnTime EarliestTime:=starttime, Procedure:="firefox"
  
End Sub
−−−−−−−−−−−−−−−−−−−−−−
Sub firefox()

  Dim brows As Long
  brows = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe", vbNormalFocus)
  If brows = 0 Then MsgBox "起動に失敗しました"

End Sub
−−−−−−−−−−−−−−−−−−−−−−

0 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 お礼[未読]

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