MS Excel

Při delším zpracování tabulky pomocí VBA bych chtěl,
aby byla zobrazována zpráva např: "ČEKEJ, PRACUJI".

Díky za nápovědu.

Laďa

Zaslat odpověď >

AL(12.5.2014 23:06)#019433

V podstate minimálne upravené z on-line nápovedy k statusbar:Sub test()
Dim oldStatusBar As String
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
'Workbooks.Open Filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Subcitovat

eLCHa(13.5.2014 6:35)#019435

@AL
mno, ono to možná nebude až takhle jednoduché. Protože upřímně, zprávy ve status baru si hned tak někdo nevšimne.
Spíše myslím, že se chce vidět okno se zprávou v době chodu kódu. Takže např.:
UserForm, ShowModal nastavený na False, v něm Label s textem "ČEKEJ, PRACUJI", zobrazený na začátku kódu a ukončený na konci a deaktivující "křížek" pomocíPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End SubJsou tam ale ještě ale (např: TopMost, kliknutí mimo), takže by se muselo vidět konkrétně, možná postačí urychlit běh kódu.citovat

kp57(13.5.2014 16:19)#019452

Ahoj lidi!
Já to řeším vložením WordArt.
Když vím, že běh makra si vyžaduje nějakou dobu (importy, exporty na síti atd.) vložím na začátku procedury WordArt (čekej makám) pojistím to "ScreenUpdating = True", pak False. Potom pro případ, že by se běhěm chodu makra něco zvrtlo, vyměním WordArt s hláškou (chyba makra + klv.zkratka). Tato hláška se samozřejmě objeví pouze v případě nechtěného ukončení makra a nabádá, aby pomocí klávesové zkratky bylo vše uvedeno do normálu (Události, přepočet, zámky atd). Na konci kodu tento WordArt odstraním.citovat

Téma: zobrazení zprávy při práci excelu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje