Obsah
Někdo jako, ale já osobně potřebuji stavový řádek pouze ve 2-3 případech:
- po filtrování zobrazí počet hodnot zbývajících po výběru
- když je vybrán rozsah, zobrazí se součet, průměr a počet vybraných buněk
- v případě těžkých souborů je v knize vidět pokrok v přepočítávání vzorců.
Na linku, která zabírá téměř celou šířku obrazovky a neustále na ní visí, už tolik ne. Zkusme tento skromný seznam rozšířit a přidat do něj pár dalších užitečných funkcí 🙂
Obecné zásady pro správu stavového řádku
Správa stavového řádku pomocí jazyka Visual Basic je velmi snadná. Chcete-li v něm zobrazit svůj text, můžete použít jednoduché makro:
Sub MyStatus() Application.StatusBar = "Привет!" End Sub
Po jeho spuštění dostaneme:
Chcete-li obnovit původní stav stavového řádku, budete potřebovat stejné krátké „anti-makro“:
Sub MyStatus_Off() Application.StatusBar = False End Sub
V základní verzi, jak vidíte, je vše velmi jednoduché. Nyní se pokusíme myšlenku rozvinout…
Adresa vybraného rozsahu ve stavovém řádku
V levém horním rohu okna Excelu na řádku vzorců vždy vidíte adresu aktuální buňky. Ale pokud je vybrán celý rozsah, bohužel tam neuvidíme adresu výběru – zobrazí se stejná jediná aktivní buňka:
K vyřešení tohoto problému můžete použít jednoduché makro, které ve stavovém řádku zobrazí adresu vybrané oblasti. Navíc by se toto makro mělo spouštět automaticky při jakékoli změně výběru na libovolném listu – za tímto účelem jej umístíme do obsluhy události SelectionChange naše kniha.
Otevřete Editor jazyka Visual Basic pomocí stejnojmenného tlačítka na kartě vývojka (Vývojář) nebo klávesové zkratky Levý Alt+F11. Najděte svou knihu v levém horním rohu panelu Projekt a otevřete modul v ní poklepáním Tato kniha (Tento sešit):
V okně, které se otevře, zkopírujte a vložte následující kód makra:
Private Sub Workbook_SelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Selection.Address(0, 0) End Sub
Nyní, když je vybrán jakýkoli rozsah (včetně více než jednoho!), jeho adresa se zobrazí ve stavovém řádku:
Chcete-li zabránit sloučení adres několika rozsahů vybraných pomocí Ctrl, můžete přidat malé vylepšení – pomocí funkce Nahradit nahraďte čárku čárkou mezerou:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.StatusBar = "Выделено: " & Replace(Selection.Address(0, 0), ",", ", ") End Sub
Počet vybraných buněk ve stavovém řádku
Když je vybrán jakýkoli rozsah, počet neprázdných vybraných buněk se ve výchozím nastavení zobrazí na pravé straně stavového řádku. Někdy potřebujete znát počet přidělených. Tento úkol lze také provést pomocí jednoduchého makra pro zpracování události knihy SelectionChange, jako v předchozím příkladu. Budete potřebovat makro jako:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim CellCount jako varianta, rng as range for each rng In Selection.Areas 'Iterace přes všechny výběry RowsCount = rng.Rows.Count 'počet řádků ColumnsCount = rng.Areas . Count 'počet sloupců CellCount = CellCount + RowsCount * ColumnsCount 'shromáždit celkový počet buněk Další 'zobrazit ve stavovém řádku Application.StatusBar = "Selected: " & CellCount & " cells" End Sub
Toto makro prochází všechny oblasti vybrané klávesou Ctrl (pokud je jich více), ukládá počet řádků a sloupců v každé oblasti do proměnných Počet řádků a Počet sloupců a shromažďuje počet buněk v proměnné Počet buněk, která se pak zobrazí ve stavovém řádku. V práci to bude vypadat takto:
Toto a předchozí makra můžete samozřejmě zkombinovat a současně zobrazit jak adresu zvoleného rozsahu, tak počet buněk. Stačí změnit jeden předposlední řádek na:
Application.StatusBar = "Selected: " & Replace(Selection.Address(0, 0), ",", ", ") & " - total " & CellCount & " cells"
Pak bude obrázek docela úžasný:
No, myslím, že chápete. Navrhněte v komentářích – co dalšího by bylo užitečné zobrazit ve stavovém řádku?
- Co jsou makra, jak fungují, jak je používat a vytvářet
- Pohodlný výběr souřadnic na listu Excel
- Jak učinit složité vzorce vizuálnějšími