< návrat zpět

MS Excel


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

Zaslal/a 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
#056046
avatar

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: zip56046_epd_2023t-2_5_2.zip (178kB, staženo 6x)
citovat
#056048
Začátečník
Přesunout Application.DisplayAlerts = False v proceduře Nacti_osobni_udaje_Click za dialog pro otevření souboru.citovat
#056049
avatar

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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46