Excel VBA質問箱 IV

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

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


5225 / 76732 ←次へ | 前へ→

【77120】Re:コンボボックスから時刻指定でアプリを起動させたいと思います
発言  ichinose  - 15/5/23(土) 8:20 -

引用なし
パスワード
   >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
>−−−−−−−−−−−−−−−−−−−−−−

非常に明快な質問投稿でした。

私は、firefoxはインストールしていないので代わりに
WinWord.EXEで試してみましたが、Excel2010 Win7で現象、再現できました。

コンボボックスのListIndexとValueがこの設定だと一致するので
理屈では 作動するはずですね


ただ、実行されるプロシジャーは、ユーザーフォームやクラスモジュールの指定は
できません。

Sub firefox()
で始まるプロシジャーをユーザーフォームのモジュールから 標準モジュールに
移動して試してみてください。
284 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 お礼[未読]

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