Prikladám príklad:
Poznámka:
Vyžaduje mať knižnicu
MSCAL.OCX - Microsoft Calendar Control
Príklad bude fungovať, ak je MS Office nainštalovaný i s Accessom, dá sa však stiahnuť z netu aj samostatne (pozor na verzie Office).
Ako použiť u seba ?
ALT+F11 - pozrite si kód v
UserForm1 a Module1.
Userform:
Code:
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 Sub
Module:
Code:
Sub ShowIt()
UserForm1.Show
End Sub