Jste zde: Úvodní stránka » excel » vba-application » status-bar-vba-excel

Status bar - VBA Excel

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

Jak důležité informace zobrazit v stavovém řádku (Status Bar).

Úvodem

Chcete-li využít pro zobrazení stavu probíhajících operací (výpočtu) stavový řádek. Například při delší zpracování je vhodné zobrazit uživateli kolik procent je hotovo. Může si v průběhu zpracování zajít na kafe ;) Případně můžete zobrazovat i jiné údaje (počet žlutých políček ve výběru, atd.

Použijeme Application.StatusBar

Zobrazit prostý text

Úkolem je zobrazit text: Web: www.JakNaExcel.cz je nejlepší ;)


Application.StatusBar = "Web: www.JakNaExcel.cz je nejlepší ;)"

Smazat informace ze StatusBar

Budete-li chtít svou informaci ze stavového řádku vymazat.


Application.StatusBar = False

Kolik procent je hotovo

Ukázkový příklad, který ve stavovém řádku bude informovat o procentním splnění úkolů. VBA skript bude vyplňovat 10 políček náhodnými čísly. Pro přehlednost je v kódu časové zpoždění 1 sekunda za každým zapsaným číslem.


Dim i As Integer, j As Integer
Dim ProcentHotovo As Integer
For i = 1 To 10
    For j = 1 To 10
        Cells(i, j).Value = WorksheetFunction.RandBetween(20, 100)
        
        ProcentHotovo = ((i - 1) * 10) + j
        Application.StatusBar = "Tvorba dat z " & ProcentHotovo & "% kompletní."
        Application.Wait Now + TimeValue("00:00:01") 'zpoždění 1 sec

	'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        'Sleep 50 ' zpoždění

    Next j
Next i

Application.StatusBar = False

Poznámka: Ukončení ESC

Závěrem

Využíváte pro zobrazování informací stavový řádek? Nebo řešíte jinak?

Článek byl aktualizován: 22.02.2015 11:01

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

Komentáře

Petr Pecháček

Přidáno: 28.02.15 11:31

Právě mi v pozadí běží kód VBA, který stavového řádku využívá k zobrazení průběhu. Jinak se do něj cpou tzv. ProgressBary, ať už pravé (API), nebo falešné (obrázkové fonty). Nicméně v delších kódech bývá ScreenUpdating=False, který, byť ne výrazně, ale přeci jen, zobrazení ovlivňuje. Větší "frajeřina" je nechat si informace zobrazovat v bublině vpravo v systémové liště Windows (API).