< návrat zpět

MS Excel

Téma: Zobrazení Label v listu při MouseMove rss

Zaslal/a pavelo 22.1.2024 22:48

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
Začátečník
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
avatar
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 7 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
Začátečník
Makro List1.HideLabel1 neexistuje
existuje pouze HideLabel1citovat
pavelo(23.1.2024 12:06)#056037
avatar

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
Začátečník

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
avatar

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
Začátečník
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
avatar

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: zip56041_epd_2023t-2_5_1.zip (172kB, staženo 4x)
citovat
Začátečník(23.1.2024 16:40)#056042
Začátečník
Tak já asi moc nepomohu, protože se mi při sebelepší snaze tento výtvor nedaří na MSO 2007 ani otevřít.citovat
Stalker(23.1.2024 16:45)#056043
Stalker
Umístit do standardního modulu
Private Sub HideLabel1()
List1.Label1.Visible = False
End Sub
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje