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

• #17490 Delila_1 veterán csferke #17473

  Új Válasz 2013-03-31 17:34:05 #17490

  Ú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 csferke #17473 üzenetére

  Nálam Calendar1 névre hallgat a vezérlő, írd át.

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If IsDate(Target) Then
  Me.Calendar1.Value = Target
  Else
  Me.Calendar1.Value = Date
  End If
  End Sub

  A Now függvény időértéket ad, az aktuális dátumot a Date adja.

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