Gagnlegar upplýsingar í stöðustikunni

Einhver líkar við, en ég þarf persónulega stöðustiku aðeins í 2-3 tilvikum:

  • eftir síun sýnir það fjölda gilda sem eftir eru eftir valið
  • þegar svið er valið sýnir það summan, meðaltalið og fjölda valinna hólfa
  • ef um þungar skrár er að ræða má sjá framvinduna í endurútreikningi formúla í bókinni.

Ekki svo mikið fyrir línu sem tekur nánast alla breidd skjásins og hangir á honum allan tímann. Við skulum reyna að stækka þennan hóflega lista og bæta nokkrum gagnlegum eiginleikum við hann 🙂

Almennar reglur um stjórnun stöðustikunnar

Það er mjög auðvelt að stjórna stöðustikunni með Visual Basic. Til að birta textann þinn í því geturðu notað einfalda fjölvi:

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

Eftir að hafa keyrt það fáum við:

Gagnlegar upplýsingar í stöðustikunni

Til að endurheimta upprunalega stöðu stöðustikunnar þarftu sama stutta „anti-macro“:

Sub MyStatus_Off() Application.StatusBar = False End Sub

Í grunnútgáfunni, eins og þú sérð, er allt mjög einfalt. Nú skulum við reyna að þróa hugmyndina…

Heimilisfang valins sviðs á stöðustikunni

 Í efra vinstra horninu á Excel glugganum á formúlustikunni geturðu alltaf séð heimilisfang núverandi reits. En ef allt svið er valið, þá munum við því miður ekki sjá val heimilisfangið þar - sama og eini virki reiturinn birtist:

Gagnlegar upplýsingar í stöðustikunni

Til að leysa þetta vandamál geturðu notað einfalda fjölvi sem sýnir heimilisfang valins svæðis á stöðustikunni. Þar að auki ætti þetta fjölvi að vera ræst sjálfkrafa, með öllum breytingum á vali á hvaða blaði - til þess munum við setja það í atburðastjórnun ValBreyta bókinni okkar.

Opnaðu Visual Basic Editor með því að nota hnappinn með sama nafni á flipanum verktaki (hönnuður) eða flýtilykla Vinstri Alt+F11. Finndu bókina þína í efra vinstra horninu á verkefnisspjaldinu og opnaðu eininguna í henni með því að tvísmella Þessi bók (Þessi vinnubók):

Í glugganum sem opnast skaltu afrita og líma eftirfarandi fjölkóða:

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

Nú, þegar einhver svið er valið (þar á meðal fleiri en eitt!), mun heimilisfang þess birtast á stöðustikunni:

Gagnlegar upplýsingar í stöðustikunni

Til að koma í veg fyrir að vistföng nokkurra sviða sem valin eru með Ctrl sameinist, geturðu bætt við litlum endurbótum – notaðu Skipta út til að skipta út kommu fyrir kommu fyrir bil:

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

Fjöldi valinna hólfa á stöðustikunni

Þegar eitthvert svið er valið birtist fjöldi ótómra valinna hólfa hægra megin á stöðustikunni sjálfgefið. Stundum þarftu að vita fjölda úthlutaðra. Þetta verkefni er einnig hægt að framkvæma með einföldum fjölvi til að takast á við SelectionChange bókaviðburðinn, eins og í fyrra dæmi. Þú þarft macro eins og:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount As Variant, rng As Range For Every rng In Selection.Areas 'Gera í gegnum öll val RowsCount = rng.Rows.Count 'fjöldi raða ColumnsCount = rng.Columns . Telja 'fjölda dálka CellCount = CellCount + RowsCount * ColumnsCount 'safna heildarfjölda reita Næst 'birtist á stöðustikunni Application.StatusBar = "Valið: " & CellCount & " frumur" End Sub

Þetta fjölvi fer í gegnum öll Ctrl-valin svæði (ef þau eru fleiri en ein), geymir fjölda raða og dálka á hverju svæði í breytunum RowsCount og ColumnsCount og safnar fjölda frumna í CellCount breytunni, sem síðan birtist í stöðustikunni. Í vinnunni mun þetta líta svona út:

Gagnlegar upplýsingar í stöðustikunni

Auðvitað geturðu sameinað þetta og fyrri fjölva til að sýna bæði heimilisfang valins sviðs og fjölda frumna á sama tíma. Þú þarft aðeins að breyta einni næstsíðustu línu í:

Application.StatusBar = "Valið: " & Replace(Selection.Address(0, 0), ",", ", ") & " - samtals " & CellCount & " frumur"

Þá verður myndin alveg dásamleg:

Gagnlegar upplýsingar í stöðustikunni

Jæja, ég held að þú skiljir hugmyndina. Leggðu til í athugasemdunum - hvað annað væri gagnlegt að birta á stöðustikunni?

  • Hvað eru fjölvi, hvernig þau virka, hvernig á að nota þau og búa þau til
  • Þægilegt hnitval á Excel blaði
  • Hvernig á að gera flóknar formúlur sjónrænari

Skildu eftir skilaboð