Gwybodaeth ddefnyddiol yn y bar statws

Mae rhywun yn hoffi, ond yn bersonol mae angen bar statws arnaf mewn 2-3 achos yn unig:

  • ar ôl hidlo, mae'n dangos nifer y gwerthoedd sy'n weddill ar ôl y dewis
  • pan ddewisir ystod, mae'n dangos swm, cyfartaledd, a nifer y celloedd dethol
  • yn achos ffeiliau trwm, gallwch weld y cynnydd wrth ailgyfrifo fformiwlâu yn y llyfr.

Nid yn gymaint am linell sy'n cymryd bron lled cyfan y sgrin ac yn hongian arno drwy'r amser. Gadewch i ni geisio ehangu'r rhestr gymedrol hon ac ychwanegu ychydig o nodweddion mwy defnyddiol ati 🙂

Egwyddorion cyffredinol ar gyfer rheoli'r bar statws

Mae rheoli'r bar statws gyda Visual Basic yn hawdd iawn. I arddangos eich testun ynddo, gallwch ddefnyddio macro syml:

Sub MyStatus() Application.StatusBar = "Rhaglen!" Diwedd Is

Ar ôl ei redeg, rydym yn cael:

Gwybodaeth ddefnyddiol yn y bar statws

I adfer cyflwr gwreiddiol y bar statws, bydd angen yr un “gwrth-macro” byr arnoch chi:

Is MyStatus_Off() Application.StatusBar = Diwedd Anghywir Is

Yn y fersiwn sylfaenol, fel y gwelwch, mae popeth yn syml iawn. Nawr gadewch i ni geisio datblygu'r syniad ...

Cyfeiriad yr ystod a ddewiswyd yn y bar statws

 Yng nghornel chwith uchaf ffenestr Excel yn y bar fformiwla, gallwch chi bob amser weld cyfeiriad y gell gyfredol. Ond os dewisir ystod gyfan, yna, yn anffodus, ni welwn y cyfeiriad dewis yno - mae'r un gell weithredol sengl yn cael ei harddangos:

Gwybodaeth ddefnyddiol yn y bar statws

I ddatrys y broblem hon, gallwch ddefnyddio macro syml a fydd yn dangos cyfeiriad yr ardal a ddewiswyd yn y bar statws. Ar ben hynny, dylid lansio'r macro hwn yn awtomatig, gydag unrhyw newid yn y dewis ar unrhyw ddalen - ar gyfer hyn byddwn yn ei roi yn y triniwr digwyddiad DetholChange ein llyfr.

Agorwch y Golygydd Sylfaenol Gweledol gan ddefnyddio'r botwm o'r un enw ar y tab datblygwr (Datblygwr) neu lwybrau byr bysellfwrdd Chwith Alt+F11. Dewch o hyd i'ch llyfr yng nghornel chwith uchaf y panel Prosiect ac agorwch y modiwl ynddo trwy glicio ddwywaith Mae'r llyfr hwn (Y Llyfr Gwaith Hwn):

Yn y ffenestr sy'n agor, copïwch a gludwch y cod macro canlynol:

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

Nawr, pan ddewisir unrhyw ystod (gan gynnwys mwy nag un!), bydd ei gyfeiriad yn cael ei arddangos yn y bar statws:

Gwybodaeth ddefnyddiol yn y bar statws

Er mwyn atal cyfeiriadau sawl ystod a ddewiswyd gyda Ctrl rhag uno, gallwch ychwanegu gwelliant bach - defnyddiwch y swyddogaeth Amnewid i ddisodli coma gyda choma gyda gofod:

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

Nifer y celloedd a ddewiswyd yn y bar statws

Pan ddewisir unrhyw ystod, dangosir nifer y celloedd dethol nad ydynt yn wag ar ochr dde'r bar statws yn ddiofyn. Weithiau mae angen i chi wybod nifer y rhai a neilltuwyd. Gellir cyflawni'r dasg hon hefyd gyda macro syml i drin y digwyddiad llyfr SelectionChange, fel yn yr enghraifft flaenorol. Bydd angen macro fel:

Is Breifat Llyfr Gwaith_TaflenDewisiadauNewid(ByVal Sh Fel Gwrthrych, ByVal Targed Fel Ystod) Dim CellCyfrif Fel Amrywiad, rng Fel Ystod Ar Gyfer Pob rng Mewn Detholiad.Ardaloedd 'Iteru trwy bob detholiad RowsCount = rng.Rows.Count 'nifer y rhesi ColumnsCount = rng.Column . Cyfrif ' nifer y colofnau CellCount = CellCount + RowsCount * ColumnsCount ' cronni cyfanswm nifer y celloedd Nesaf ' arddangos yn y bar statws Application.StatusBar = " Dewiswyd: " &CellCount & " cells " Diwedd Is

Mae'r macro hwn yn dolennu trwy'r holl ardaloedd a ddewiswyd gan Ctrl (os oes mwy nag un), yn storio nifer y rhesi a cholofnau ym mhob ardal yn y newidynnau RowsCount a ColumnsCount, ac yn cronni nifer y celloedd yn y newidyn CellCount, a ddangosir wedyn yn y bar statws. Yn y gwaith bydd yn edrych fel hyn:

Gwybodaeth ddefnyddiol yn y bar statws

Wrth gwrs, gallwch chi gyfuno hwn a'r macros blaenorol i arddangos cyfeiriad yr ystod a ddewiswyd a nifer y celloedd ar yr un pryd. Dim ond un llinell olaf ond un sydd angen i chi ei newid i:

Application.StatusBar = "Dewiswyd: " &Replace(Selection.Address(0, 0), ",", ", ") & " - cyfanswm" &CellCount & " celloedd"

Yna bydd y llun yn wych:

Gwybodaeth ddefnyddiol yn y bar statws

Wel, dwi'n meddwl eich bod chi'n cael y syniad. Awgrymwch yn y sylwadau – beth arall fyddai’n ddefnyddiol i’w ddangos yn y bar statws?

  • Beth yw macros, sut maen nhw'n gweithio, sut i'w defnyddio a'u creu
  • Dewis cyfesurynnau cyfleus ar ddalen Excel
  • Sut i wneud fformiwlâu cymhleth yn fwy gweledol

Gadael ymateb