Hyödyllisiä tietoja tilarivillä

Joku tykkää, mutta minä henkilökohtaisesti tarvitsen tilapalkin vain 2-3 tapauksessa:

  • suodatuksen jälkeen se näyttää valinnan jälkeen jäljellä olevien arvojen määrän
  • kun alue valitaan, se näyttää valittujen solujen summan, keskiarvon ja lukumäärän
  • raskaiden tiedostojen tapauksessa voit nähdä kirjasta kaavojen uudelleenlaskennan edistymisen.

Ei niinkään viivalle, joka vie lähes koko näytön leveyden ja roikkuu siinä koko ajan. Yritetään laajentaa tätä vaatimatonta listaa ja lisätä siihen muutamia hyödyllisiä ominaisuuksia 🙂

Yleiset tilapalkin hallinnan periaatteet

Tilapalkin hallinta Visual Basicilla on erittäin helppoa. Voit näyttää tekstisi siinä käyttämällä yksinkertaista makroa:

Sub MyStatus() Application.StatusBar = "Привет!" Lopeta ala

Sen suorittamisen jälkeen saamme:

Hyödyllisiä tietoja tilarivillä

Tilapalkin alkuperäisen tilan palauttamiseksi tarvitset saman lyhyen "anti-makron":

Sub MyStatus_Off() Application.StatusBar = False End Sub

Perusversiossa, kuten näet, kaikki on hyvin yksinkertaista. Yritetään nyt kehittää ideaa…

Valitun alueen osoite tilapalkissa

 Excel-ikkunan vasemmassa yläkulmassa kaavapalkissa näet aina nykyisen solun osoitteen. Mutta jos koko alue valitaan, emme valitettavasti näe valintaosoitetta siellä - näytetään sama yksi aktiivinen solu:

Hyödyllisiä tietoja tilarivillä

Tämän ongelman ratkaisemiseksi voit käyttää yksinkertaista makroa, joka näyttää valitun alueen osoitteen tilapalkissa. Lisäksi tämän makron pitäisi käynnistyä automaattisesti minkä tahansa taulukon valinnan muutoksilla – tätä varten sijoitamme sen tapahtumakäsittelijään ValintaMuuta meidän kirjamme.

Avaa Visual Basic Editor käyttämällä välilehden samannimistä painiketta kehittäjä (Kehittäjä) tai pikanäppäimiä Vasen Alt+F11. Etsi kirjasi Projekti-paneelin vasemmasta yläkulmasta ja avaa siinä oleva moduuli kaksoisnapsauttamalla Tämä kirja (Tämä työkirja):

Kopioi ja liitä seuraava makrokoodi avautuvassa ikkunassa:

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

Nyt kun mikä tahansa alue on valittuna (mukaan lukien useampi kuin yksi!), sen osoite näkyy tilapalkissa:

Hyödyllisiä tietoja tilarivillä

Jos haluat estää useiden Ctrl-näppäimellä valittujen alueiden osoitteiden yhdistämisen, voit lisätä siihen pienen parannuksen – Korvaa-toiminnolla voit korvata pilkun pilkulla välilyönnillä:

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

Valittujen solujen määrä tilapalkissa

Kun jokin alue on valittuna, ei-tyhjien valittujen solujen määrä näkyy oletusarvoisesti tilapalkin oikealla puolella. Joskus sinun on tiedettävä allokoitujen määrä. Tämä tehtävä voidaan suorittaa myös yksinkertaisella makrolla SelectionChange-kirjatapahtuman käsittelemiseksi, kuten edellisessä esimerkissä. Tarvitset makron, kuten:

Yksityinen Sub Workbook_SheetSelectionChange(ByVal Sh Objektina, ByVal Target As Range) Dim CellCount as Variant, rng As Range jokaiselle rng:lle In Selection.Areas 'Iteroi kaikki valinnat RowsCount = rng.Rows.Count 'rivien määrä ColumnsColumns = rng.ColumnsCounts . Count 'sarakkeiden lukumäärä CellCount = CellCount + RowsCount * ColumnsCount 'kerää solujen kokonaismäärän Seuraavaksi 'näytä tilarivillä Application.StatusBar = "Valittu: " & CellCount & " solut" End Sub

Tämä makro käy läpi kaikki Ctrl-valitut alueet (jos niitä on enemmän kuin yksi), tallentaa rivien ja sarakkeiden lukumäärän kullakin alueella RowsCount- ja ColumnsCount-muuttujiin ja kerää solujen lukumäärän CellCount-muuttujaan, joka sitten näytetään. tilapalkissa. Töissä se näyttää tältä:

Hyödyllisiä tietoja tilarivillä

Voit tietysti yhdistää tämän ja edelliset makrot näyttääksesi sekä valitun alueen osoitteen että solujen lukumäärän samanaikaisesti. Sinun tarvitsee vain muuttaa yksi toiseksi viimeinen rivi seuraavasti:

Application.StatusBar = "Valittu: " & Korvaa(Valinta.Osoite(0, 0), ",", ", ") & " - yhteensä " & CellCount & " soluja"

Sitten kuvasta tulee aivan ihana:

Hyödyllisiä tietoja tilarivillä

No, luulen, että ymmärrät idean. Ehdota kommenteissa – mitä muuta olisi hyödyllistä näyttää tilapalkissa?

  • Mitä makrot ovat, miten ne toimivat, miten niitä käytetään ja luodaan
  • Kätevä koordinaattivalinta Excel-arkilla
  • Kuinka tehdä monimutkaisista kaavoista visuaalisempia

Jätä vastaus