Excel Soru-Cevap Vol7

Soru: Excel'in Durum Çubuğunda seçili hücreleri toplayan, sayan, büyüğünü, küçüğünü gösteren bir bölüm var. İstenilen başka bir fonksiyon eklenebilir mi?

Cevap: Bu özellik Excel'in kendisine ait ve Excel'in yapısını kullanarak değiştirebileceğimiz bir alan değildir. Ancak siz de kendiniz için böyle bir özellik yapabilirsiniz. Bunun için tek yapmanız gereken StatusBar ( Durum Çubuğu)' a ilişkin kodları bilmektir. Aşağıdaki örneği inceleyiniz.
Sub Durum_Cubugu()
Application.StatusBar = "M. Temel Korkmaz"
End Sub

Yukarıdaki kodu çalıştırdığınızda Excel'e ait durum çubuğundaki istediğiniz metnin yazıldığını göreceksiniz. Gerisi tamamen size kalmış. Hazırladığınız bir fonksiyonu buraya atamak zor olmayacaktır. Bunun için de basit bir örnek verelim.

A1:A10 arasındaki hücrelerde olan sayısal verilerin toplamı aşağıdaki kodlama ile StatusBar'a aktarılır.
Function topla()
topla = WorksheetFunction.Sum(Range("A1:A10"))
End Function
Sub Durum_Cubugu()
Application.StatusBar = topla
End Sub

Kodlamayı çalıştırdığınızda topla fonksiyonunun karşılığını Durum Çubuğunda göreceksiniz.
Not: Geri dönmek için en azından Application.StatusBar = False kodunu kullanmayı ihmal etmeyiniz.