Vəziyyət çubuğunda faydalı məlumatlar

Kimsə bəyənir, amma şəxsən mənə yalnız 2-3 halda status çubuğu lazımdır:

  • filtrdən sonra, seçimdən sonra qalan dəyərlərin sayını göstərir
  • diapazon seçildikdə o, seçilmiş xanaların cəmini, orta və sayını göstərir
  • ağır fayllar vəziyyətində, kitabda düsturların yenidən hesablanmasında irəliləyişləri görə bilərsiniz.

Ekranın demək olar ki, bütün enini tutan və hər zaman onun üzərindən asılan bir xətt üçün o qədər də çox deyil. Gəlin bu təvazökar siyahını genişləndirməyə və ona bir neçə faydalı funksiya əlavə etməyə çalışaq 🙂

Vəziyyət panelini idarə etmək üçün ümumi prinsiplər

Vəziyyət panelini Visual Basic ilə idarə etmək çox asandır. Mətninizi orada göstərmək üçün sadə makrodan istifadə edə bilərsiniz:

Sub MyStatus() Application.StatusBar = "Privet!" Son Alt

Çalışdırdıqdan sonra əldə edirik:

Vəziyyət çubuğunda faydalı məlumatlar

Vəziyyət çubuğunun orijinal vəziyyətini bərpa etmək üçün eyni qısa "anti-makro" lazımdır:

Sub MyStatus_Off() Application.StatusBar = False End Sub

Əsas versiyada, gördüyünüz kimi, hər şey çox sadədir. İndi gəlin ideyanı inkişaf etdirməyə çalışaq...

Vəziyyət çubuğunda seçilmiş diapazonun ünvanı

 Formula çubuğundakı Excel pəncərəsinin yuxarı sol küncündə hər zaman cari xananın ünvanını görə bilərsiniz. Amma bütün diapazon seçilərsə, təəssüf ki, biz orada seçim ünvanını görməyəcəyik – eyni tək aktiv xana göstərilir:

Vəziyyət çubuğunda faydalı məlumatlar

Bu problemi həll etmək üçün status çubuğunda seçilmiş sahənin ünvanını göstərəcək sadə makrodan istifadə edə bilərsiniz. Üstəlik, bu makro istənilən vərəqdə seçimdə hər hansı bir dəyişikliklə avtomatik olaraq işə salınmalıdır – bunun üçün biz onu hadisə idarəedicisinə yerləşdirəcəyik. Seçimdəyişmə kitabımız.

Nişandakı eyni adlı düyməni istifadə edərək Visual Basic Redaktorunu açın geliştirici (İnkişaf etdirici) və ya klaviatura qısa yolları Sol Alt+F11. Layihə panelinin yuxarı sol küncündə kitabınızı tapın və iki dəfə klikləməklə içindəki modulu açın Bu kitab (Bu iş dəftəri):

Açılan pəncərədə aşağıdakı makro kodunu kopyalayın və yapışdırın:

Private Sub Workbook_SheetSelectionChange(ByVal Sh Object As ByVal Target As, ByVal Target As Range) Application.StatusBar = "Vыdeleno: " & Selection.Address(0, 0) End Sub

İndi hər hansı diapazon seçildikdə (birdən çox daxil olmaqla!), onun ünvanı status panelində göstəriləcək:

Vəziyyət çubuğunda faydalı məlumatlar

Ctrl ilə seçilmiş bir neçə diapazonun ünvanlarının birləşməsinin qarşısını almaq üçün kiçik bir təkmilləşdirmə əlavə edə bilərsiniz - vergülü boşluqla vergüllə əvəz etmək üçün Əvəz et funksiyasından istifadə edin:

Private Sub Workbook_SheetSelectionChange(ByVal Sh Object As, ByVal Target As Range) Application.StatusBar = "Vıdelen: " & Replace(Selection.Address(0, 0), ",", ", ") Son Alt

Vəziyyət çubuğunda seçilmiş xanaların sayı

Hər hansı diapazon seçildikdə, boş olmayan seçilmiş xanaların sayı standart olaraq status çubuğunun sağ tərəfində göstərilir. Bəzən ayrılanların sayını bilmək lazımdır. Bu tapşırığı əvvəlki nümunədə olduğu kimi SelectionChange kitab hadisəsini idarə etmək üçün sadə makro ilə də yerinə yetirmək olar. Belə bir makroya ehtiyacınız olacaq:

Private Sub Workbook_SheetSelectionChange(ByVal Sh Obyekt kimi, ByVal Hədəf diapazon kimi) Dim CellCount Variant kimi, rng Selection.Areas-da Hər rng üçün diapazon kimi 'Bütün seçimlər arasında təkrarlayın RowsCount = rng.Rows.Count 'sətirlərin sayı SütunlarSayı =r . 'sütunların sayı CellCount = CellCount + RowsCount * ColumnsCount 'xanaların ümumi sayını toplayır Sonrakı 'status panelində göstərin Application.StatusBar = "Seçildi: " & CellCount & " hüceyrələri" Son Alt

Bu makro Ctrl ilə seçilmiş bütün sahələr arasında dövr edir (əgər birdən çox varsa), RowsCount və ColumnsCount dəyişənlərində hər bir sahədə sətir və sütunların sayını saxlayır və CellCount dəyişənində xanaların sayını toplayır və bu, sonra göstərilir. status panelində. İşdə bu belə görünəcək:

Vəziyyət çubuğunda faydalı məlumatlar

Əlbəttə ki, siz həm seçilmiş diapazonun ünvanını, həm də xanaların sayını eyni vaxtda göstərmək üçün bu və əvvəlki makroları birləşdirə bilərsiniz. Yalnız bir sondan əvvəlki sətri dəyişdirməlisiniz:

Application.StatusBar = "Seçildi: " & Dəyişdirin(Seçim.Ünvan(0, 0), ",", ", ") & " - cəmi " & CellCount & " xanalar"

Sonra şəkil olduqca gözəl olacaq:

Vəziyyət çubuğunda faydalı məlumatlar

Yaxşı, məncə fikri başa düşürsən. Şərhlərdə təklif edin - status panelində başqa nə göstərmək faydalı olardı?

  • Makrolar nədir, necə işləyir, necə istifadə olunur və yaradılır
  • Excel vərəqində rahat koordinat seçimi
  • Mürəkkəb formulları necə daha vizual etmək olar

Cavab yaz