初心者です。エクセルのVBAで設定した時刻になったらセルに色がつくようにしたいです。
例えば、17:00時にA1セル、18:00にA2セルに色を自動でつくようにしたいと思っています。
OnTimeを使ったらよいと思っていろいろ試しましたが、設定した時刻になってもなにも起こりません。
標準モジュールに以下の内容を記述して、パソコンの時計を変更して確認しています。
できたらクリックしないでファイルオープンしてなにもせずに設定時刻に実行されるようにしたいです。
最初の3秒でB1に現在の時間を取得。
セルA1とA2をクリアしてから設定時間に色をつけるようにしたつもりです。
下記が記述内容です。
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
実行マクロは有効にしています。
ご教授よろしくお願いします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
標準モジュールにたとえば
sub Auto_Open()
’↑標準モジュールに記載する自動起動マクロ
on error resume next
worksheets("シート名").range("A1:A2").clear
application.ontime timevalue("17:0:0"), "Macro1", schedule:=false
application.ontime timevalue("17:0:0"), "Macro1"
application.ontime timevalue("18:0:0"), "Macro2", schedule:=false
application.ontime timevalue("18:0:0"), "Macro2"
end sub
sub macro1()
worksheets("シート名").range("A1").interior.color = vbred
end sub
sub macro2()
worksheets("シート名").range("A2").interior.color = vbyellow
end sub
といった具合に。
すぐに回答いただきありがとうございます。できました。こういうやり方もあるのですね。
大変勉強になりました。本当にありがとうございます。
次のステップとして18:00になると17:00に変わったセルの色を戻す(白)ようにやってみたいとと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/09 10:33
- Visual Basic(VBA) エクセル マクロ 指定日の指定時刻にプロシージャを実行 4 2022/04/17 16:44
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルに入力するたびにマクロを...
-
VBA Shapes コピーと名前
-
エクセルファイルを値でのみし...
-
VBAで行コピーして挿入
-
Excelでマクロ実行中に画面を固...
-
EXCEL 行番号や列番号が選択で...
-
VB.NETによるEXCELの行挿入
-
ブックの共有でVBAエラー
-
CSVデータをEXCELのテーブルに...
-
worksheet_changeの一時無効化
-
【Excel】マクロでページを追加...
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
Excelのマクロでボタンを押すと...
-
エクセル ボタンに設定したマク...
-
エクセルで、「いいね」のよう...
-
マクロの保存先、開いてるすべ...
-
エクセルの表を複数枚印刷した...
-
エクセルの、記録を終了したマ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでマクロ実行中に画面を固...
-
エクセルファイルを値でのみし...
-
エクセル連番自動印刷について
-
【Excel】マクロでページを追加...
-
VBA Shapes コピーと名前
-
エクセル マクロ写真帳に一括で...
-
セルに入力するたびにマクロを...
-
エクセルVBAで納期管理システム...
-
EXCEL VBA 他のアプリケーショ...
-
エクセル 図形の寸法を取得したい
-
VBAで行コピーして挿入
-
EXCEL 行番号や列番号が選択で...
-
ブックの共有でVBAエラー
-
エクセルのマクロについて教え...
-
【ExcelVBA】マクロブックを通...
-
エクセルファイルの回数期限の...
-
VB.NETによるEXCELの行挿入
-
グラフ要素のセルを参照したい...
-
再度,ExcelVBA,public変数が消える
-
VBAの記述について 値のみの貼...
おすすめ情報