Tweet

Status bar - VBA Excel

Ú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: 19.09.2020 11:06

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

" ; // echo "kompletni_cesta :" ; // echo $adresar_pro_vkladani ; // echo "
" ; // echo " Tady bude možnost přidání komentáře" ; // echo "
" ; // echo "
" ; $kompletni_cesta = "komentare"; $adresar_pro_vkladani = $kompletni_cesta; ?> \n"; reset($polozky); while (list($key, $val) = each($polozky)) { if ($val != "." && $val != "..") { if (!is_dir($val)) { // echo "$val
\n"; $fp = FOpen ($adresar_pro_vkladani."/".$val, "r"); //otevře soubor book.dat pro čtení $data = FRead ($fp, FileSize($adresar_pro_vkladani."/".$val)); //přečte data ze souboru a uloží do proměnné "data" - kvůli tomu aby se zobrazoval poslední příspěvek nahoře FClose($fp); echo "$data"; } } } ?>