MS Excel

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

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: « předchozí 1 2

pavelo(23.1.2024 20:02)#056046

Stalker napsal/a:

Umístit do standardního modulu
Private Sub HideLabel1()
List1.Label1.Visible = False
End Sub

Díky za reakci. Makro jsem dle rady přemístil do modulu. Label teď funguje jak má. Ale dochází ke konfliktu makra:

Private Sub Nacti_osobni_udaje_Click()

s makrem:

Private Sub Nacti_osobni_udaje_MouseMove

obě v objektu List1
Jsem v koncích a tlačí mě čas, poradíš, prosím?

Příloha: zip

56046_epd_2023t-2_5_2.zip (178kB, staženo 7x)

citovat

Začátečník(24.1.2024 17:32)#056048

Přesunout Application.DisplayAlerts = False v proceduře Nacti_osobni_udaje_Click za dialog pro otevření souboru.citovat

pavelo(24.1.2024 21:52)#056049

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

Přesunout Application.DisplayAlerts = False v proceduře Nacti_osobni_udaje_Click za dialog pro otevření souboru.

Vypadá to, že ten přesun problém opravdu vyřešil. Já tomu sice nerozumím, ale nějak se s tím vyrovnám...
Mockrát děkuju za pomoc.citovat

Strana: « předchozí 1 2

Uživatelské menu

Nejste přihlášen(a)

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.