Vba kullanarak durum çubuğu nasıl gösterilir/gizlenir?

VBA’da, durum çubuğunda bir değer görüntülemenize yardımcı olabilecek bir “Durum Çubuğu” özelliği vardır ve ayrıca Excel penceresinin durumunu gizlemek ve göstermek için “DisplayStatusBar” da vardır. Bu özellikleri kullanırken durum çubuğunu sonuna kadar sıfırlamanız gerekir, aksi takdirde son mesaj veya ayar orada kalacaktır.

Derste Excel’de çalışırken kullanabileceğimiz bazı örnekleri göreceğiz.

Durum çubuğunda bir değer göster

Dediğim gibi durum çubuğunda bir değer görüntülemek için StatusBar özelliğini kullanabilirsiniz. Aşağıdaki kodda durum çubuğuna eklemek için “Merhaba” değerini kullandınız.

1. Excel uygulamasına atıfta bulunmak için “Uygulama” anahtar kelimesini kullanın.
2. Özelliklerin ve yöntemlerin listesini almak için bir nokta yazın.
3. “StatusBar” özelliğini seçin.
4. Sonunda durum çubuğunda görüntülemek istediğiniz değeri belirtmek için eşittir işaretini kullanın.

 Sub vba_status_bar() Application.StatusBar = "Hello" End Sub

VBA kullanarak durum çubuğunu gizle

Şimdi durum çubuğunu gizlemek istiyorsanız DisplayStatusBar’ı kullanabileceğinizi ve bu özelliği “False” olarak belirtebileceğinizi varsayalım ( aşağıdaki kodu göz önünde bulundurun ).

1. Excel uygulamasına atıfta bulunmak için “Uygulama” anahtar kelimesini kullanın.
2. Özelliklerin ve yöntemlerin listesini almak için bir nokta yazın.
3. “DisplayStatusBar” özelliğini seçin.
4. Sonunda “Yanlış”ı belirtmek için eşittir işaretini kullanın.

 Sub vba_status_bar_hide() Application.DisplayStatusBar = False End Sub

Durum çubuğunda ilerleme durumunu güncelleyin

Sonraki kod yürütmeleri, durum çubuğunda 1’den 100’e kadar bir sayı kullanan ve gerektiğinde değiştirebileceğiniz bir ilerleme sayacı görüntüler.

 Sub vba_status_bar_update() Dim x As Integer Dim iTimer As Double 'you can change the loop if you need For x = 1 To 100 'dummy loop to run, you can change it as well iTimer = Timer Do Loop While Timer - MyTimer < 0.03 Application.StatusBar = "Progress: " & x & " of 100: " & Format(x / 100, "Percent") DoEvents Next x Application.StatusBar = False End Sub

Hatırlanması gereken önemli noktalar

1. Bunları kullanmak için durum çubuğu özellikleriyle birlikte “app” kullanmanız gerekir.
2. Durumla ilgili bir mesajı görüntülediğinizde, o mesajı temizlemeniz gerekir.