Excel-VBAタイマー機能で数秒後にユーザーフォームを表示させる方法

エクセル検索

HOME	UserForm	印刷	画面	ファイル	図形
日付・時刻	データ	セル	色	関数	VBA関数

エクセルを使って成績などを入力して作成した成績表で、入力漏れがなかったかどうかなどをチェックするのに数秒間だけ指定したページや範囲を表示させたいと思ったことありませんか？

指定した時間が経過した後にVBAプログラムを実行することができる、OnTimeメソッドを使う事によってできるようになるのでご紹介いたします。

数秒後に自動的にVBA実行

まず最初に、指定した時間を経過した時に作動するVBAを作成します。

ここでは、ユーザーフォーム1を表示させるVBAコードを標準モジュール内のModule1に下記のように記載し、プログラム名をPREVIEWTIMEとします。

また表示させるシート名は「RESULT」とします。

ちなみにプログラム名に関しては好きな名前をつけることが可能です。

VBAコード

Sub PREVIEWTIME()
Worksheets(“RESULT”).Activate
UserForm1.Show
End Sub

解説

これで、指定した時間を経過した時に表示させるVBAプログラムが出来上がりましたので、次はOnTimeメソッドを使って下記のようにメッセージを表示させます。

実際にタイマーを作動させるユーザーフォーム８のコマンドボタンにTimeValueを使って時間を設定します。

ここでは、【CLOSE】ボタンを押すと15秒間だけ、ユーザーフォームが消えてボウリングリーグ戦の成績一覧が見られるようにします。

15秒後に「標準モジュール」に書いた「PREVIEWTIME」が作動するってことです。

VBAコード

Private Sub CommandButton5_Click()
Unload UserForm8
MsgBox “15秒後に自動復帰します”
Application.OnTime Now + TimeValue(“00:00:15”), “PREVIEWTIME”
End Sub

解説

OnTime Now（今）＋（00:00:15）で15秒ってことですね。

波乗りアヒル

標準モジュールにPREVIEWTIME以外に様々な内容を作っておけば、タイマー作動で自動保存したり、意図しない操作でユーザーフォームが閉じられてしまった時も自動復帰で安心ですね。