Atpakaļskaitīšana statusa joslā, izmantojot Microsoft Excel VBA

Anonim

Ja jums rodas jautājums, kā es varu izveidot taimeri programmā Excel

Jautājums:

Statusa joslā ir jāparāda laika atskaite no 30 līdz 0 sekundēm.

Atbilde:
Standarta modulī ievietojiet šādu kodu.

Sub CountDown () Dim intCounter Kā vesels skaitlis Dim bln Kā Būla bln = Application.DisplayStatusBar Application.DisplayStatusBar = True Attiecībā uz intCounter = 30 līdz 1 Solis -1 Application.StatusBar = intCounter & "Sekundes …" Lietojumprogramma. Pagaidiet + TimeSerial (0, 0, 1) Nākamā intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Tādā veidā jūs varat izmantot statusa joslu, lai parādītu Excel vba taimeri.