cuntenutu
Qualchissia piace, ma personalmente bisognu di una barra di statutu solu in 2-3 casi:
- dopu a filtrazione, mostra u numeru di valori chì restanu dopu a selezzione
- quandu un intervallu hè sceltu, mostra a somma, a media è u numeru di e cellule selezziunate
- in u casu di schedari pisanti, vi ponu vede u prugressu in formule recalculating in u libru.
Ùn hè tantu per una linea chì occupa quasi tutta a larghezza di u screnu è si ferma nantu à tuttu u tempu. Pruvemu di espansione sta lista modesta è aghjunghje uni pochi di funzioni più utili 🙂
Principii generali per a gestione di a barra di statutu
Gestisce a barra di statutu cù Visual Basic hè assai faciule. Per vede u vostru testu in questu, pudete aduprà una macro simplice:
Sub MyStatus() Application.StatusBar = "Привет!" End Sub
Dopu avè eseguitu, avemu:
Per restaurà u statu originale di a barra di statutu, avete bisognu di u listessu cortu "anti-macro":
Sub MyStatus_Off () Application.StatusBar = False End Sub
In a versione basica, cum'è pudete vede, tuttu hè assai simplice. Avà pruvemu à sviluppà l'idea ...
Indirizzu di a gamma selezziunata in a barra di statutu
In u cantonu superiore manca di a finestra di Excel in a barra di formula, pudete sempre vede l'indirizzu di a cellula attuale. Ma s'ellu hè sceltu un intervallu sanu, allora, sfurtunatamenti, ùn vedemu micca l'indirizzu di selezzione quì - a stessa una sola cellula attiva hè visualizata:
Per risolve stu prublema, pudete aduprà una macro simplice chì mostrarà l'indirizzu di l'area scelta in a barra di statutu. Inoltre, sta macro deve esse lanciata automaticamente, cù qualsiasi cambiamentu in a selezzione nantu à qualsiasi fogliu - per questu l'avemu postu in u gestore di l'eventi. Selezzione Cambia u nostru libru.
Aprite l'Editor Visual Basic utilizendu u buttone di u stessu nome nantu à a tabulazione documentaliste (Sviluppatore) o scorciatoie da tastiera A manca Alt + F11. Truvate u vostru libru in l'angulu superiore manca di u pannellu di Prughjettu è apre u modulu in questu clicchendu doppiu Stu libru (Questu libru di travagliu):
In a finestra chì si apre, copia è incollà u seguente codice macro:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address (0, 0) End Sub
Avà, quandu ogni intervallu hè sceltu (cumpresu più di unu!), u so indirizzu serà visualizatu in a barra di statutu:
Per impediscenu l'indirizzi di parechji intervalli selezziunati cù Ctrl da fusione, pudete aghjunghje una piccula mellura - utilizate a funzione Replace per rimpiazzà una virgola cù una virgola cù un spaziu:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Replace (Selection.Address (0, 0), ",", ", ") End Sub
Numeru di cellule selezziunate in a barra di statutu
Quandu ogni intervallu hè sceltu, u numeru di cellule selezziunate micca vacanti hè visualizatu à u latu drittu di a barra di statutu per automaticamente. Calchì volta vi tocca à sapè u numeru di assignati. Stu compitu pò ancu esse realizatu cù una macro simplice per trattà l'avvenimentu di libru SelectionChange, cum'è in l'esempiu precedente. Avete bisognu di una macro cum'è:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount As Variante, rng As Range Per Ogni rng In Selection.Areas 'Iterate through all selections RowsCount = rng.Rows.Count 'number of rows ColumnsCount = rng.Columns . Count 'number of columns CellCount = CellCount + RowsCount * ColumnsCount 'accumulate u numeru tutale di cellule Next 'display in the status bar Application.StatusBar = "Selezzione: " & CellCount & " cells" End Sub
Questa macro loops attraversu tutte e zone selezziunate da Ctrl (se ci sò più di una), guarda u numeru di fila è colonne in ogni area in e variabili RowsCount è ColumnsCount, è accumula u numeru di cellule in a variabile CellCount, chì hè dopu affissata. in a barra di statutu. À u travagliu, sarà cusì:
Di sicuru, pudete cumminà questu è i macros precedenti per vede l'indirizzu di a gamma selezziunata è u numeru di cellule à u stessu tempu. Solu bisognu di cambià una penultima linea à:
Application.StatusBar = "Selezzione: " & Replace (Selezzione.Address (0, 0), ",", ", ") & " - totale " & CellCount & " cellule"
Allora a stampa serà abbastanza maravigliosa:
Ebbè, pensu chì avete l'idea. Suggerite in i cumenti - chì altru seria utile per vede in a barra di statutu?
- Chì sò i macros, cumu travaglianu, cumu utilizà è creanu
- Selezzione conveniente di coordenate nantu à una foglia Excel
- Cumu fà e formule cumplesse più visuale