Microsoft Excel'de VBA kullanarak durum çubuğunda geri sayım

Excel'de nasıl zamanlayıcı oluşturabilirim diye merak ediyorsanız

Soru:

Durum çubuğunda 30 ila 0 saniye arasında bir geri sayım görüntülenecektir.

Cevap:
Aşağıdaki kodu standart modüle ekleyin.

Sub CountDown() Dim intCounter Tamsayı Olarak Dim bln As Boolean bln = Application.DisplayStatusBar Application.DisplayStatusBar = True For intCounter = 30 - 1 Adım -1 Application.StatusBar = intCounter & " Saniye… " Application.Wait Now + TimeSerial(0, 0, 1) Sonraki intCounter Application.StatusBar = False Application.DisplayStatusBar = bln End Sub Bu şekilde durum çubuğunu kullanarak excel vba zamanlayıcısını görüntüleyebilirsiniz.