MS Excel

Dobrý den, mám potíže s chováním makra, kterým při najetí myši na tlačítko v listu má na definovanou dobu zobrazit Label. Vlastní Label je vytvořen na žádaném místě přímo v listu. Mám tento kód:Private Sub Nacti_osobni_udaje_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1.Visible = True Then Exit Sub
Label1.Visible = True
Application.OnTime Now + TimeValue("00:00:04"), "List1.HideLabel1"
End Sub

Private Sub WorkSheet_Deactivate()
Label1.Visible = False
End Sub
Label se zobrazí, ale po nastavené době vyskočí chybová hláška: Makro (cesta a název sešitu)List1.HideLabel1 nelze spustit. A Label zůstane visible=true. Mám to evidentně blbě. Poradí, prosím, někdo znalý?

Zaslat odpověď >

Strana: 1 2 další »

Začátečník(23.1.2024 9:51)#056034

Application.OnTime Now + TimeValue("00:00:04"), "moje_makro"
OnTime spustí definované makro, evidentně to makro v modulu není, když to hlásí.
Dopsat si moje_makro, které zabezpečí skrytí labelucitovat

pavelo(23.1.2024 10:54)#056035

Dělal jsem úpravy, tak jsem nevědomky změnil název volaného makra. Po úpravě viz níže se zdálo, že problem je vyřešn, ale při testování tlačítka samotného (Nacti_osobni_udaje_Click) dochází k nějakému konfliktu (nepracuje) s tím makrem ke zobrazení/skrytí Label1. !?
run-time error "50290"
A taky po každém spuštění Makra CommandButton s chybou dojde ke zmenšení textu Caption na tlačítku, takže je menší a menší... !?
Nevím si s tím rady

Private Sub Nacti_osobni_udaje_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Visible = True
Application.OnTime Now + TimeValue("00:00:04"), "List1.HideLabel1"
End Sub

Private Sub HideLabel1()
Label1.Visible = False
End SubPodotýkám, že všechna uvedená makra jsou v objektu List1citovat

Začátečník(23.1.2024 11:36)#056036

Makro List1.HideLabel1 neexistuje
existuje pouze HideLabel1citovat

pavelo(23.1.2024 12:06)#056037

Začátečník napsal/a:

Makro List1.HideLabel1 neexistuje
existuje pouze HideLabel1

Hmm..., to je hezké, ale co s tím, jak to mám opravit, aby to bylo funkční?citovat

Začátečník(23.1.2024 13:35)#056038

pavelo napsal/a:

Hmm..., to je hezké, ale co s tím, jak to mám opravit, aby to bylo funkční?

Že by to šlo opravit zadáním správného názvu spouštěného makra?
Application.OnTime Now + TimeValue("00:00:04"), "HideLabel1"citovat

pavelo(23.1.2024 13:54)#056039

Začátečník napsal/a:

pavelo napsal/a:Hmm..., to je hezké, ale co s tím, jak to mám opravit, aby to bylo funkční?
Že by to šlo opravit zadáním správného názvu spouštěného makra?
Application.OnTime Now + TimeValue("00:00:04"), "HideLabel1"

Zase tak omezený nejsem. Vyzkoušel jsem. Když jsem to takto upravil, tak se to celé zacyklilo a musel jsem natvrdo shodit Excel... V okně se zprávou Excelu stálo:
Makro 'C:\Users\...\Název_sešitu.xlsm'!Hidelabel1 nelze spustit. Toto makro není pravděpodobně v sešitu k dispozici nebo jsou zakázána všechna makra.
Nemůže být problém v tom, kde to makro (ta makra) jsou umístěna?citovat

Začátečník(23.1.2024 15:10)#056040

Kdyby byl soubor tak by se to možná dalo i posoudit lépe, kde je chyba.
Je to na tomto fóru docela standard, přikládat vzorové soubory.citovat

pavelo(23.1.2024 15:24)#056041

Začátečník napsal/a:

Kdyby byl soubor tak by se to možná dalo i posoudit lépe, kde je chyba.
Je to na tomto fóru docela standard, přikládat vzorové soubory.

Tomu jsem se chtěl vyhnout, nu co už... já jdu s prosíkem. Přikládám přílohu.
Záležitost a problém, o který jde, je na listu "Vstupní data":
- CommandButton (Nacti_osobni_udaje)
- Label1

Příloha: zip