|
Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Jak důležité informace zobrazit v stavovém řádku (Status Bar).
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
Úkolem je zobrazit text: Web: www.JakNaExcel.cz je nejlepší ;)
Application.StatusBar = "Web: www.JakNaExcel.cz je nejlepší ;)"
Budete-li chtít svou informaci ze stavového řádku vymazat.
Application.StatusBar = False
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
Využíváte pro zobrazování informací stavový řádek? Nebo řešíte jinak?
Článek byl aktualizován: 19.09.2020 11:06
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.
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ů.
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).
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2021 |