エクセルでセルを点滅させるマクロの導入方法【いろんな作業に応用可能】

セルを点滅させて重要な情報を目立たせたい！

こんな問題をVBAを使って解決します。

VBAを使えば、こんな感じでセルを強調することが可能です。

この注意喚起VBAをエクセル業務に応用すれば以下の問題を解決できます。

氏名や日付の編集忘れ
差し迫った期日の確認
重要事項の周知

書類を作成するとき、

日付の編集を忘れている！なぜ期日を過ぎた日付を入力してしまう！コピペしたあと修正してない！

といったことありませんか？

毎日、同じようなルーティーン作業をしていたら「編集のし忘れ」や「確認不足」が発生してしまうのは仕方のないことですよね。

疲れ果てた人

何回も上司からやり直しをくらいました。。。

確認することが上司の仕事なんだから怒らなくてもいいじゃん。。。とも思いましがミスをなくす方がお互い気持ちよく仕事ができるようになる！

こんな思いから開発したのが、

セルを点滅させる注意喚起VBA

です。

注意喚起VBAを「編集が必要なセル」「期日の確認が必要なセル」に設定すれば

編集忘れや確認忘れを完全に防止することが可能

です。

そそっかしい私と同じように、

よく編集忘れや確認不足を指摘されることがある

という方は是非、注意喚起VBAの導入を検討してみてください。

1 セルを点滅させる注意喚起VBAとは
- 1.1 使われいるコードの解説
2 セルを点滅させる注意喚起VBAの活用事例
- 2.1 エクセルカレンダーに注意喚起VBAを導入してみた
- 2.2 様式が決まった資料に注意喚起VBAを導入してみた
3 セルを点滅させるVBAを導入する方法

セルを点滅させる注意喚起VBAとは

下記の動画では、セルを点滅させる注意喚起VBAの動作を紹介しています。

使われているVBAは

「時間を操作するVBA」と「背景色やテキストの色を操作するVBA」

です。

具体的なイメージとしては、

１秒後背景色を黒色、テキスト色を白色に変更する。その１秒後背景色を黄色、テキスト色を赤色に変更する。これを繰り返す

という内容です。

点滅を停止したり、条件によって点滅を開始したり、できるのでいろんなエクセル業務に応用させることができます。

使われいるコードの解説

動画で紹介されている注意喚起VBAのコードがこちら

Sub Timer1()
    Range("D7") = "注意喚起"
    Range("D7").Interior.Color = RGB(255, 255, 213)
    Range("D7").Font.Color = RGB(255, 0, 0)
    If Range("D7").Interior.Color = RGB(255, 255, 213) Then
    Application.OnTime Now() + TimeSerial(0, 0, 1), "Timer2"
    Else
    Application.OnTime Now() + TimeSerial(0, 0, 1), "Timer2"
    End If
End Sub

Sub Timer2()
    Range("D7") = "注意喚起"
    Range("D7").Interior.Color = RGB(0, 0, 0)
    Range("D7").Font.Color = RGB(255, 255, 255)
    Dim stime As Date
    '点滅させる間隔
    stime = Now() + TimeSerial(0, 0, 1)
    '現状どちらの色でも動作するために関数IFを使用
    If Range("D7").Interior.Color = RGB(0, 0, 0) Then
    Call Application.OnTime(stime, "Timer1")
    Else
    Call Application.OnTime(stime, "Timer2")
    End If
End Sub

この２つのマクロで注意喚起VBAは構成されています。

メインで使われているVBAがこちら