A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
C2はB2の10分後になっていますか?
1分毎に1回ベルがなる(実行マクロ名が実行される)ようになっているはずです。
WINDOWS XP で EXCEL2003 の環境です。
No.3
- 回答日時:
10回行ないたい場合は、指定時刻をFor~Nextでまわして10回指定すればいいのではないでしょうか?
For intI=0 To 9
指定時刻 = TimeValue(Range("L1") & "時" & Range("L4")+intI & "分" & "00秒") 'スタート時間
待ち時間 = TimeValue("00時" & "00分" & "30秒") '30秒
Range("C2") = 指定時刻'--->ここが問題になりますが・・・
Range("D2") = 待ち時間
Application.OnTime TimeValue(指定時刻), "実行マクロ名", TimeValue(待ち時間)
Next intI
で指定時間の先の00秒を最初に開始して、1分ごとに10回処理をします。
この回答への補足
ありがとうございます。
このまままわすと、指定時間になって10回連続にベルがなってしまいますが?
(C2 は単に表示をしているだけです。)
よろしくお願いいたします。
No.2
- 回答日時:
> 00秒で実行させたいと
と言うのはどういうことでしょうか?
5分00秒ちょうどに実行させたいと言うこと?
5分間隔とすると次ぎは10分00秒ちょうど?
OnTimeはそのような指定が可能です。
具体的にダメだと判断したプログラムを見せてもらえませんでしょうか?
この回答への補足
ご回答ありがとうございます。
申し訳ございませんが、メールの到着が遅くこのコラムの表示の順番がチグハグになってしまっております。
プログラムを添付しました。
いま、テスト用として、1分で動かしております。
スタート時が45秒でも「次の分の00秒」で動作しています。
OnTimeは単発動作のようですので、1回だけの動作は正常に終了しています。
これをFor-Nextで10回設定すると、 指定時間に、OnTimeとマクロが10回連続で動いてしまいます。
何かか良い方法をお願い致します。
Sub 繰り返す()
Dim 待ち時間
Dim 指定時刻
Range("B2") = Now '年/月/日/時/分
Range("L1") = Hour(Time) '時
Range("L2") = Minute(Time) '分
Range("L3") = Second(Time) '秒
Range("L4") = Range("L2") + "01" '次の分後にスタートする時間
指定時刻 = TimeValue(Range("L1") & "時" & Range("L4") & "分" & "00秒") 'スタート時間
待ち時間 = TimeValue("00時" & "00分" & "30秒") '30秒
Range("C2") = 指定時刻
Range("D2") = 待ち時間
Application.OnTime TimeValue(指定時刻), "実行マクロ名", TimeValue(待ち時間)
End Sub
Sub 実行マクロ名()
'ベルを鳴らす
Dim wavfile As String
wavfile = "C:\Windows\Media\ringin.wav "
Shell "mplay32.exe /play /close " & wavfile
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# C言語 コードを書いたのですが上手く実行出来なかったです。どこが間違ってますか? 【作成したいもの】 1 2022/05/04 11:36
- Excel(エクセル) エクセルで保存時に全部のシートの最終行をコピーして数値で貼り付けたい 3 2023/08/14 15:49
- Visual Basic(VBA) VBAで時間(00:00形式)を積算(足し算)したい 1 2022/11/15 17:04
- 会社・職場 自分には難しいことは… 2 2022/04/05 18:30
- 統計学 どの統計を使えばいいのか教えてください(EZ-Rを使用) 5 2022/10/11 13:28
- 数学 至急!次の問題を教えてください。 ある市では、消防車の出動要請が平均して1時間当たり1回ある。 多く 2 2022/11/18 20:25
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- 数学 整数問題 11 素数再びの再び ³ 超難題では? 17 2023/05/03 06:42
- 数学 正五角形の頂点を反時計回りにabcdeとする。二つの動点r、wが、rは頂点aを、w頂点cを出発して次 3 2022/07/22 11:40
- C言語・C++・C# C言語 ① 5秒間 1秒間隔で点滅を繰り返す ② 3秒間 0.5秒間隔で点滅を繰り返す ①→②→①→ 5 2022/05/03 23:37
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルで定期的(30分おき)にマクロを実行させる方法は?
Excel(エクセル)
-
「一定の時間間隔で5秒毎にMacro1を実行する」
Excel(エクセル)
-
エクセル マクロ 指定日の指定時刻にプロシージャを実行
Visual Basic(VBA)
-
-
4
vba セルに入力した時間をマクロで受け取るには?
Excel(エクセル)
-
5
Excel(エクセル) VBA プロシージャーをミリ秒で繰り返し実行する方法
Excel(エクセル)
-
6
VBA Ontime を一旦停止をさせるには
Excel(エクセル)
-
7
エクセルのマクロを一定時間ごとに実行
Excel(エクセル)
-
8
エクセルVBAにおけるON TIMEメソッドの解除方法について
Visual Basic(VBA)
-
9
OnTimeを使ったのですが「エラー」になってしまいます
Visual Basic(VBA)
-
10
エクセル時間毎ごとにマクロを実行するやり方。
Excel(エクセル)
-
11
vba 時間の引き算 例えば 15:00から16:15の間の時間は1時間15分ですが、vbaのコード
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JSPの処理の途中で、JavaScript...
-
VB.netの重複データ数カウント...
-
グローバル変数とローカル変数...
-
PowerPointで時計表示
-
JavaScriptでショートカットキ...
-
JavaScriptで、実行するたび値...
-
javascriptで最初のところに戻...
-
alert()が実行できない
-
bodyのonloadが実行できない
-
既存のwebサイトで、ローカルの...
-
初心者です。gulpでコンパイル...
-
if(1){...}とはどういうことで...
-
jQuery ui Datepicker 明日以降...
-
ActiveXObject("Msxml2.XMLHTTP...
-
VBScript タイマー
-
デザイン時のVisible=Falseは実...
-
Webページ中の javascript をVB...
-
event.srcElementの動的設定
-
六角形のマスの作り方
-
正整数の半角数字かどうか判定する
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
JSPの処理の途中で、JavaScript...
-
if(1){...}とはどういうことで...
-
デザイン時のVisible=Falseは実...
-
1つのVBAコードをすべてのコア...
-
PowerPointで時計表示
-
jQuery ui Datepicker 明日以降...
-
VBA SORT Applyでエラー
-
VBA ステータスバー DoEvents
-
〔Excel:VBA〕マクロの実行が異...
-
リクエスト結果が一瞬しか表示...
-
C#でボタン名を変更しても動く
-
ラベルの色がかわってくれない
-
CreateFile、CloseHandleの繰り...
-
JavaScriptでショートカットキ...
-
既存のwebサイトで、ローカルの...
-
初心者です。gulpでコンパイル...
-
javascriptで最初のところに戻...
-
VBAの[cellsメソッドは失敗しま...
-
Excel VBA にて JavaScript の...
-
VB.netの重複データ数カウント...
おすすめ情報