Sisu
Kellelegi meeldib, aga mina isiklikult vajan olekuriba ainult 2-3 juhul:
- pärast filtreerimist kuvab see pärast valikut järelejäänud väärtuste arvu
- kui vahemik on valitud, kuvab see valitud lahtrite summa, keskmise ja arvu
- raskete failide puhul näete raamatus valemite ümberarvutamise edenemist.
Mitte niivõrd joonest, mis võtab enda alla peaaegu kogu ekraani laiuse ja ripub sellel kogu aeg. Proovime seda tagasihoidlikku nimekirja laiendada ja lisada sellele veel mõned kasulikud funktsioonid 🙂
Olekuriba haldamise üldpõhimõtted
Olekuriba haldamine Visual Basicuga on väga lihtne. Teksti kuvamiseks selles saate kasutada lihtsat makrot.
Sub MyStatus() Application.StatusBar = "Привет!" Lõpeta alam
Pärast selle käivitamist saame:
Olekuriba algse oleku taastamiseks vajate sama lühikest "antimakrot":
Sub MyStatus_Off() Application.StatusBar = False End Sub
Põhiversioonis, nagu näete, on kõik väga lihtne. Proovime nüüd ideed edasi arendada…
Valitud vahemiku aadress olekuribal
Exceli akna vasakus ülanurgas valemiribal näete alati aktiivse lahtri aadressi. Kui aga valitud on terve vahemik, siis kahjuks valikuaadressi me seal ei näe – kuvatakse sama üks aktiivne lahter:
Selle probleemi lahendamiseks võite kasutada lihtsat makrot, mis kuvab olekuribal valitud ala aadressi. Pealegi peaks see makro käivituma automaatselt, iga lehe valiku muutmisega – selleks paigutame selle sündmuste käitlejasse ValikMuuda meie raamat.
Avage Visual Basicu redaktor, kasutades vahekaardil asuvat samanimelist nuppu arendaja (Arendaja) või klaviatuuri otseteid Vasak Alt + F11. Otsige üles oma raamat projektipaneeli vasakpoolsest ülanurgast ja avage selles olev moodul topeltklõpsuga See raamat (See tööraamat):
Kopeerige ja kleepige avanevas aknas järgmine makrokood:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub
Nüüd, kui on valitud mis tahes vahemik (sh rohkem kui üks!), kuvatakse olekuribal selle aadress:
Et vältida mitme Ctrl-ga valitud vahemiku aadresside ühinemist, saate lisada väikese paranduse – kasutage funktsiooni Asenda, et asendada koma tühikuga komaga:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Replace(Selection.Address(0, 0), ",", ", ") End Sub
Olekuribal valitud lahtrite arv
Kui valitud on mis tahes vahemik, kuvatakse vaikimisi olekuriba paremal küljel mittetühjade valitud lahtrite arv. Mõnikord peate teadma eraldatud arvu. Seda ülesannet saab täita ka lihtsa makroga, mis käsitleb sündmust SelectionChange, nagu eelmises näites. Teil on vaja sellist makrot nagu:
Private Sub Workbook_SheetSelectionChange(ByVal Sh Objektina, ByVal Target As Range) Dim CellCount as Variant, rng vahemikuna iga rng jaoks In Selection.Areas 'Itereeri läbi kõik valikud RowsCount = rng.Rows.Count 'ridade arv rng.ColumnsCounts = . Loenda 'veergude arv CellCount = CellCount + RowsCount * ColumnsCount 'kogub lahtrite koguarvu Järgmisena kuvatakse olekuribal Application.StatusBar = "Valitud: " & CellCount & " lahtrid" End Sub
See makro läbib kõik Ctrl-ga valitud alad (kui neid on rohkem kui üks), salvestab ridade ja veergude arvu igas piirkonnas muutujates RowsCount ja ColumnsCount ning kogub muutuja CellCount lahtrite arvu, mis seejärel kuvatakse. olekuribal. Tööl näeb see välja järgmine:
Muidugi saab kombineerida seda ja eelmisi makrosid, et kuvada korraga nii valitud vahemiku aadress kui ka lahtrite arv. Peate muutma ainult ühe eelviimase rea järgmiseks:
Application.StatusBar = "Valitud: " & Asenda(Valik.Aadress(0, 0), ",", ", ") & " - kokku " & CellCount & " lahtrid"
Siis saab pilt päris imeline:
Noh, ma arvan, et saate ideest aru. Soovitage kommentaarides – mida oleks veel kasulik olekuribal kuvada?
- Mis on makrod, kuidas need töötavad, kuidas neid kasutada ja luua
- Mugav koordinaatide valik Exceli lehel
- Kuidas muuta keerukaid valemeid visuaalsemaks