UserForm - poloha
Napsal: 26 črc 2012 10:44
Ahoj,
Zobrazuji UserForm dle polohy označené Buňky. Problém nastává v okamžiku, kdy je zobrazená lišta záložek, nebo když se pohne s posuvníky doleva nebo dolů.
Nevíte jak přikotvit user form k aktivní buňce bez ohledu na číslo řádku nebo sloupce?
Uvedené makro zobrazí UserForm v pravém horním rohu označené buňky. Pokud je zobrazena lišta záložek, nebo se pohne s posuvníkem, už to skáče do pryč.
Zobrazuji UserForm dle polohy označené Buňky. Problém nastává v okamžiku, kdy je zobrazená lišta záložek, nebo když se pohne s posuvníky doleva nebo dolů.
Nevíte jak přikotvit user form k aktivní buňce bez ohledu na číslo řádku nebo sloupce?
Uvedené makro zobrazí UserForm v pravém horním rohu označené buňky. Pokud je zobrazena lišta záložek, nebo se pohne s posuvníkem, už to skáče do pryč.
Kód: Vybrat vše
Private Sub UserForm_Activate()
'přikotví k označené buňce UserForm - pravý horní roh (+korekce o rozměr buňky)
'---------------------------------------
Dim ac As Object
Set ac = activecell
polohaL = ac.Left + ac.Width
polohaT = ac.Top + ufPartak.Height + ac.Height
ufPartak.Left = polohaL
ufPartak.Top = polohaT
End Sub