• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Info okno o běhu makra

Zaslal/a mrmola 21.10.2010 10:32

Zdravím,

nějak nemůžu vymyslet určitě jednoduchou věc. Potřeboval bych, aby za běhu makra, bylo zobrazeno okno, že se makro zpracovává a po dokončení běhu makra se zase automaticky zavřelo. Pořád se nemohu nějak zbavit tý potřeby mačkat na nějaké tlačítko u msgboxu.
Díky za případnou pomoc

Zaslat odpověď >

---

Strana:  1 2   další »

Stalker(21.10.2010 11:45)#002823

Nejsem odbornik,ale zkusil bych něco takovýho: do kódu makra vložit userform "zpracovávám makro"
na začátek tvýho makra userform.show
na konec makra userform.hidecitovat

Koci(21.10.2010 11:52)#002824

Přesně tak, lze vytvořit user form bez tlačítka, dát tam nějaký text, obrázek nebo něco podobného.. Na začátku makra zavolat show s na konci hide, ale UserForm mus být volán Modálně. Lze nastavit ve vlastnostech na hodnotu true... Pokud se to tak nudělá, tak zavolaný UserFrom zastaví běh makra a čeká na reakci od uživatele...citovat

mrmola(21.10.2010 12:01)#002826

No výborně...to je pro mě trochu matrix , userform vidím dneska prvně.Jdu ho tedy zkusit nastudovat. Díky za radu, snad to dám dohromady.citovat

krapl(21.10.2010 12:27)#002827

Ostatní nabízejí velmi sofisstikovná řešení já používámApplication.DisplayStatusBar = True
Application.StatusBar = "Makro pracuje"
Lze doplnit o proměnné nebo text, který mě informuje o průběhu zpracování makra a přet exitem dámApplication.StatusBar = False
citovat

mrmola(21.10.2010 12:46)#002829

No vida, zase jsem o něco chytřejší, tímhle se nikdy nic nezkazí, avšak v mém případě by se mi přeci jen o trochu víc líbilo okno uprostřed obrazovky.V tom stavovém řádku si toho běžný uživatel většinou nevšimne a při delším zpracování by mohl být nervózní. Každopádně už jsem tyhle tři řádky přidal do svého makra.citovat

krapl(21.10.2010 14:27)#002836

Pak je to poněkud složitější třeba tak:
Application.ScreenUpdating = True
With ActiveSheet.Shapes.AddTextEffect(msoTextEffect22, _
"Všeho zanech nyní za tebe pracuje makro", "Impact", 36#, msoFalse, msoFalse _
, 246.75, 282.75)
.Name = "Info"
End With
Application.ScreenUpdating = False
a na konci:
Application.ScreenUpdating = True
ActiveSheet.Shapes("info").Select
Selection.Deletecitovat

paveku(22.10.2010 7:18)#002839

Taková informace na obrazovce se mi líbí. Tady je natvrdo dána pozice TOP, takže pokud je viditelná obrazovka jinde, tak text není vidět. Šlo by to udělat, aby se text zobrazil v aktivním zobrazení sešitu, event. ve vztahu k aktivní buňce ?citovat

Koci(22.10.2010 8:01)#002840

StatusBar vypadá velmi zajímavě, ale je trochu nepraktický, pač informace v něm se ukazuje na naprosto nenápadném místě. Proto raději používám UserForm, který si umístím kam chci a můžu na něj přidávat třeba i grafiku v podobě načítáacích koleček, běhacích teček a podbných blbostí citovat

krapl(22.10.2010 9:10)#002844

Samozřejmě user form je asi nejelegantnější, status bar nejsnadnější. Možností řešení je mnoho, pro paveku vlož do ThisWorkbook

Public Napis As Shape
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Napis.Delete
End Sub

Private Sub Workbook_Open()
Set Napis = ActiveSheet.Shapes.AddTextEffect(msoTextEffect22, _
"Nyní pracuješ na listu " & ActiveSheet.Name & " buňce " & ActiveCell.Address(False, False), "Impact", 36#, msoFalse, msoFalse _
, 246.75, 282.75)
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Set Napis = ActiveSheet.Shapes.AddTextEffect(msoTextEffect22, _
"Nyní pracuješ na listu " & Sh.Name & " buňce " & ActiveCell.Address(False, False), "Impact", 36#, msoFalse, msoFalse _
, 246.75, 282.75)
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Napis.Delete
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Napis.Delete
Set Napis = ActiveSheet.Shapes.AddTextEffect(msoTextEffect22, _
"Nyní pracuješ na listu " & Sh.Name & " buňce " & Target.Address(False, False), "Impact", 36#, msoFalse, msoFalse _
, 246.75, 282.75)
End Sub

citovat

paveku(22.10.2010 18:18)#002853

Myslel jsem trochu něco jiného. Aby se text zobrazil např. na pozici aktualního řádku. Nyní se zobrazí dle zadaných souřadnic, takže pokud mám obrazovku na řádku 500 tak to není vidět.
User form asi bude nejlepší. Jak se do něho vloží ty "blbosti" jak uvádí Koci.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse