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

• #14674 Delila_1 veterán Tyren #14673

  Új Válasz 2012-08-18 15:43:21 #14674

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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