Calendar Control

[yash]

Hi guys,

I need a free calendar control to use in a userform in excel VBA. Please let me know instructions on how to use this also, if possible.

Thanks,
Yash

 

[Oorang]

There is already one built in.
In the VBE goto Tools, Reference, Browse, All File Types and make a reference to C:\Program Files\Microsoft Office\Office10\mscal.ocx
This will create an entry that says something to the effect of microsoft calander control. Place a check mark in teh box next to it and press ok.
Then goto tools, additional controls and add Calander Control 10.0. This will add a item to your controlbox that looks like a grid. It will be your calander. Here is some sample code on how you might interact with it.

Private Sub Calendar1_Click()
Selection = Calendar1.Value
Unload Me
End Sub

Private Sub CommandButton1_Click()

Calendar1.Value = Date
Selection = Calendar1.Value
Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
      Calendar1.Value = DateValue(ActiveCell.Value)
Else
      Calendar1.Value = Date
End If
End Sub

 

[RAM]

What if I have Office 11?

RAM

 

[Oorang]

Did you try using the below instructions with office 11? (Cuase they should work)

 

[RAM]

ADVERTISEMENT

There is no mscal.ocx to be found. No ocx file at all.

RAM

 

[XLGibbs]

RAM,

You should be able to see it as a control using Insert Object from the code window. If Calendar control is not there, you may not have MS Access installed on your machine. As I understand things, it is the mscal.ocx is installed as part of the Access libraries...

 

[RAM]

ADVERTISEMENT

Insert - Object. There is no Calendar control under the Create New tab. No, I don't have Access.

RAM

 

[XLGibbs]

http://www.fontstuff.com/mailbag/qvba01.htm

follow that, may help

 

[RAM]

I will try that. I'll let you know.

Thanks,

RAM