StatusBar

Söz dizimi​

Application.StatusBar = "Görüntülenecek metin"
Application.StatusBar = False
değişken = Application.StatusBar
Application.DisplayStatusBar = True

• Application: Excel uygulamasını temsil eden nesne. Excel içindeki VBA kodunda genellikle bu şekilde açıkça yazılır.
• Metin (String): Durum çubuğunda gösterilecek ileti. Zorunludur; atama yapılırken bir metin ya da False verilmelidir.
• False: Durum çubuğunun denetimini Excel'e geri verir; Excel kendi iletilerini (Hazır, Hesaplanıyor gibi) yeniden gösterir. True atanamaz.
• DisplayStatusBar: İsteğe bağlı olarak birlikte kullanılan ayrı bir özelliktir; durum çubuğunun görünür olup olmadığını belirler. Çubuk gizliyse StatusBar ile yazdığınız ileti görünmez.

Dönüş değeri ve geri verme​

• String: Kodla bir ileti yazılmışsa o metin döner.
• False: Çubuk Excel'in denetimindeyse, yani kodla ileti yazılmamışsa ya da önceki ileti False ile kaldırılmışsa False değeri (hücrede YANLIŞ) döner. Örnek 3'te bu sonucun veri türü sütununda String göründüğüne dikkat edin.

Ne zaman kullanılır​

• İlerleme göstermek: Bir döngüde "12 / 200 satır işlendi" gibi sayaç yazmak.
• Adım bildirmek: "Veriler okunuyor...", "Rapor kaydediliyor..." gibi aşamaları göstermek.
• Ekran güncellemesi kapalıyken geri bildirim vermek: Application.ScreenUpdating özelliği False iken sayfa donmuş gibi görünür; çubuktaki ileti makronun çalıştığını gösterir.

1. Döngüde ilerleme iletisi​

Option Explicit

Sub SiparisTutarHesapla()
    Dim ws As Worksheet
    Dim son As Long, i As Long

    Set ws = ActiveSheet
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    For i = 2 To son
        ' Tutar = Adet x Birim Fiyat
        ws.Cells(i, 4).Value = ws.Cells(i, 2).Value * ws.Cells(i, 3).Value
        ' Durum çubuğuna ilerleme iletisi yaz
        Application.StatusBar = "Tutar hesaplanıyor: " & (i - 1) & " / " & (son - 1)
    Next i

    ' Son iletiyi sayfaya kaydet (yalnızca örnek amaçlı)
    ws.Range("E2").Value = Application.StatusBar

    ' Durum çubuğunu Excel'e geri ver
    Application.StatusBar = False
End Sub

2. İlerleme çubuğu ve hata durumunda temizlik​

Option Explicit

Sub SehirToplamlariniHesapla()
    Dim ws As Worksheet
    Dim i As Long, n As Long, k As Long

    Set ws = ActiveSheet
    n = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row - 1   ' veri satırı sayısı

    On Error GoTo Temizle
    Application.ScreenUpdating = False

    For i = 2 To n + 1
        ' Ocak-Mart toplamını E sütununa yaz
        ws.Cells(i, 5).Value = Application.WorksheetFunction.Sum(ws.Range(ws.Cells(i, 2), ws.Cells(i, 4)))

        ' 10 karakterlik metin tabanlı ilerleme çubuğu
        k = Int((i - 1) / n * 10)
        Application.StatusBar = "[" & String(k, "#") & String(10 - k, "-") & "] " & ws.Cells(i, 1).Value & " işlendi, " & Format((i - 1) / n, "0%")

        ' İletiyi F sütununa kaydet (yalnızca örnek amaçlı)
        ws.Cells(i, 6).Value = Application.StatusBar
    Next i

Temizle:
    ' Hata olsa da olmasa da burada çubuk ve ekran eski haline döner
    Application.StatusBar = False
    Application.ScreenUpdating = True
End Sub

3. StatusBar değerini okuma ve veri türü​

Option Explicit

Sub DurumCubuguDegeriniDene()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ' 1. Çubuğu Excel'e ver ve değeri oku
    Application.StatusBar = False
    ws.Range("C2").Value = Application.StatusBar
    ws.Range("D2").Value = TypeName(Application.StatusBar)

    ' 2. Çubuğa ileti yaz ve değeri oku
    Application.StatusBar = "Rapor hazırlanıyor..."
    ws.Range("C3").Value = Application.StatusBar
    ws.Range("D3").Value = TypeName(Application.StatusBar)

    ' 3. İletiyi kaldır ve yeniden oku
    Application.StatusBar = False
    ws.Range("C4").Value = Application.StatusBar
    ws.Range("D4").Value = TypeName(Application.StatusBar)
End Sub

Kullanırken dikkat edin​

• Çubuğu her zaman geri verin: Makro bittiğinde ya da hata verdiğinde Application.StatusBar = False çalışmazsa son ileti çubukta takılı kalır ve Excel kendi iletilerini göstermez. Hata olasılığı olan makrolarda On Error GoTo ile bir temizlik bölümü kurun ve çubuğu orada sıfırlayın.
• Uygulama düzeyinde bir ayardır: StatusBar belirli bir çalışma kitabına değil Excel uygulamasına aittir. Açık tüm çalışma kitaplarında aynı ileti görünür; kitap değiştirseniz de ileti kalır.
• DisplayStatusBar kapalıysa ileti görünmez: Durum çubuğu Görünüm ayarlarından ya da Application.DisplayStatusBar = False ile gizlenmişse yazdığınız ileti kullanıcıya ulaşmaz. İleti göstermeden önce DisplayStatusBar özelliğini True yapmak ve gerekiyorsa eski değerini saklayıp sonra geri yüklemek iyi bir uygulamadır.
• Çok uzun iletiler kesilebilir: Çubuğun genişliği pencere boyutuna bağlıdır; çok uzun metinler sığmadığı için kesilerek görünebilir. İletiyi kısa tutun ve en önemli bilgiyi başa yazın.
• Her döngü adımında yazmak yavaşlatabilir: Yüz binlerce satırlık döngülerde her adımda çubuğu güncellemek makroyu gözle görülür biçimde yavaşlatabilir. İletiyi her 100 ya da 1000 adımda bir güncellemek için Mod işlecinden yararlanabilirsiniz.
• Kullanıcıya zorunlu bilgi için uygun değildir: Çubuk iletisini kullanıcı fark etmeyebilir. Mutlaka okunması gereken uyarılar ya da karar gerektiren durumlar için MsgBox kullanın; durum çubuğunu yalnızca bilgilendirme ve ilerleme amacıyla kullanın.
• İlgili konular:
  • Application.DisplayStatusBar: Durum çubuğunu gösterir ya da gizler.
  • Application.ScreenUpdating: Makro sırasında ekran yenilemesini kapatarak hızı artırır.
  • Application.Cursor: Fare imlecinin görünümünü (bekleme simgesi gibi) değiştirir.
  • Application.EnableEvents: Olayların tetiklenmesini açar ya da kapatır.
  • Application.Calculation: Hesaplama modunu belirler.
  • MsgBox: Kullanıcıya onay gerektiren iletiler gösterir.
  • For...Next ve Mod: Döngülerde ilerlemeyi belirli aralıklarla bildirmek için kullanılır.
  • On Error GoTo: Hata durumunda temizlik kodunu çalıştırmayı sağlar.