/ / Excel VBA StatusBar Özelliği

Excel VBA StatusBar Özelliği

Bu Durum çubuğu özelliği Application nesnesinde Excel VBA uzun bir makro ilerlemesini belirtmek için kullanılabilir.Bu şekilde, bir makro hala çalıştığını bildiren kullanıcı izin verebilirsiniz.

Durum:

Makro oluşturmak için gidiyoruz Range("A1:E20") rasgele sayılarla doldurur.

Excel VBA durum çubuğu özelliği örneği

Komut düğmesine aşağıdaki kod satırlarını ekleyin:

1.birinci, türü tamsayı, ben, j ve pctCompl adlı üç değişkenleri bildir.

Dim i As Integer, j As Integer, pctCompl As Integer

2. bir çift döngü ekleyin.

For i = 1 To 20
    For j = 1 To 5

    Next j
Next i

Aşağıdaki kod satırı (3, 4 ve 5), döngü için ekleyin.

3. RandBetween işlevi 20 ile 100 arasında rastgele bir sayı almak için kullanın.

Cells(i, j).Value = WorksheetFunction.RandBetween(20, 100)

4. Initialize değişken pctCompl.The ikinci kod satırı değişken pctCompl ve açıklayıcı bir metin değerini durum çubuğunda yazıyor.

pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = "Importing Data.. " & pctCompl & "% Completed"

Örnek: For i = 3, j = 1, (3-1) * 5 (1 * 1) =  tamamlandı.

5. biz uzun bir makro benzetimini yapmak için uygulama nesnesinin bekle yöntemini kullanın.

Application.Wait Now + TimeValue("00:00:01")

6. varsayılan durum çubuğu metnini geri yüklemek için durum çubuğu özellik False (dış döngünün) ayarlayın.

Application.StatusBar = False

Sayfadaki komut düğmesine tıkladığınızda sonuç:

Excel VBA durum çubuğu özellik sonuç

Not: Esc veya Ctrl Break tuşlarına basarak makro herhangi bir zamanda kesintiye uğratabilir.Daha görsel bir yaklaşım için ilerleme durumu göstergesi Programımıza bakın.

Ayrıca oku: