どうすればExcelでタイマーを作成できるか疑問に思っている場合質問：

30秒から0秒までのカウントダウンがステータスバーに表示されます。

回答：

標準モジュールに次のコードを挿入します。

Sub CountDown()

Dim intCounter As Integer

Dim bln As Boolean

bln = Application.DisplayStatusBar

Application.DisplayStatusBar = True

For intCounter = 30 To 1 Step -1

Application.StatusBar = intCounter & " Seconds..."

Application.Wait Now + TimeSerial(0, 0, 1)

Next intCounter

Application.StatusBar = False

Application.DisplayStatusBar = bln

End Sub

In this way you can use status bar to display excel vba timer.