curro70
06.12.10,17:31
Potreboval by som ešte jeden kód pre MSComCtl2.DTPicker.2 To je kalendár, ktorý chcem aby mi do buniek v poradí od A1, A2, A3 atď...
písal dátum Ďakujem!
písal dátum Ďakujem!
PaloPa
06.12.10,17:24
A musí to byť nutne MSComCtl2.DTPicker ? Ten totiž niekedy robí "psie kusy".
Dá sa to totiž i cez knižnicu MSCAL.OCX - Microsoft Calendar Control.
Príklad bude fungovať, ak je Office nainštalovaný i s Accessom, dá sa však stiahnuť aj z netu (pozor rôzny pre rôzne verzie Office).
Ako použiť:
ALT+F11 - kód v UserForm1 a Module1.
Userform:
Option Explicit
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "mm/dd/yy"
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End SubModule1
Sub ShowIt()
UserForm1.Show
End SubPalo
Dá sa to totiž i cez knižnicu MSCAL.OCX - Microsoft Calendar Control.
Príklad bude fungovať, ak je Office nainštalovaný i s Accessom, dá sa však stiahnuť aj z netu (pozor rôzny pre rôzne verzie Office).
Ako použiť:
ALT+F11 - kód v UserForm1 a Module1.
Userform:
Option Explicit
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "mm/dd/yy"
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End SubModule1
Sub ShowIt()
UserForm1.Show
End SubPalo