Excel 2010 Missing Calendar Control workaround

[nocky]

Hey all,

For those who have been dissapointed to learn that the Calendar Control has been removed from Excel 2010, I have designed a vba userform date picker that works along the same lines (possibly better than the original).

Cheers,

Chris

EDIT: Latest Version is now version 3.0. Download link at dropbox: https://dl.dropbox.com/u/53445239/Date Picker v3.0.xlsm

 

[VoG]

The 2003 version http://www.fontstuff.com/mailbag/qvba01.htm works with Excel 2010 32 bit.

 

[nocky]

Yeah I am aware of that fix, but it is not suitable to some of my clients (as I don't always know where my work ends up!!).

My version is stand alone with no extenral references needed at all.

Will work in 2003 / 2007 / 2010.

Thanks for the info anyway....

 

[bulevardi]

Haven't tried nocky's one... PM?

I made some calendar myself aswel lately:
http://bulevardi.be/?content=scripting&example=exvb7

Without active X controls, without .ocx files or references to be installed etc...
Just hardcoded and fully modifiable stand alone thing

 

[nocky]

bulevardi - Mine is stand alone also.... And quite customisable....

 

[nocky]

For those who are wondering "Stand alone" means exactly that.... No external code or references required.

Simply place the userform "DatePickUserForm" and it's code into your project and setup / reference it as below....


DatePickUserForm.MinDate = ""
'If MinDate not specified then 1/1/101 is assumed
'If MinDate is specified then MinDate must be a valid date equal to or greater than 1/1/101 else error resluts
'MinDate must be less than MaxDate else error results

DatePickUserForm.MaxDate = ""
'If MaxDate not specified then 31/12/9999 is assumed
'If MaxDate is specified then MaxDate must be a valid date equal to or less than 31/12/9999 else error resluts
'MaxDate must be greater than MinDate else error results

DatePickUserForm.StartDate = Date
'If StartDate not specified and current date between MinDate and MaxDate then current date assumed
'If StartDate not specified and current date not between MinDate and MaxDate then error results
'If StartDate is specified then StartDate must be a valid date between MinDate and MaxDate else error results

DatePickUserForm.PickDate = "Long"
'PickDate can be "Long" (e.g. 01/01/2011) or "Short" (e.g. 1/1/2011)
'If PickDate is not specified or invalid then "Long" is assumed

DatePickUserForm.TodayCB.Enabled = True
'Today Button will only be available if current date is between MinDate and MaxDate
'Today Button can be disabled by changing the above setting to False

DatePickUserForm.CancelCB.Enabled = True
'Cancel Button will return a "" result
'Cancel Button can be disabled by changing the above setting to False

DatePickUserForm.Show
'Result date is retrieved from DatePickUserForm.PickDate (see line below)

result = DatePickUserForm.PickDate


The ProSoft Solutions Date Picker.xlsm file has all you need including the userform, setup code and instructions plus a demo worksheet so you can play around a bit....

Cheers,

Chris

 

[bulevardi]

bulevardi - PM Sent - Mine is stand alone also.... And quite customisable....

Thanks, yours is totally different as mine.
Probably yours is built by an educated programmer, I'm just a newbie/hobbyist.

It's nice to see that everyone makes each thing a different way.

I'm working on a multi calendar thing right now, with 3 months next to each other:
For example like this where you have an overview: http://www.kelvinluck.com/assets/jquery/datePicker/v2/demo/datePickerMultiMonth.html

 

[bulevardi]

I'm working on a multi calendar thing right now, with 3 months next to each other:

I put the multi month calendar right here:
bulevardi

Hopefully it suits someones needs!

 

[giblinp]

Hey all,

For those who have been dissapointed to learn that the Calendar Control has been removed from Excel 2010, I have designed a vba userform date picker that works along the same lines (possibly better than the original).

Cheers,

Chris

EDIT: Latest Version is now version 3.0. Download link at dropbox: https://dl.dropbox.com/u/53445239/Date Picker v3.0.xlsm

Used your Calendar Control, really great. Bit of tweaking to shoehorn into an existing form.
Thanks very much
Phil

 

[REKAM]

Hi, I've copied the info into my workbook and ran it a few times. Everything works fine except that it doesn't display the date I choose; the cell displays " PickShortDate". I'm very new to VBA so I'm not sure where the mistake is in this case.

Please help