İşlem Yaparken StatusBarda Yüzde Görüntüleme

İşlem Yaparken StatusBarda Yüzde Görüntüleme, makro çalıştırıldığında, geçen süre boyunca yapılan işlerin yüzdesini göstermektedir.

İşlem Yaparken StatusBarda Yüzde Görüntüleme Oluşturulma Amacı

Dosya, Excel’in StatusBar nesnesinin nasıl kullanıldığını göstermek için hazırlanmıştır. Bu nesne, Excel makroları çalışırken, StatusBar’da hangi adımlarda olduğunu kolayca takip etmenizi sağlamaktadır.

Dosyadaki kodlar aşağıdaki gibidir.

Kullanılan Kodlar

Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, pctCompl As Integer
For i = 1 To 20
    For j = 1 To 5
        Cells(i, j).Value = WorksheetFunction.RandBetween(5, 100)
        pctCompl = (i - 1) * 5 + (j * 1)
        Application.StatusBar = "Importing Data.. " & pctCompl & "% Completed"
        Application.Wait Now + TimeValue("00:00:01")
    Next j
Next i
Application.StatusBar = False
End Sub

Dosyadan faydalanmanız temennisiyle