Přeskočit navigaci | Přeskočit na novinky
     

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

Status bar - VBA Excel

Videokurzy Excel

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

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

Microsoft Excel logo

Ú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.

StatusBar Excel
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

Pavel Lasák

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2000 (od 2004 ne této doméně) - Roku 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 také na on-line videích pro SEDUO. Školím a konzultuji, učím na MUNI. Hlavně tvořím tento web. Je zde k dispozici přes 1.000 návodu, tipů a triků včetně stovek různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


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).







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

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 - 2017 | 4113

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.