- ベストアンサー
VBA Application.OnTime について
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 >全タイマーを調べることは可能でしょうか？ 出来ません。 OnTimeメソッドは、その設定された時間内で、'設定した時間'で解除します。ヘルプをごらんになってください。 解除用サンプル(myTime は、グローバル変数での設定時間） ですから、複数ある場合は、配列変数にに置けば、良いと思います。 '---------------------------------- Sub Ontime_Reset_Test() On Error Resume Next Application.OnTime EarliestTime:=myTime, _ Procedure:="Settei_Procedure", Schedule:=False If Err.Number > 0 Then MsgBox "OnTime設定はされていません。", 64 Err.Clear Else MsgBox myTime & "の設定は解除されました。", 64 myTime = Empty End If End Sub
関連するQ&A
- ＶＢＡのＯｎＴｉｍｅが実行されません。
ＶＢＡのＯｎＴｉｍｅが実行されません。 簡単なサンプルコードをコピーして実行させてみると、「マクロを実行できません。このブックでマクロが使用できないか、又は、全てのマクロが無効になっている可能性があります。」とメッセージが出ます。 しかし、マクロの設定は、全てのマクロを有効にするにチェックを入れてありますし、他のマクロは実行されます。 VBA初心者（１か月くらい）で、途方にくれています。
- ベストアンサー
- その他MS Office製品
- EXCELのApplication.OnTimeは予約のことですか？
こんにちは、VBAの初心者です。 Application.OnTimeとは目覚し時計をセットするみたいに 時間になったら実行させたいタスクの「予約をする」ことですか。 ---------------- 例えばThisWorkbookに Sub ThisWorkbook_Open() Application.OnTime TimeValue("09:00:00"), "A" Application.OnTime TimeValue("10:00:00"), "B" Application.OnTime TimeValue("11:00:00"), "C" End Sub 標準モジュールに Sub A() Beep End Sub Sub B() Beep End Sub Sub C() Beep End Sub --------------- と書けば、Workbookを開いた時に「３つのタスクが予約された」と考えて良いのでしょうか。 その場合、１１時前にEXCELを終了させたら 最後のタスクは自然消滅するのでしょうか、それともエラー扱いになるのでしょうか。
- ベストアンサー
- オフィス系ソフト
- EXSEL OnTime
OnTimeを使ったタイマーですが、サンプルを利用して実行させると次のようなエラーになってしまいます。 「マクロ’Ｉ：￥一定時間後にxls'実行マクロ'が見つかりません。」 なにか設定する事項でもあるのでしょうか？ Option Explicit Dim 待ち時間 Dim 指定時刻 Sub 一定の時間間隔でマクロを実行する() 指定時刻 = Now + TimeValue("0時00分05秒") '5秒後 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "実行マクロ名", TimeValue(待ち時間) End Sub Sub 実行マクロ名() Dim wavfile As String wavfile = "C:\Windows\Media\ringin.wav " 'wavファイルのパス Shell "mplay32.exe /play /close " & wavfile End Sub
- 締切済み
- その他（プログラミング・開発）
- OnTimeを使ったのですが「エラー」になってしまいます
ＶＢＡ でOnTimeの「サンプル」を使ってのタイマーですが、実行すると次のようなエラーが出て、実行マクロへ行けません。 「マクロ"I:\一定時間後に.xls'!実行マクロ名'が見つかりません。」 どうしてなのか教えてください。 Option Explicit Dim 待ち時間 Dim 指定時刻 Sub 一定の時間間隔でマクロを実行する() 指定時刻 = Now + TimeValue("0時00分05秒") '5秒後 待ち時間 = TimeValue("0時00分01秒") Application.OnTime TimeValue(指定時刻), "実行マクロ名", TimeValue(待ち時間) End Sub Sub 実行マクロ名() Dim wavfile As String wavfile = "C:\Windows\Media\ringin.wav " 'wavファイルのパス Shell "mplay32.exe /play /close " & wavfile End Sub
- ベストアンサー
- Visual Basic
- vba セルに入力した時間をマクロで受け取るには？
はじめまして、 マクロを使ってタイマーをセットしているのですが、 たとえば1行A列に9:00:00という時間をセットして、 それをマクロでうけとりmacro1というマクロを時間とおりに動かすようにタイマーにせっとします。 プログラムは以下のとおりなのですが、 TimeValue(Cells(1, 1))のところがうまくいきません。 解決方法を教えてください。 よろしくお願い思案す。 Set_timer = TimeValue(Cells(1, 1)) Cells(5, 3) = "設定完了" MsgBox "タイマーを設定しました。" Application.OnTime TimeValue(Set_timer), "macro1"
- ベストアンサー
- オフィス系ソフト
- OnTimeの取り消しについて
ヘルプには次のように記述がありますが、指定時刻に 実行させるプロシージャーの取り消しはサンプルの手順 で動作しますが、何秒後・・・を指定した場合のサンプル はうまく取り消せません。"実行時エラー '1004'"と なります。 この場合、どのように記述すればいいのでしょうか? 使用例 次の使用例は、現在から 15 秒後に my_Procedure を実行します。 Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure" 次の使用例は、午後 5 時に my_Procedure を実行します。 Application.OnTime TimeValue("17:00:00"), "my_Procedure" 次の使用例は、前の使用例で設定した OnTime メソッドの設定を取り消します。 Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ Procedure:="my_Procedure", Schedule:=False
- ベストアンサー
- オフィス系ソフト
- ontimeのリセット方法
簡単な問題を出すexcelを作っています。 問題を出した時点でタイマー（ontime）を出し、 １分間だけ猶予を持たせ、 回答が出ればリセットをする。 間に合わなければ「残念でした」を出そうとしています。 Sub start8() Application.OnTime Now + TimeValue("00:01:00"), "timeout8" End Sub Sub reset8() Application.OnTime Now + TimeValue("00:01:00"), "timeout8", , False End Sub Sub timeout8() "残念でした。" End Sub 見よう見まねで上記の通り書きましたが、 分からないのは、これだとresr8の引き金を引いてから、１分後のように思います。 ここはどのように書けばいいのでしょうか。 Application.OnTime Now + TimeValue("00:00:00"), "timeout8", , Falseのように書いてみましたが、 エラーになります。 制限時間内にリセットボタンを押せば何事もなかった、という風にやりたいのです。 宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- Application.OnTime の使い方
エクセルのマクロで、過ぎた時間の背景を グレーにする予定表を作ろうとしてます。 試しに一秒ごとにグレーにしようと以下のものを書いてみたのですが １セルしかグレーになりません。 理想としては１秒、２秒、３秒ごとに一つずつセルを変えたいです。 range * i で型の問題がある気がするのですが、 なにかアドバイスあればよろしくお願いします。 以下は関数のページです。 TimeValue http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/vsfcttimevalue.asp OnTime http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/vbawd10/html/womthOnTime.asp ---------------------------------------------------- Sub timer() Dim range As Integer For i = 1 To 100 range = TimeValue("0:00:01") my_time = Now + (range * i) Application.OnTime my_time, "setBg" Next End Sub Sub setBg() Cells(Second(Now), 1).Interior.ColorIndex = 16 End Sub
- ベストアンサー
- Visual Basic
- VBAのOnTimeの停止について
下記コードで右上の×ボタン（エクセルアプリではなくbookを閉じる×です）でCLOSEした場合は停止されるのですが、 ThisWorkbook.Closeで閉じた場合MsgBox "timer cxl"は呼ばれるのですがタイマーがキャンセルできず10秒後に閉じたbookが勝手に開かれMsgBox "chk"が呼ばれてしまいます。 エクセルは2003、WIN10です。 どなたか何か原因や回避策があればご教授お願い致します。 //標準モジュール Public timer As Date Public timerFlag As Boolean Sub chk() timerFlag = False MsgBox "chk" End Sub //ThisWorkbook Private Sub Workbook_Open() timer = Now + TimeValue("00:00:10") timerFlag = True Application.OnTime timer, "chk" MsgBox "open" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) If timerFlag Then Application.OnTime timer, "chk", , False MsgBox "timer cxl" End If MsgBox "close" End Sub
- 締切済み
- Visual Basic
- タイマーマクロの二重起動防止をしたい
おねがいします。 Sub SetTimer() On Error Resume Next '時間変更注意 Application.OnTime TimeValue("00:00:30"), "強制終了" '時間変更注意 Application.OnTime TimeValue("00:10:00"), "SetTimer" '時間変更注意 Application.OnTime TimeValue("00:10:30"), "フォルダ作成" '時間変更注意 Application.OnTime TimeValue("23:52:00"), "プリント" '時間変更注意 Application.OnTime TimeValue("23:54:00"), "DB保存" '時間変更注意 Application.OnTime TimeValue("23:56:00"), "DBから日別保存へコピー" '時間変更注意 Application.OnTime TimeValue("23:58:00"), "表のクリア" UserForm16.Show End Sub 以上ののマクロを作成、実行します。 23時52分から一連の作業をして、0時10分に自ら次回のタイマー予約を踏むマクロです。 エクセルは、無人で24時間自動起動させています。 一番最初(ブックを開く)に、どのタイミングでスタートするかわからないので、 workbookプロシージャに workbook.openのタイミングで Call SetTimerを入れてあります。 印刷が二回発生して気付いたのですが、 このままだと、0時2分に再起動がかかり、ブックを開きなおします。 （SetTimer） で、0時10分に自己発動タイマーが働きますよね。(SetTimer二回目) すると、一連の作業は二重実行されてしまい、困ってます。 マクロ自身にフラグを持たせるんですか？ なんとか、一度だけ実行をすることはできないんでしょうか？ 教えてください。おねがいします。
- ベストアンサー
- Visual Basic
お礼
全タイマーを調べることは、無理なのですね。 解除用サンプルを参考にして、解除するマクロを作りました。 ありがとうございました。