Informazzjoni utli fil-bar tal-istatus

Xi ħadd bħal, imma jien personalment għandi bżonn status bar biss f'2-3 każijiet:

  • wara l-iffiltrar, juri n-numru ta 'valuri li fadal wara l-għażla
  • meta tintgħażel firxa, turi s-somma, il-medja u n-numru ta 'ċelloli magħżula
  • fil-każ ta 'fajls tqal, tista' tara l-progress fil-kalkolu mill-ġdid tal-formuli fil-ktieb.

Mhux daqshekk għal linja li tieħu kważi l-wisa 'sħiħ tal-iskrin u tistrieħ fuqha l-ħin kollu. Ejja nippruvaw nespandu din il-lista modesta u nżidu ftit aktar karatteristiċi utli magħha 🙂

Prinċipji ġenerali għall-ġestjoni tal-istatus bar

Il-ġestjoni tal-istrixxa tal-istatus bil-Visual Basic hija faċli ħafna. Biex turi t-test tiegħek fih, tista' tuża makro sempliċi:

Sub MyStatus() Application.StatusBar = "Minn!" Tmiem Sub

Wara li nħaddmuh, irridu:

Informazzjoni utli fil-bar tal-istatus

Biex tirrestawra l-istat oriġinali tal-istrixxa tal-istatus, ser ikollok bżonn l-istess "anti-makro" qasir:

Sub MyStatus_Off() Application.StatusBar = False End Sub

Fil-verżjoni bażika, kif tistgħu taraw, kollox huwa sempliċi ħafna. Issa ejja nippruvaw niżviluppaw l-idea...

Indirizz tal-firxa magħżula fil-bar tal-istatus

 Fir-rokna ta 'fuq tax-xellug tat-tieqa Excel fil-bar tal-formula, dejjem tista' tara l-indirizz taċ-ċellula attwali. Imma jekk tintgħażel firxa sħiħa, allura, sfortunatament, mhux se naraw l-indirizz tal-għażla hemmhekk - l-istess ċellula waħda attiva hija murija:

Informazzjoni utli fil-bar tal-istatus

Biex issolvi din il-problema, tista 'tuża makro sempliċi li turi l-indirizz taż-żona magħżula fil-bar tal-istatus. Barra minn hekk, din il-makro għandha titnieda awtomatikament, bi kwalunkwe bidla fl-għażla fuq kwalunkwe folja - għal dan aħna se npoġġuha fl-immaniġġjar tal-avvenimenti SelectionChange il-ktieb tagħna.

Iftaħ l-Editur Visual Basic billi tuża l-buttuna tal-istess isem fuq it-tab iżviluppatur (Żviluppatur) jew shortcuts tat-tastiera Alt tax-xellug + F11. Sib il-ktieb tiegħek fir-rokna ta' fuq tax-xellug tal-pannell tal-Proġett u iftaħ il-modulu fih billi tikklikkja darbtejn Dan il-ktieb (Dan il-Ktieb tax-Xogħol):

Fit-tieqa li tiftaħ, ikkupja u waħħal il-kodiċi makro li ġej:

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

Issa, meta tintgħażel xi firxa (inkluż aktar minn waħda!), l-indirizz tagħha se jintwera fil-bar tal-istatus:

Informazzjoni utli fil-bar tal-istatus

Biex tevita li l-indirizzi ta 'diversi firxiet magħżula b'Ctrl jingħaqdu, tista' żżid titjib żgħir - uża l-funzjoni Ibdel biex tissostitwixxi virgola b'virgola bi spazju:

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

Numru ta 'ċelluli magħżula fil-bar tal-istatus

Meta tintgħażel xi firxa, in-numru ta 'ċelluli magħżula mhux vojta jintwera fuq in-naħa tal-lemin tal-istrixxa tal-istatus b'mod awtomatiku. Kultant għandek bżonn tkun taf in-numru ta 'allokati. Dan il-kompitu jista 'jitwettaq ukoll b'makro sempliċi biex jimmaniġġja l-avveniment tal-ktieb SelectionChange, bħal fl-eżempju preċedenti. Ikollok bżonn makro bħal:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount As Varjant, rng As Range Għal kull rng F'Selection.Areas 'Itertu fl-għażliet kollha RowsCount = rng.Rows.Count 'numru ta' ringieli ColumnsCount = rng.Columns . Għadd 'numru ta' kolonni CellCount = CellCount + RowsCount * ColumnsCount 'jakkumula n-numru totali ta 'ċelluli Li jmiss 'display fl-istrixxa tal-istatus Application.StatusBar = "Magħżula: " & CellCount & " ċelloli" End Sub

Dan il-makro jgħaddi fiż-żoni kollha magħżula bi Ctrl (jekk hemm aktar minn waħda), jaħżen in-numru ta’ ringieli u kolonni f’kull żona fil-varjabbli RowsCount u ColumnsCount, u jakkumula n-numru ta’ ċelloli fil-varjabbli CellCount, li mbagħad jintwera. fl-istatus bar. Fuq ix-xogħol se jidher bħal dan:

Informazzjoni utli fil-bar tal-istatus

Naturalment, tista 'tgħaqqad dan u l-macros preċedenti biex turi kemm l-indirizz tal-firxa magħżula kif ukoll in-numru ta' ċelloli fl-istess ħin. Għandek bżonn biss tibdel linja waħda ta' qabel tal-aħħar għal:

Application.StatusBar = "Magħżula: " & Ibdel(Selection.Address(0, 0), ",", ", ") & " - totali " & CellCount & " ċelloli"

Imbagħad l-istampa tkun pjuttost sabiħa:

Informazzjoni utli fil-bar tal-istatus

Ukoll, naħseb li tieħu l-idea. Issuġġerixxi fil-kummenti - x'iktar ikun utli li turi fil-bar tal-istatus?

  • X'inhuma macros, kif jaħdmu, kif tużahom u toħloqhom
  • Għażla konvenjenti tal-koordinati fuq folja Excel
  • Kif tagħmel formuli kumplessi aktar viżwali

Ħalli Irrispondi