VBAで指定時刻まで一時停止するコード
- VBA初心者のため、VBAで指定時刻まで一時停止するコードがうまく動作しません。当日の午前9時から実行し、午後6時まで一時停止したいですが、すぐに午後6時以降のコードが実行されてしまいます。どのようなコードを記述すれば良いでしょうか？教えてください。
- VBA初心者のため、VBAで指定時刻まで一時停止するコードがうまく動作しません。午前9時から実行し、午後6時まで一時停止したいですが、すぐに午後6時以降のコードが実行されてしまいます。解決策を教えてください。
- VBA初心者のため、VBAで指定時刻まで一時停止するコードがうまく動作しません。午前9時から実行し、午後6時まで一時停止したいですが、すぐに午後6時以降のコードが実行されてしまいます。どうすれば良いでしょうか？
- ベストアンサー
VBAで指定時刻まで一時停止するコード
VBA初心者です。 業務で使用するため、VBAで指定時刻まで一時停止するコードを作りたいのですが、うまくいきません。 設定したい条件は (1)当日の午前9時から実行 (2)記述しているコードの実行が終了したら、当日の午後6時まで一時停止 (このとき他の業務でExcelを使用するので、Excelの動作を止めないためにDoEventsと記述してOSに制御を移しています) (3)当日午後6時になったら、コードの実行を再開する 以上です。 今のところ、午後6時まで動作が停止せず、すぐに午後6時以降に実行したいコードが実行されてしまいます。 どういうコードを記述すればいいでしょうか？教えてください。 ------------------------------------------------------------------------------------------------------------------ ～（中略）～ Dim PauseTime As Single Dim Start As Variant Dim Finish As Date Dim TotalTime As Variant Start = Now() Do PauseTime = Start + TimeValue("08:59:20") DoEvents Loop While Now() < Finish Finish = TimeValue("18:00:03") ～（中略）～ ------------------------------------------------------------------------------------------------------------------
- noyyon900
- お礼率78% (448/570)
- Visual Basic
- 回答数5
- ありがとう数4
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
Sub testz() Dim PauseTime As Date PauseTime = Now() + TimeValue("0:2:0") Do DoEvents 'If Now() > PauseTime Then Exit Do Loop While Now() < PauseTime MsgBox "AAA" End Sub とすれば期待の動きになるものと思いますが、 長時間待つ間に、 他のマクロブックを開く、他のマクロを実行する といったことが行われると 課題マクロが停止してしまうんじゃないかと思います。 （未検証です。） 私だったら、 ９時に行うマクロと１８時に行うマクロを マクロブック単位で分け タスクスケジューラーを使います。 9時に行うマクロが正しく動作したかどうかを 18時に行うマクロでチェックしたいということであれば 例えば、 9時に行うマクロが正しく終了するときにダミーファイルを書き出し 18時に行うマクロがこのダミーファイルの有無をチェックする といった仕組みを組み込んではいかがでしょうか。
その他の回答 (4)
- m-take0220
- ベストアンサー率60% (472/775)
> Loop While Now() < Finish 今のコードでは、この部分が実行されるときにはFinishに値が入っていません。 なので、すぐにループを抜けてしまうのでしょう。
お礼
そういうことなんですね。まだまだ勉強中の身ですが、精進していきたいと思います。 ご回答ありがとうございました！
- kkkkkm
- ベストアンサー率65% (1617/2456)
> Ontimeですと、Excelが固まってしまって(午後6時まで動作を中断し続けるので)、他の業務でExcelが使えません。 そうですか、なにかとバッティングするんでしょうか。単純なコードで試してみましたがtを実行したあと普通に使えて再度tが実行されました。 Sub t() Dim i As Long MsgBox "DDD" For i = 1 To 10 Cells(i, "A").Value = i Next Application.OnTime TimeValue("19:30:00"), "t" End Sub
お礼
そうですか。。 こちらでは何か別の要因があるのかもしれません。調べてみます。ご回答ありがとうございました！
- kkkkkm
- ベストアンサー率65% (1617/2456)
OnTimeメソッドでどうでしょう https://excel-ubara.com/excelvba1/EXCELVBA420.html
補足
Ontimeですと、Excelが固まってしまって(午後6時まで動作を中断し続けるので)、他の業務でExcelが使えません。 使用はしましたが、上記のような都合でDoWhile構文にした次第です。
- hahaha8635
- ベストアンサー率22% (800/3609)
タイマー割込み https://excel-ubara.com/excelvba4/EXCEL299.html 二重起動防止とか割り込み禁止とか やらないといけないから APIの知識は必須だと思う
お礼
ありがとうございます。参考にします。
関連するQ&A
- VBA 制限時間を、一時停止させたい
Excel VBAでの質問です。Excel2007使用です。 ユーザーフォームに制限時間と、制限時間を一時停止させるコマンドボタンを作りたいです。制限時間（６０分）は、下ので実行できたのですが、一時停止ができるか、わかりません。 Private Sub 制限時間_Click() Dim myTime As Date Dim myLImit As Date myLImit = Now + TimeValue("1:00:00") Do While myLImit > Now DoEvents myTime = myLImit - Now 分表示.Caption = Minute(myTime) & "分" 秒表示.Caption = Second(myTime) & "秒" Loop msgbox "終了です。" Unload Me End Sub できれば、ボタンを押すとmsgbox"一時停止"を表示させ、表示させている間は、制限時間を一時停止させたいです。制限時間、一時停止ができれば、違うコードでもかまいません。 どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 指定日時にプログラムを起動させたい。
指定日時にプログラムを起動させようと考えています。 これを実現するにあたり、Application.OnTime 指定時刻,プログラム とすれば良さそうだと考えました。 ------------------------------------------------------- Application.OnTime DateValue(MyGoDate) + TimeValue(MyGoTime), "一括実行.xls!All_Execute_Click" ------------------------------------------------------- ところが、次の手順で指定日時を作成すると「実行時エラー13型が一致しません」のエラーが出てしまいます。 指定時刻には、必ずバリアント型を指定するとのことで、 「指定時刻 = DateValue("2007/08/31") + TimeValue("07:30:00")」 次の手順で作成されたものが、バリアント型になっていないことが原因かと思います。 ▼質問・お願い 1）「実行時エラー13型が一致しません」のエラーを回避するには、どうしたらよいでしょうか。 2）指定日時にプログラムを起動させるより良いコードがあれば、教えて頂けませんでしょうか。 ▼手順 ------------------------------------------------------- (1)ワークシートのセルに指定日時を入力。 指定日時を入力すると数値になるため、WorksheetFunction.Text((Cells(*, *)), "00")で文字列に変換。 (2)次の変数に指定時刻の要素を格納。 GoYear ：Cells(4, 2)に年を入力。 GoMonth：Cells(4, 4)に月を入力。 GoDay ：Cells(4, 6)に日を入力。 GoHour ：Cells(5, 4)に時を入力。 GoMin ：Cells(5, 6)に分を入力。 GoSec : "00"を固定。 (3)DateValue("2007/08/31")、TimeValue("07:30:00")の（ ）の中身をつなげる。 MyGoDate = CStr(GoYear & "/" & GoMonth & "/" & GoDay) ▼作成したVBAコード Sub 時刻設定() '指定日時 Dim GoYear As Variant Dim GoMonth As Variant Dim GoDay As Variant Dim GoHour As Variant Dim GoMin As Variant Dim MyGoDate As Variant Dim MyGoTime As Variant Const GoSec As Variant = "00" '秒は固定値。 GoYear = Cells(4, 2) '月 mmに変換。 GoMonth = WorksheetFunction.Text((Cells(4, 4)), "00") '日 ddに変換。 GoDay = WorksheetFunction.Text(Cells(4, 6), "00") '時 hhに変換。 GoHour = WorksheetFunction.Text(Cells(5, 4), "00") '分 mmに変換。 GoMin = WorksheetFunction.Text(Cells(5, 6), "00") MyGoDate = CStr(GoYear & "/" & GoMonth & "/" & GoDay) MyGoTime = CStr(GoHour & "/" & GoMin & "/" & GoSec) Application.OnTime DateValue(MyGoDate) + TimeValue(MyGoTime), "一括実行.xls!All_Execute_Click" End Sub 以上 お手数ですが、よろしくお願い致します。
- 締切済み
- オフィス系ソフト
- VBAのタイマー
こんにちは VBAで、一日に一回起動するマクロを作ろうと思っています。 Sub timer() Dim settime As Variant Dim waittime As Variant settime = TimeValue("00:35:00") '指定時刻 waittime = TimeValue("00:01:00") settime = settime + waittime '指定時刻待ち時間 Application.OnTime TimeValue(settime), "sub" End Sub な感じなのですが、これだと一度起動すると二日目以降は動作しなくなります。 毎日起動するにはどうしたら良いものでしょうか
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAでApplication.waitを使わずに一時停止させたい
マクロの実行中に、その処理を、条件分岐によってある一定時間だけ止めて、また再開させるようなプログラムを作りたいと考えています。 Application.Waitを使えば、可能というとこまではわかったのですが、それだとマクロ停止中にEXCEL上での一切の操作（たとえばスクロール）ができなくなるので、マクロだけ停止させておいて、他の操作はできるようなやり方はありませんでしょうか？ ちなみに、当方の使用OSはXP、EXCELは2007です。VBAは、はじめて取り組む超初心者で、以下のコードもネットやこちらのサイトを探しまくって、ようやくここまでできました。 なお、本マクロで具体的にやりたいことは、楽天証券のRSSというアプリケーションから、EXCELの特定の列に、1行目から順番に、リアルタイムで株価が書き込まれていきます。その株価を監視して、ある一定以上になったら、音で知らせるということをやりたいのです。その際、株価が書き込まれていく間隔は、数秒～数分です。 長々と書きましたが、ご教授いただけると助かります。 ＜参考：現在のマクロ＞ Sub Test() Dim waitTime As Variant Dim 繰り返し As Long For 繰り返し = 1 To 10 If Cells(繰り返し, 1).Value >= 10000 Then Shell "mplay32.exe /play /close C:\WINDOWS\Media\notify.wav" ElseIf Cells(繰り返し, 1).Value = Empty Then waitTime = Now + TimeValue("0:00:05") Application.Wait waitTime End If Next 繰り返し End Sub
- ベストアンサー
- オフィス系ソフト
- Excelでタイマーの一時停止するボタンのコードは
Excelでタイマーを作ったけど、一時停止できないとやっぱ面白くないと気づき、一時停止機能を付け加えたいが、まだ勉強し始めたばかりなので自分でコードが書けません。 なので、一時停止させるコードがわかる方教えてください。 ＜タイマーのコード＞ Sub タイマー() Dim EndTime Dim PassTime EndTime = Timer + Range("D5").Value * 60 + Range("F5").Value Do PassTime = Timer Range("D5").Value = (EndTime - PassTime) \ 60 '分 Range("F5").Value = (EndTime - PassTime) Mod 60 '秒 DoEvents Loop Until EndTime - PassTime <= 0 Beep MsgBox "時間です" End Sub
- ベストアンサー
- Visual Basic
- シート選択について
いつもお世話になっております。 エクセルでシートを定時（4回）データを更新させ、 更新までの間、シートを自動で選択していくPGを作成したのですが、 エクセルを開くと固まってしまいます。 どうかご指導のほどよろしくお願いします。 Private Sub WorkBook_Open() Dim Update1 As Variant Dim Update2 As Variant Dim Update3 As Variant Dim Update4 As Variant Dim Owarijikan As Variant Call DataLoad Update1 = ("08:00:00") Owarijikan = Update1 SheetLoop (Owarijikan) Application.OnTime TimeValue(Update1), "DataLoad" Update2 = ("10:00:00") Owarijikan = Update2 SheetLoop (Owarijikan) Application.OnTime TimeValue(Update2), "DataLoad" Update3 = ("15:00:00") Owarijikan = Update3 SheetLoop (Owarijikan) Application.OnTime TimeValue(Update3), "DataLoad" Update4 = ("16:00:00") Owarijikan = Update4 SheetLoop (Owarijikan) Application.OnTime TimeValue(Update4), "DataLoad" End Sub 'DataLoadはデータ更新のプロシージャです。 -------------------------------- Sub SheetLoop() Dim Jikan As Variant Dim Owarijikan As Variant Jikan = Time Owarijikan = Sheet8.Cells(5, 3).Value Do Until Jikan > (Owarijikan) Application.OnTime TimeValue(Jikan), "Select11" Jikan = Jikan + TimeValue("0:0:05") Application.OnTime TimeValue(Jikan), "SelectC" Jikan = Jikan + TimeValue("0:0:05") Application.OnTime TimeValue(Jikan), "Select12" Jikan = Jikan + TimeValue("0:0:05") Application.OnTime TimeValue(Jikan), "Select13" Jikan = Jikan + TimeValue("0:0:05") Application.OnTime TimeValue(Jikan), "SelectC" Jikan = Jikan + TimeValue("0:0:05") Application.OnTime TimeValue(Jikan), "Select16" Jikan = Jikan + TimeValue("0:0:05") Application.OnTime TimeValue(Jikan), "SelectC" Jikan = Jikan + TimeValue("0:0:05") Loop End Sub ’実行するプロシージャSelectXXはシートを選択するプロシージャです。 以上よろしくお願いします。
- ベストアンサー
- Visual Basic
- 指定した時刻になるとセルに色がつくようにしたい
初心者です。エクセルのVBAで設定した時刻になったらセルに色がつくようにしたいです。 例えば、１７：００時にA1セル、１８：００にA2セルに色を自動でつくようにしたいと思っています。 OnTimeを使ったらよいと思っていろいろ試しましたが、設定した時刻になってもなにも起こりません。 標準モジュールに以下の内容を記述して、パソコンの時計を変更して確認しています。 できたらクリックしないでファイルオープンしてなにもせずに設定時刻に実行されるようにしたいです。 最初の３秒でB１に現在の時間を取得。 セルA１とA２をクリアしてから設定時間に色をつけるようにしたつもりです。 下記が記述内容です。 Sub 指定時間にマクロを開始() Dim stime As Date Range("A1") = "" Range("A2") = "" Range("B1").Select stime = Now + TimeValue("00:00:03") Application.OnTime TimeValue(stime), "マクロ実行内容", TimeValue("00:05:00") End Sub Sub 時刻の設定1() Application.OnTime EarliestTime:=TimeValue("17:00:00"), Procedure:="Test" End Sub Sub Procedure() Range("A1").Interior.ColorIndex = 8 End Sub Sub 時刻の設定2() Application.OnTime EarliestTime:=TimeValue("18:00:00"), Procedure:="Test" End Sub Sub Procedure2() Range("A2").Interior.ColorIndex = 9 End Sub 実行マクロは有効にしています。 ご教授よろしくお願いします。
- 締切済み
- Excel（エクセル）
- vba初心者
いつもお世話様です。 A列にあらかじめデータを入れといてinboxでデータを検索してもしあったらPDFファイルを開いて印刷でもしデータがなかったらinboxに戻るかたちにしたいんですけど、do...loopの使い方が分からないのと、デバックがでてしまってどう直せばいいかわかりません。サンプルコードがあれば助かります。よろしくお願いします。 Dim a As Integer Dim inbox As String Dim Localpath As Variant Dim c As Range, myFadd As String Dim flag As Variant Dim MyShell As Object Dim Mysh As String Dim newHour As Variant Dim newMinute As Variant Dim newSecond As Variant Dim waitTime As Variant Localpath = ThisWorkbook.Path a = 1 inbox = InputBox("番号") Do If inbox = Empty Then Exit Sub End If If inbox = Cells(a, 1) Then MsgBox ("あります") Exit Do Else a = a + 1 ←ここでデバックがでてしまいます。 ElseIf Cells(a, 1) <> inbox Then MsgBox ("ない") End If Loop Set MyShell = CreateObject("WScript.Shell") MyShell.Run ("AcroRd32.exe /n") MyShell.Run ("AcroRd32.exe /p") & Localpath & "\" & Myfile & ".pdf" newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 10 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime Application.SendKeys "{Enter}", True '次の使用例は、10 秒を過ぎるとメッセージを表示します。 If Application.Wait(Now + TimeValue("0:00:10")) Then MsgBox "時間が過ぎました。" End If End Sub
- ベストアンサー
- Visual Basic
- ExcelのVBAで、順次動作の実現
Excelのシートに、トグルボタンを３つ配置します。 ToggleButton1～3 そして、次のマクロを実行すると、２秒ごとに順番にトグルボタンが押されるのかと思いきや、6秒後に一斉にトグルボタンがへっこみます。 どうにか？2秒ごとに順番にトグルボタンが押されるように出来ないでしょうか？ Sub test() Dim MyWait As String MyWait = 2 ToggleButton1.Value = True Application.ScreenUpdating = True DoEvents 'この間にもマクロを入れたい(0.1秒以内に処理できるものです) Application.Wait (Now + TimeValue("0:00:" & MyWait)) ToggleButton2.Value = True DoEvents Application.Wait (Now + TimeValue("0:00:" & MyWait)) ToggleButton3.Value = True Application.ScreenUpdating = True DoEvents End Sub
- ベストアンサー
- オフィス系ソフト
- vba 初心者
Dim a As Integer Dim inbox As String Dim Localpath As Variant Dim c As Range, myFadd As String Dim flag As Variant Dim MyShell As Object Dim Mysh As String Dim newHour As Variant Dim newMinute As Variant Dim newSecond As Variant Dim waitTime As Variant Localpath = ThisWorkbook.Path a = 1 inbox = InputBox("番号") Do If inbox = Empty Then Exit Sub End If If inbox = Cells(a, 1) Then MsgBox ("あります") Exit Do Else a = a + 1 ElseIf Cells(a, 1) <> inbox Then MsgBox ("ない") End If Loop Set MyShell = CreateObject("WScript.Shell") MyShell.Run ("AcroRd32.exe /n") MyShell.Run ("AcroRd32.exe /p") & Localpath & "\" & Myfile & ".pdf" newHour = Hour(Now()) newMinute = Minute(Now()) newSecond = Second(Now()) + 10 waitTime = TimeSerial(newHour, newMinute, newSecond) Application.Wait waitTime Application.SendKeys "{Enter}", True '次の使用例は、10 秒を過ぎるとメッセージを表示します。 If Application.Wait(Now + TimeValue("0:00:10")) Then MsgBox "時間が過ぎました。" End If End Sub ExcelからPDFファイルを検索して印刷したいのですが、 見よう見まねで作ってみたもののエラーが出てしまってよく分かりません。 指摘できるところご指導よろしくお願いします。
- 締切済み
- Visual Basic
お礼
ご回答いただいたコードで実行してみましたが、他のExcelブックが開けない状態です。タイムスケジューラーを使う方法でやることにします。 ご回答ありがとうございました！