Durum çubuğundaki faydalı bilgiler

Birisi sever, ancak kişisel olarak yalnızca 2-3 durumda bir durum çubuğuna ihtiyacım var:

  • filtrelemeden sonra, seçimden sonra kalan değer sayısını görüntüler.
  • bir aralık seçildiğinde, seçilen hücrelerin toplamını, ortalamasını ve sayısını görüntüler.
  • Ağır dosyalar söz konusu olduğunda, kitaptaki formüllerin yeniden hesaplanmasındaki ilerlemeyi görebilirsiniz.

Ekranın neredeyse tüm genişliğini kaplayan ve her zaman üzerinde asılı duran bir çizgi için çok fazla değil. Bu mütevazı listeyi genişletmeye çalışalım ve ona birkaç kullanışlı özellik daha ekleyelim 🙂

Durum çubuğunu yönetmek için genel ilkeler

Durum çubuğunu Visual Basic ile yönetmek çok kolaydır. Metninizi içinde görüntülemek için basit bir makro kullanabilirsiniz:

Sub MyStatus() Application.StatusBar = "Önemli!" Alt Bitiş

Çalıştırdıktan sonra şunu elde ederiz:

Durum çubuğundaki faydalı bilgiler

Durum çubuğunun orijinal durumunu geri yüklemek için aynı kısa “anti-makro”ya ihtiyacınız olacak:

Alt MyStatus_Off() Application.StatusBar = Yanlış Son Alt

Temel versiyonda, gördüğünüz gibi her şey çok basit. Şimdi fikri geliştirmeye çalışalım…

Durum çubuğunda seçilen aralığın adresi

 Formül çubuğundaki Excel penceresinin sol üst köşesinde, her zaman geçerli hücrenin adresini görebilirsiniz. Ancak tam bir aralık seçilirse, ne yazık ki orada seçim adresini görmeyeceğiz - aynı tek aktif hücre görüntülenir:

Durum çubuğundaki faydalı bilgiler

Bu sorunu çözmek için, durum çubuğunda seçilen alanın adresini görüntüleyen basit bir makro kullanabilirsiniz. Ayrıca, bu makro herhangi bir sayfadaki seçimde herhangi bir değişiklik olduğunda otomatik olarak başlatılmalıdır - bunun için onu olay işleyicisine yerleştireceğiz SeçimDeğiştirme bizim kitabımız.

Sekmede aynı adı taşıyan düğmeyi kullanarak Visual Basic Düzenleyicisini açın geliştirici (Geliştirici) veya klavye kısayolları Sol Alt+F11. Proje panelinin sol üst köşesinde kitabınızı bulun ve içindeki modülü çift tıklayarak açın. Bu kitap (BuÇalışma Kitabı):

Açılan pencerede aşağıdaki makro kodunu kopyalayıp yapıştırın:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub

Artık herhangi bir aralık seçildiğinde (birden fazla dahil!), adresi durum çubuğunda görüntülenecektir:

Durum çubuğundaki faydalı bilgiler

Ctrl ile seçilen birkaç aralığın adreslerinin birleşmesini önlemek için küçük bir iyileştirme ekleyebilirsiniz - virgülü boşluklu bir virgülle değiştirmek için Değiştir işlevini kullanın:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Replace(Selection.Address(0, 0), ",", ", ") End Sub

Durum çubuğunda seçili hücre sayısı

Herhangi bir aralık seçildiğinde, varsayılan olarak durum çubuğunun sağ tarafında boş olmayan seçili hücrelerin sayısı görüntülenir. Bazen tahsis edilen sayıyı bilmeniz gerekir. Bu görev, önceki örnekte olduğu gibi SelectionChange kitap olayını işlemek için basit bir makroyla da gerçekleştirilebilir. Aşağıdaki gibi bir makroya ihtiyacınız olacak:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount As Variant, rng As Range In Selection.Areas 'Tüm seçimler arasında yineleme RowsCount = rng.Rows.Count 'satır sayısı ColumnsCount = rng . Count 'sütun sayısı CellCount = CellCount + RowsCount * ColumnsCount 'toplam hücre sayısını toplar Sonraki 'durum çubuğunda göster Application.StatusBar = "Seçili: " & CellCount & " hücreler" End Sub

Bu makro, Ctrl ile seçilen tüm alanlarda (birden fazla varsa) döngü yapar, RowsCount ve ColumnsCount değişkenlerindeki her alandaki satır ve sütun sayısını saklar ve daha sonra görüntülenen CellCount değişkenindeki hücre sayısını toplar. durum çubuğunda. İş yerinde şöyle görünecek:

Durum çubuğundaki faydalı bilgiler

Tabii ki, hem seçilen aralığın adresini hem de hücre sayısını aynı anda görüntülemek için bunu ve önceki makroları birleştirebilirsiniz. Yalnızca sondan bir önceki satırı şu şekilde değiştirmeniz gerekir:

Application.StatusBar = "Seçili: " & Replace(Selection.Address(0, 0), ",", ", ") & " - toplam " & CellCount & " hücreler"

O zaman resim oldukça harika olacak:

Durum çubuğundaki faydalı bilgiler

Pekala, sanırım fikri anladınız. Yorumlarda önerin - durum çubuğunda görüntülemek için başka ne yararlı olabilir?

  • Makrolar nedir, nasıl çalışırlar, nasıl kullanılır ve oluşturulur
  • Excel sayfasında uygun koordinat seçimi
  • Karmaşık formüller nasıl daha görsel hale getirilir

Yorum bırak