UserForm - poloha v okně Vyřešeno

[VALL]

Ahoj,
Hledám řešení pro zapozicování user formu.
Potřebuji, aby když kliknu do nějaké oblasti např., do buňky C10 tak, aby po vyvolání UserFormu se daný user form přikotvil k rohu vybrané buňky (jedno kterému).

[Reklama]

[karel.laska]

Zdravím,

možná to bude zcestný, přesto, takto si zobrazuji kalendář.
Třeba to půjde podobně i s Vaším formulářem.

Kód: Vybrat vše

    If Not Intersect(Target, Range("C1:C2")) Is Nothing Then
         With Calendar1
            .Visible = True
            .Left = ActiveCell.Left + ActiveCell.Width
            .Top = ActiveCell.Top
            .Value = ActiveCell.Value
        End With
        kaledarvisible = True
       
    Else
        If kaledarvisible = True Then
            Calendar1.Visible = False
            kaledarvisible = False
        End If
    End If


S pozdravem
Láska Karel

[VALL]

Díky za inspiraci. Kód jsem musel trochu přepsat a funguje to.
Mám tam jenom malou drobnost a to, když zjistím polohu buňku a podle této polohy chci umístit UserForm, tak se nezakotví rohem na roh buňky, ale o nějakou korekci dovnitř buňky (zjistil jsem že je to kurzor na kurzor) a nad buňku.
Nevíte někdo, jak ukotvit roh UserFormu na roh buňky?

Pro ukázku upravený kód pro zapolohování UserFormu dle aktivní buňky.

Kód: Vybrat vše

Private Sub UserForm_Activate()
'přikotví k označené buňce UserForm

Dim ac As Object
Set ac = activecell

polohaL = ac.Left + ac.Width
polohaT = ac.Top + UserForm1.Height + ac.Height

UserForm1.Left = polohaL
UserForm1.Top = polohaT

End Sub

[karel.laska]

Zdravím,

myslím že by mělo stačit odstranit ac.Width
protože tím se posune začátek na další buňku.

Karel Láska

[VALL]

Odstranění ac.Width udělá to, že se žačátek posune před buňku.

[karel.laska]

Aha,

to jsem nezkoušel...

Teď už ano :-)..
Zkuste tedy místo ac.Width dát přímo hodnotu (třeba 3)

Láska Karel