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

• #17473 csferke senior tag

  Új Válasz 2013-03-31 12:16:46 #17473

  Ú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

  

  csferke

  senior tag

  És már van is kérdésem az általam emlegetett naptárral kapcsolatban

  Private Sub UserForm_Initialize()
  If IsDate(ActiveCell.Value) Then
  Me.MonthView1.Value = ActiveCell.Value
  End If
  End Sub

  Ebben a kódban ha az aktív cella dátum és van értéke akkor a naptár arra a hónapra/évre áll mint a cella értéke.

  Mit/hogyan lehetne megadni egy else ágban az ActiveCell.Value helyett
  Me.MonthView1.Value=??
  ?? = aktuális dátum ( now() ) értéke és ekkor az aktuális hónapot mutatná a naptár

  köszi

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