Обратный отсчет в строке состояния с помощью VBA в Microsoft Excel
Если вам интересно, как я могу создать таймер в 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.