Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
980 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【77117】コンボボックスから時刻指定でアプリを起動させたいと思います きよ 15/5/23(土) 1:37 質問[未読]
【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 お礼[未読]
【77126】Re:コンボボックスから時刻指定でアプリ...
発言  きよ  - 15/5/23(土) 12:24 -
引用なし
パスワード
   βさん、γさん、ichinoseさん、色々とアドバイス有り難うございます。

完全に【どつぼ、にはまって】いる状態です。

なお、
・　Application.OnTime EarliestTime:=TimeValue("12:15:30"), Procedure:="firefox"
・
・Sub firefox()
・　　browser = Shell("C:\Program Files (x86)\Mozilla Firefox\firefox.exe", vbNormalFocus)

としますと、きちんと12:15:30にFirefoxが起動しますので、つまずいている部分はTimeValue("12:15:30")の時刻の部分にコンボボックスの情報を書き込む部分だと思います。

良き解決策をご存じの方がいらっしゃいましたら、引き続きご教示の程宜しくお願い致します。
【77127】Re:コンボボックスから時刻指定でアプリ...
発言  γ  - 15/5/23(土) 12:28 -
引用なし
パスワード
   落ち着いて、
Timeserialに渡している変数が、
指定しようとしている値になっているか
をしっかり確認してください。
【77128】Re:コンボボックスから時刻指定でアプリ...
発言  γ  - 15/5/23(土) 12:31 -
引用なし
パスワード
   それから念のためですが、
ユーザーフォームを使うときには、
firefoxを標準モジュールに移しているのですね？
あなたから何のコメントが無いので訝っています。
【77129】Re:コンボボックスから時刻指定でアプリ...
発言  きよ  - 15/5/23(土) 12:57 -
引用なし
パスワード
   ▼γ さん：

>落ち着いて、

有り難うございます。
実は、もう悩み始めて３日目です(-_-;)


>Timeserialに渡している変数が、指定しようとしている値になっているかをしっかり確認してください。

MsgBoxで確認したり、TextBoxのテキストに代入してみたりしていますが、自分でやった限りでは、きちんとした時間になっています。


>ユーザーフォームを使うときには、firefoxを標準モジュールに移しているのですね？

今、試したところ、「標準モジュール」「フォームモジュール」「シートモジュール」「ブックモジュール」でも同じです。


>あなたから何のコメントが無いので訝っています。

コメントが遅くて、誠に申し訳ございません。
【77131】Re:コンボボックスから時刻指定でアプリ...
発言  きよ  - 15/5/23(土) 13:26 -
引用なし
パスワード
   ▼γ さん：

考えてみましたら、
Application.OnTime EarliestTime:=starttime, Procedure:="firefox"

で待機状態のまま、止まってしまっていますので"Firefox()"はどこにあっても引き継げてないのですね。
【77133】Re:コンボボックスから時刻指定でアプリ...
発言  β  - 15/5/23(土) 13:43 -
引用なし
パスワード
   ▼きよ さん：

まさか　とか思いますが・・・
きよさんのＰＣ，時刻がくるっているということはないのでしょうね？
今、13:40 ですけど、全然別の時刻になってしまっているとか？
【77134】Re:コンボボックスから時刻指定でアプリ...
発言  γ  - 15/5/23(土) 13:52 -
引用なし
パスワード
   ▼きよ さん：
>▼γ さん：
>
>考えてみましたら、
>Application.OnTime EarliestTime:=starttime, Procedure:="firefox"
>
>で待機状態のまま、止まってしまっていますので"Firefox()"はどこにあっても引き継げてないのですね。

おっしゃる意味が全然分かりません。
「止まっている」とはどういう意味ですか？
ユーザーフォームが表示し続けているので作業ができないことは、
今の話と何の関係もありません。
タイマーがセットされていて、時がくれば実行されます。

最初の質問にあったコードで、
firefoxを標準モジュールに移すだけで、正常に動作しました。

ユーザーフォームに書いたコードでは指定できないと指摘しているのですから、
人の言うことは（特に年寄りのいうことは）信じましょう。
【77135】Re:コンボボックスから時刻指定でアプリ...
発言  きよ  - 15/5/23(土) 14:02 -
引用なし
パスワード
   ▼β さん：

>まさか　とか思いますが・・・
>きよさんのＰＣ，時刻がくるっているということはないのでしょうね？
>今、13:40 ですけど、全然別の時刻になってしまっているとか？

HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient
から、毎日１回自動で合わせるよう設定しています。

その他に、毎日１回は、手動でntp.nict.jpと同期させていますので、１日２回は標準時に合っているはずです。
もちろん、現在は2015/05/23　14:02になっています。

ところで、「ichinoseさん」は、Win7　Excel2010　WinWord.EXEで試して頂いて、現象が再現できていて、「コンボボックスのListIndexとValueがこの設定だと一致するので理屈では作動するはず」とおっしゃってくれていますが、βさんのＰＣ環境では正常に稼動しているのでしょうか？

正常に動作しているのでしたら、コードを教えて頂けないでしょうか？
宜しくお願い致します。
【77136】Re:コンボボックスから時刻指定でアプリ...
発言  きよ  - 15/5/23(土) 14:21 -
引用なし
パスワード
   >最初の質問にあったコードで、
>firefoxを標準モジュールに移すだけで、正常に動作しました。

正常に動作した！のは凄い情報です。


>ユーザーフォームに書いたコードでは指定できないと指摘しているのですから、
> 人の言うことは（特に年寄りのいうことは）信じましょう。

疑われているようなので、一度ＰＣを再起動してExcelを立ち上げなおして、１から作り直してみます。


>あなたから何のコメントが無いので訝っています。

少し待って下さい。
１時間以内にもう一度作れると思います。
【77137】Re:コンボボックスから時刻指定でアプリ...
発言  γ  - 15/5/23(土) 14:26 -
引用なし
パスワード
   ▼きよ さん：
>疑われているようなので、一度ＰＣを再起動してExcelを立ち上げなおして、１から作り直してみます。

誤解しているようですが、
ユーザーフォームにおいてあるプロシージャを、
Application.OnTime myTime, procedure の
　　　　　　　　　　　　　　↑　に指定しても
動作しませんよ、と申し上げています。

それは、PCを再起動しようが、仕様でしょうから、それはできません。

標準モジュールに置くことを前提に検証してください。
【77138】Re:コンボボックスから時刻指定でアプリ...
発言  γ  - 15/5/23(土) 14:27 -
引用なし
パスワード
   　　　　　↑　に指定しても
の矢印の位置がずれていますが、了解願います。
【77139】Re:コンボボックスから時刻指定でアプリ...
お礼  きよ  - 15/5/23(土) 15:04 -
引用なし
パスワード
   ▼γ さん：

UserFormにコンボボックスを配置しオブジェクト名を指定するのに多少時間がかかっただけで、コードは、昨晩（今朝）にVBA研究所にアップした物を、サイトからそっくりそのままコピーしました。
●結果は、γさんのおっしゃる通りに無事に動きました。

早速、test.xlsmというファイル名を付けて保存しました。

ところが、先ほどまで使っていた（前の）ファイルを開いて標準モジュールにFirefoxをコピーしても動きません。
すごく、とても、不思議な現象です。
（一般的に言うと、ファイルの一部が壊れているというのでしょうけど）
他に、記述したコード/UserForm内のコンロトール、を作り直したいと思います。
その昔、Lotus1-2-3のR2.2Jでマクロで計算させると、再計算が出来ないという不具合があったのを思い出しました。
また、PaintShopPro Ver6で保存ファイル名の中に「10」という数字があると保存できないというバグに遭遇したこともありました。

これを機会にExcel2007のアップデートをしてみたいと思っています。
お手数をおかけ致しましたことをお詫びすると共に、どうも有り難うございました。

ちなみに、γさんが「あなたから何のコメントが無いので」という部分ですが、自分としては本日の12:24の書き込みで、皆さんに、コメントしたつもりでいました、すみませんでした。

色々と有り難うございました、今後とも宜しくお願い致します。

ＰＳ
今度は、「ＥＲＲＯＲ：本文に禁止語句が含まれています。」のエラーで投稿が遅くなりまして申し訳ございません。
【77141】Re:コンボボックスから時刻指定でアプリ...
お礼  きよ  - 15/5/23(土) 15:07 -
引用なし
パスワード
   ▼β さん：

ＰＣの再起動から、ファイルの作り直し、で無事に解決しました。
前のファイルでは標準モジュールにfirefoxを移動しても動かない状態です。

この度は、色々と有り難うございました。
今後とも、宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
980 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free