Kaundan
Adunay usa nga gusto, apan ako personal nga nanginahanglan usa ka status bar lamang sa 2-3 nga mga kaso:
- pagkahuman sa pagsala, gipakita niini ang gidaghanon sa mga kantidad nga nahabilin pagkahuman sa pagpili
- kung gipili ang usa ka range, gipakita niini ang sum, average, ug gidaghanon sa pinili nga mga cell
- sa kaso sa bug-at nga mga file, imong makita ang pag-uswag sa pag-recalculate sa mga pormula sa libro.
Dili kaayo alang sa usa ka linya nga hapit sa tibuuk nga gilapdon sa screen ug nagbitay niini sa tanan nga oras. Atong sulayan nga palapdan kining kasarangan nga lista ug idugang ang pipila nga labi ka mapuslanon nga bahin niini 🙂
Kinatibuk-ang mga prinsipyo sa pagdumala sa status bar
Ang pagdumala sa status bar gamit ang Visual Basic sayon ra kaayo. Aron ipakita ang imong teksto niini, mahimo nimong gamiton ang usa ka yano nga macro:
Sub MyStatus() Application.StatusBar = "Привет!" Katapusan nga Sub
Human sa pagpadagan niini, atong makuha:
Aron mabalik ang orihinal nga kahimtang sa status bar, kinahanglan nimo ang parehas nga mubo nga "anti-macro":
Sub MyStatus_Off() Application.StatusBar = False End Sub
Sa sukaranan nga bersyon, ingon sa imong makita, ang tanan yano ra kaayo. Karon atong sulayan ang pagpalambo sa ideya…
Address sa pinili nga range sa status bar
Sa ibabaw nga wala nga suok sa Excel window sa formula bar, kanunay nimo makita ang adres sa kasamtangan nga cell. Apan kung ang usa ka tibuuk nga hanay gipili, nan, sa kasubo, dili namon makita ang adres sa pagpili didto - parehas nga usa ka aktibo nga cell ang gipakita:
Aron masulbad kini nga problema, mahimo nimong gamiton ang usa ka yano nga macro nga magpakita sa adres sa napili nga lugar sa status bar. Dugang pa, kini nga macro kinahanglan nga awtomatikong ilunsad, nga adunay bisan unsang pagbag-o sa pagpili sa bisan unsang sheet - alang niini ibutang namon kini sa tigdumala sa panghitabo Pagpili sa Pagpili atong libro.
Ablihi ang Visual Basic Editor gamit ang buton sa parehas nga ngalan sa tab developer (Developer) o mga keyboard shortcut Gibiyaan ang Alt+F11. Pangitaa ang imong libro sa ibabaw nga wala nga suok sa Project panel ug ablihi ang module niini pinaagi sa pag-double click Kini nga libro (Kini nga Workbook):
Sa bintana nga nagbukas, kopyaha ug idikit ang mosunod nga macro code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub
Karon, kung gipili ang bisan unsang range (lakip ang labaw sa usa!), ang adres niini ipakita sa status bar:
Aron mapugngan ang mga adres sa daghang mga han-ay nga gipili gamit ang Ctrl gikan sa paghiusa, mahimo nimong idugang ang usa ka gamay nga pag-uswag - gamita ang Pag-ilis nga function aron mapulihan ang usa ka comma sa usa ka koma nga adunay usa ka espasyo:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Puli(Selection.Address(0, 0), ",", ", ") End Sub
Gidaghanon sa pinili nga mga selula sa status bar
Kung gipili ang bisan unsang range, ang gidaghanon sa wala’y sulod nga gipili nga mga cell gipakita sa tuo nga bahin sa status bar nga default. Usahay kinahanglan nimo mahibal-an ang gidaghanon sa gigahin. Kini nga buluhaton mahimo usab nga matuman gamit ang usa ka yano nga macro aron pagdumala sa kalihokan sa libro sa SelectionChange, sama sa miaging pananglitan. Kinahanglan nimo ang usa ka macro sama sa:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount As Variant, rng As Range Para sa Matag rng Sa Selection.Areas 'Iterate pinaagi sa tanang mga pinili RowsCount = rng.Rows.Count 'numero sa mga row ColumnsCount = rng.Columns . Ihap ang 'gidaghanon sa mga kolum CellCount = CellCount + RowsCount * ColumnsCount 'pagtigom sa kinatibuk-ang gidaghanon sa mga cell Sunod 'display sa status bar Application.StatusBar = "Napili: " & CellCount & " cells" End Sub
Kini nga macro loops sa tanang Ctrl-selected areas (kung adunay labaw pa sa usa), nagtipig sa gidaghanon sa mga row ug column sa matag lugar sa RowsCount ug ColumnsCount variables, ug nagtigum sa gidaghanon sa mga cell sa CellCount variable, nga dayon gipakita. sa status bar. Sa trabahoan kini tan-awon sama niini:
Siyempre, mahimo nimong ikombinar kini ug ang naunang mga macro aron ipakita ang adres sa pinili nga range ug ang gidaghanon sa mga cell sa samang higayon. Kinahanglan ra nimo nga usbon ang usa ka penultimate nga linya sa:
Application.StatusBar = "Gipili: " & Ilisan(Selection.Address(0, 0), ",", ", ") & " - total " & CellCount & " cells"
Unya ang hulagway mahimong nindot kaayo:
Aw, sa akong hunahuna nakuha nimo ang ideya. Isugyot sa mga komento - unsa pa ang mapuslanon nga ipakita sa status bar?
- Unsa ang mga macro, kung giunsa kini pagtrabaho, kung giunsa kini gamiton ug paghimo niini
- Sayon nga pagpili sa coordinate sa usa ka sheet sa Excel
- Giunsa paghimo ang komplikado nga mga pormula nga labi ka makita