初めまして、よろしくお願いします。より正確な指定時間毎にマクロを実行させるやり方を考えています。
1分毎ごとにマクロを実行する
nextTime = Now() + TimeValue("00:01:00")
Application.OnTime nextTime, "時間毎ごとに実行"
というやり方は解るのですが、
Application.OnTime TimeValue("09:00:00"), "時間毎ごとに実行"
この指定時間("09:00:00")に実行するマクロを利用し
("09:01:00")、("09:02:00")、("09:03:00")、("09:04:00")、("09:05:00"),・・・・・の時間、秒が00になると("hh:ss:00")マクロを実行されるやり方は有るのでしょうか。
もし有るのでしたら、よろしくお願いします。
No.2ベストアンサー
- 回答日時:
例えばこんな感じでしょうか。
Dim SetTime As Date
Private Sub Test()
Range("A1").Value = Time
SetTime = TimeSerial(Hour(Time), Minute(Time) + 1, 0)
Application.OnTime SetTime, "Test"
End Sub
Sub TimerSet()
SetTime = TimeValue("09:00:00")
Application.OnTime SetTime, "Test"
End Sub
Sub TimerCancel()
Application.OnTime SetTime, "Test", , False
End Sub
No.3
- 回答日時:
>この指定時間("09:00:00")に実行するマクロを利用し
この意図がイマイチ見えませんが,こんな手もあります。
例:
今から5秒後から1秒ごとにMainをとりあえず30000回ほど実行してみる
sub setup()
dim StartTime as date
dim Interval as date
dim Counter as double
dim i as double
starttime = now + timeserial(0, 0, 5)
interval = timeserial(0, 0, 1)
counter = 30000
for i = 0 to counter
application.ontime starttime + interval * i , "main"
next i
end sub
sub main()
range("A65536").end(xlup).offset(1) = now
end sub
#つまり一体何時になったら止めていいのかとか,そういった検討事項も必要になってきますね。
No.1
- 回答日時:
確認することが出来ないので、考え方だけです。
If Time()<TimeValue("10:00:00")
nextTime = Now() + TimeValue("00:01:00")
Application.OnTime nextTime, "時間毎ごとに実行"
End If
として10時まで実行される様にする。
Private Sub Workbook_Open()
If Time()<TimeValue("09:00:00") Then
Application.OnTime TimeValue("09:00:00"), "時に実行"
Else
Application.Run XXXX
End If
End Sub
ThisWorkBookにOpen(開いたときに実行させる。)
9時より前に起動した場合は、9時になったら実行が始まる。
9時より後に起動した場合は、即実行
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル マクロ 指定日の指定時刻にプロシージャを実行 4 2022/04/17 16:44
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/11 11:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルで定期的(30分おき)にマクロを実行させる方法は?
Excel(エクセル)
-
エクセルのマクロを一定時間ごとに実行
Excel(エクセル)
-
「一定の時間間隔で5秒毎にMacro1を実行する」
Excel(エクセル)
-
-
4
エクセルマクロ自動更新
Visual Basic(VBA)
-
5
Excel(エクセル) VBA プロシージャーをミリ秒で繰り返し実行する方法
Excel(エクセル)
-
6
エクセルVBAにおけるON TIMEメソッドの解除方法について
Visual Basic(VBA)
-
7
エクセルでVBAを使用して1分毎にファイルを保存するプログラムを書きた
Excel(エクセル)
-
8
VBA Ontime を一旦停止をさせるには
Excel(エクセル)
-
9
EXCELでワークシートを開いたらマクロを自動実行したい
Excel(エクセル)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
参照先のブックを開かずに内容をコピーしたい
Excel(エクセル)
-
12
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
13
OnTime を使って、分間隔で実行したいのですが
Visual Basic(VBA)
-
14
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
15
VBAを時間指定で自動実行
Visual Basic(VBA)
-
16
エクセルVBAでパスの¥マークについて
Access(アクセス)
-
17
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
18
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
19
VBAでMP3を鳴らしたい
Visual Basic(VBA)
-
20
Excelマクロにて、タイマーで自動更新は出来るのでしょうか?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの表にヘンな枠が・・・
-
SONYの音楽ソフト「x-アプリ」...
-
コマンドプロンプト「システム...
-
CRONを隔週の日曜日に実行させたい
-
linux初心者です wineをつかっ...
-
pingは正常なのにtracerouteで...
-
LD_LIBRARY_PATHって?
-
shutdownコマンド実行の残り時...
-
ROBOCOPY cmdで正常に処理され...
-
taskkill をバッチ処理できない。
-
英語版での表示
-
linuxサーバーのキャッシュをク...
-
ログオンスクリプトについて
-
シェルスクリプト内の「exit」
-
エクセル時間毎ごとにマクロを...
-
根本的に常に管理者として実行...
-
python IDLEで訂正、削除のやり...
-
windows10のごみ箱をrd /s /q C...
-
コマンドプロンプト サーバー...
-
Openイベントを開始させないで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの表にヘンな枠が・・・
-
SONYの音楽ソフト「x-アプリ」...
-
pingは正常なのにtracerouteで...
-
LD_LIBRARY_PATHって?
-
ROBOCOPY cmdで正常に処理され...
-
バッチファイル内の各コマンド...
-
Openイベントを開始させないで...
-
linuxサーバーのキャッシュをク...
-
最初の一度しか実行されないロ...
-
shutdownコマンド実行の残り時...
-
windows10のごみ箱をrd /s /q C...
-
CRONを隔週の日曜日に実行させたい
-
SPI非言語の問題 解説お願いします
-
python IDLEで訂正、削除のやり...
-
常に全画面表示するには・・・
-
エクセルからアクセスのプロシ...
-
信頼済みサイト登録をbatファイ...
-
デフラグは途中で止めても効果...
-
emacsでCtrl+zを押してサスペン...
-
taskkill をバッチ処理できない。
おすすめ情報