Përmbajtje
Dikush pëlqen, por unë personalisht kam nevojë për një shirit statusi vetëm në 2-3 raste:
- pas filtrimit, ai shfaq numrin e vlerave të mbetura pas përzgjedhjes
- kur zgjidhet një varg, ai shfaq shumën, mesataren dhe numrin e qelizave të zgjedhura
- në rastin e skedarëve të rëndë, mund të shihni përparimin në rillogaritjen e formulave në libër.
Jo aq shumë për një linjë që zë pothuajse të gjithë gjerësinë e ekranit dhe varet gjatë gjithë kohës në të. Le të përpiqemi ta zgjerojmë këtë listë modeste dhe t'i shtojmë disa veçori të tjera të dobishme 🙂
Parimet e përgjithshme për menaxhimin e shiritit të statusit
Menaxhimi i shiritit të statusit me Visual Basic është shumë i lehtë. Për të shfaqur tekstin tuaj në të, mund të përdorni një makro të thjeshtë:
Nën MyStatus() Application.StatusBar = "Përgjigje!" Fundi Nën
Pasi ta ekzekutojmë, marrim:
Për të rivendosur gjendjen origjinale të shiritit të statusit, do t'ju duhet i njëjti "anti-makro" i shkurtër:
Nën MyStatus_Off() Application.StatusBar = False Fund Sub
Në versionin bazë, siç mund ta shihni, gjithçka është shumë e thjeshtë. Tani le të përpiqemi të zhvillojmë idenë…
Adresa e diapazonit të zgjedhur në shiritin e statusit
Në këndin e sipërm të majtë të dritares së Excel në shiritin e formulave, gjithmonë mund të shihni adresën e qelizës aktuale. Por nëse zgjidhet një gamë e tërë, atëherë, për fat të keq, nuk do ta shohim adresën e përzgjedhjes atje - shfaqet e njëjta qelizë e vetme aktive:
Për të zgjidhur këtë problem, mund të përdorni një makro të thjeshtë që do të shfaqë adresën e zonës së zgjedhur në shiritin e statusit. Për më tepër, kjo makro duhet të lansohet automatikisht, me çdo ndryshim në përzgjedhjen në çdo fletë - për këtë ne do ta vendosim atë në mbajtësin e ngjarjeve Zgjedhja Ndryshimi librin tonë.
Hapni Redaktorin Visual Basic duke përdorur butonin me të njëjtin emër në skedë zhvillues (Zhvilluesi) ose shkurtoret e tastierës Alt+F11 majtas. Gjeni librin tuaj në këndin e sipërm të majtë të panelit të Projektit dhe hapni modulin në të duke klikuar dy herë Ky libër (Ky Libër pune):
Në dritaren që hapet, kopjoni dhe ngjisni kodin makro të mëposhtëm:
Nën Private Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Veçeduar: " & Selection.Address(0, 0) Fund Sub
Tani, kur zgjidhet ndonjë varg (duke përfshirë më shumë se një!), adresa e tij do të shfaqet në shiritin e statusit:
Për të parandaluar bashkimin e adresave të disa vargjeve të zgjedhura me Ctrl, mund të shtoni një përmirësim të vogël - përdorni funksionin Replace për të zëvendësuar një presje me një presje me një hapësirë:
Nën-Private Libri i Punës_SheetSelectionChange(ByVal Sh Si objekt, ByVal Target As Range) Application.StatusBar = "Veç i caktuar: " & Replace(Selection.Address(0, 0), ",", ", ") Fundi i nënës
Numri i qelizave të zgjedhura në shiritin e statusit
Kur zgjidhet ndonjë diapazon, numri i qelizave të zgjedhura jo bosh shfaqet si parazgjedhje në anën e djathtë të shiritit të statusit. Ndonjëherë ju duhet të dini numrin e alokuar. Kjo detyrë mund të realizohet gjithashtu me një makro të thjeshtë për të trajtuar ngjarjen e librit SelectionChange, si në shembullin e mëparshëm. Do t'ju duhet një makro si:
Nën-Libri i Punës Private_FletëSelectionChange(ByVal Sh si objekt, ByVal Target si diapazon) Dim CellCount As Variant, rng Si Range Për çdo rng Në Selection.Zonat 'Përsërite nëpër të gjitha përzgjedhjet RowsCount = rng.Rreshtat.Numërimi 'numri i rreshtave rng.ColumnsCountns = . Numërimi 'numri i kolonave CellCount = CellCount + Numri i Rreshtave * ColumnsCount' grumbullohet numri i përgjithshëm i qelizave Tjetra 'shfaq në shiritin e statusit Application.StatusBar = "Zgjedhur: " & CellCount & " qeliza Fund Sub
Kjo makro kalon nëpër të gjitha zonat e zgjedhura nga Ctrl (nëse ka më shumë se një), ruan numrin e rreshtave dhe kolonave në secilën zonë në variablat RowsCount dhe ColumnsCount dhe grumbullon numrin e qelizave në variablin CellCount, i cili më pas shfaqet në shiritin e statusit. Në punë do të duket kështu:
Natyrisht, mund të kombinoni këtë dhe makrot e mëparshme për të shfaqur njëkohësisht adresën e gamës së zgjedhur dhe numrin e qelizave. Ju duhet të ndryshoni vetëm një rresht të parafundit në:
Application.StatusBar = "Zgjedhur: " & Replace(Selection.Address(0, 0), ",", ", ") & " - totali " & CellCount & " qelizat"
Atëherë fotografia do të jetë mjaft e mrekullueshme:
Epo, mendoj se e keni idenë. Sugjeroni në komente – çfarë tjetër do të ishte e dobishme për të shfaqur në shiritin e statusit?
- Çfarë janë makrot, si funksionojnë, si t'i përdorin dhe krijojnë ato
- Zgjedhja e përshtatshme e koordinatave në një fletë Excel
- Si t'i bëni formulat komplekse më vizuale