Új hozzászólás Aktív témák

  • Delila_1

    veterán

    válasz Tyren #14673 üzenetére

    2007-esben próbáltam ki.

    Fejlesztőeszközök | Vezérlők | Beszúrás | ActiveX-vezérlők. Rákattintasz a jobb alsó sarokban lévő További vezérlők ikonra, mire kapsz róluk egy felsorolást. Ezek közül a Naptár vezérlőelem kell neked. A kapott szálkereszttel négyszöget rajzolsz. Jobb klikkre kapsz egy tulajdonságok ablakot, ahol mindenfélét formázhatsz rajta.
    A menüszalagon kikapcsolod a Tervező módot.

    A lapfülön jobb klikk, Kód megjelenítése. A VB szerkesztőbe jutottál, itt a jobb oldali üres lapra másold be a makrót.

    Két sort írok bele, amik közül csak az egyiket hagyhatod meg.
    1. A lapodon lévő aktuális sor A oszlopába írja be a naptárban kiválasztott napot. Ezt az oszlopot a Cells(Selection.Row,1) 1-ese határozza meg. Kettesre átírva az akt. sor B oszlopába ír, és így tovább.

    2. A lapod bármelyik celláján állsz, kiválasztod a vezérlőn a dátumot, erre az aktuális celládban megjelenik a dátum.

    Private Sub Calendar1_Click()
    Cells(Selection.Row, 1) = Me.Calendar1.Value
    Selection = Me.Calendar1.Value
    End Sub

    Egy másik makrót is írj a fenti alá (vagy fölé).

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 3 Then
    Me.Calendar1.Visible = True
    Else
    Me.Calendar1.Visible = False
    End If
    End Sub

    Ennek az a feladata, hogy ha a C oszlop valamelyik cellájára klikkelsz, megjelenik a naptár vezérlő, más oszlopra lépve eltűnik. A C oszlopot a Target.Column=3 hármasa határozza meg.

Új hozzászólás Aktív témák