contingut
Algú m'agrada, però jo personalment necessito una barra d'estat només en 2 o 3 casos:
- després del filtrat, mostra el nombre de valors restants després de la selecció
- quan se selecciona un interval, mostra la suma, la mitjana i el nombre de cel·les seleccionades
- en el cas dels fitxers pesats, podeu veure el progrés en el recàlcul de fórmules al llibre.
No tant per a una línia que ocupa gairebé tota l'amplada de la pantalla i s'hi penja tot el temps. Intentem ampliar aquesta llista modesta i afegir-hi algunes funcions més útils 🙂
Principis generals per a la gestió de la barra d'estat
Gestionar la barra d'estat amb Visual Basic és molt fàcil. Per mostrar-hi el text, podeu utilitzar una macro senzilla:
Sub MyStatus() Application.StatusBar = "Oferta!" End Sub
Després d'executar-lo, obtenim:
Per restaurar l'estat original de la barra d'estat, necessitareu el mateix curt "anti-macro":
Sub MyStatus_Off() Application.StatusBar = Fals End Sub
En la versió bàsica, com podeu veure, tot és molt senzill. Ara intentem desenvolupar la idea...
Adreça de l'interval seleccionat a la barra d'estat
A la cantonada superior esquerra de la finestra d'Excel a la barra de fórmules, sempre podeu veure l'adreça de la cel·la actual. Però si es selecciona tot un interval, malauradament, no hi veurem l'adreça de selecció: es mostra la mateixa cel·la activa:
Per resoldre aquest problema, podeu utilitzar una macro senzilla que mostrarà l'adreça de l'àrea seleccionada a la barra d'estat. A més, aquesta macro s'hauria de llançar automàticament, amb qualsevol canvi en la selecció de qualsevol full; per això, la col·locarem al gestor d'esdeveniments. Canvi de selecció el nostre llibre.
Obriu l'Editor de Visual Basic mitjançant el botó del mateix nom a la pestanya revelador (Desenvolupador) o dreceres de teclat Alt esquerre+F11. Trobeu el vostre llibre a la cantonada superior esquerra del tauler Projecte i obriu el mòdul fent-hi doble clic Aquest llibre (Aquest llibre de treball):
A la finestra que s'obre, copieu i enganxeu el codi de macro següent:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub
Ara, quan se selecciona qualsevol interval (incloent-ne més d'un!), la seva adreça es mostrarà a la barra d'estat:
Per evitar que les adreces de diversos rangs seleccionats amb Ctrl es fusionin, podeu afegir una petita millora: utilitzeu la funció Reemplaça per substituir una coma per una coma amb un espai:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Replace(Selection.Address(0, 0), ",", ", ") End Sub
Nombre de cel·les seleccionades a la barra d'estat
Quan se selecciona qualsevol interval, el nombre de cel·les seleccionades no buides es mostra a la part dreta de la barra d'estat de manera predeterminada. De vegades cal saber el nombre d'assignats. Aquesta tasca també es pot realitzar amb una macro senzilla per gestionar l'esdeveniment del llibre SelectionChange, com a l'exemple anterior. Necessitareu una macro com:
Private Sub Workbook_SheetSelectionChange(ByVal Sh com a objecte, ByVal objectiu com a rang) Dim CellCount com a variant, rng com a rang per a cada rng a Selection.Areas 'Iterar a través de totes les seleccions RowsCount = rng.Rows.Count 'nombre de files ColumnsCount = rng.Columns . Recompte 'nombre de columnes CellCount = CellCount + RowsCount * ColumnsCount 'acumula el nombre total de cel·les Següent' es mostra a la barra d'estat Application.StatusBar = "Seleccionat: " & CellCount & " cel·les" End Sub
Aquesta macro recorre totes les àrees seleccionades amb Ctrl (si n'hi ha més d'una), emmagatzema el nombre de files i columnes de cada àrea a les variables RowsCount i ColumnsCount i acumula el nombre de cel·les de la variable CellCount, que després es mostra. a la barra d'estat. A la feina es veurà així:
Per descomptat, podeu combinar aquesta macro i les anteriors per mostrar alhora l'adreça de l'interval seleccionat i el nombre de cel·les. Només heu de canviar una penúltima línia per:
Application.StatusBar = "Seleccionat: " & Reemplaça (Selection.Address(0, 0), ",", ", ") & " - total " & CellCount & " cel·les"
Aleshores la imatge serà força meravellosa:
Bé, crec que entens la idea. Suggereix als comentaris: què més seria útil mostrar a la barra d'estat?
- Què són les macros, com funcionen, com utilitzar-les i crear-les
- Selecció còmoda de coordenades en un full d'Excel
- Com fer que les fórmules complexes siguin més visuals