Ribbon Calendar DatePicker Word 2007-2010

**Excel Fox** · 04-28-2011, 03:53 PM

A word based ribbon calendar. Just created for fun. Feedback would be appreciated

In case you'd like to have this in Excel, raise your hand

And for those of you who are interested in the XML

PHP Code:


<!--Ribbon Examples from ExcelFox.com--> 
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="CalendarLoad"><!--For Excel 2010, use 2009/07 instead of 2006/01--> 
<ribbon> 
<tabs> 
<tab id="tabActiveMonth" label="Calendar" insertAfterMso="TabView" keytip="C"> 
<group id="grpActiveMonth" getLabel="GroupLabel"> 
<box boxStyle="horizontal" id="OuterBoxControl"> 
<box boxStyle="vertical" id="InnerBoxControl"> 
<comboBox 
id="cboMonth" 
screentip="Month" 
supertip="Select the desired month" 
sizeString="XXXXXXXXXXXX" 
onChange="MonthOnChange" 
getItemID="MonthItemID" 
getItemCount="MonthItemCount"
getItemLabel="MonthItemLabel" 
keytip="DM" 
getText="MonthGetText"> 
<!--<item id="cboMonth01" label="Jan"/> 
<item id="cboMonth02" label="Feb"/> 
<item id="cboMonth03" label="Mar"/> 
<item id="cboMonth04" label="Apr"/> 
<item id="cboMonth05" label="May"/> 
<item id="cboMonth06" label="Jun"/> 
<item id="cboMonth07" label="Jul"/> 
<item id="cboMonth08" label="Aug"/> 
<item id="cboMonth09" label="Sep"/> 
<item id="cboMonth10" label="Oct"/> 
<item id="cboMonth11" label="Nov"/> 
<item id="cboMonth12" label="Dec"/>--> 
</comboBox> 
<comboBox 
id="cboYear" 
screentip="Month" 
supertip="Select the desired month" 
sizeString="XXXXXXXXXXXX" 
onChange="YearOnChange" 
getItemID="YearItemID" 
getItemCount="YearItemCount" 
getItemLabel="YearItemLabel" 
keytip="DY" 
getText="YearGetText"> 
<!--<item id="cboYear12" label="2010"/> 
<item id="cboYear11" label="2011"/> 
<item id="cboYear10" label="2012"/> 
<item id="cboYear09" label="2013"/> 
<item id="cboYear08" label="2014"/> 
<item id="cboYear07" label="2015"/> 
<item id="cboYear06" label="2016"/> 
<item id="cboYear05" label="2017"/> 
<item id="cboYear04" label="2018"/> 
<item id="cboYear03" label="2019"/> 
<item id="cboYear02" label="2020"/> 
<item id="cboYear01" label="2021"/>--> 
</comboBox>
<comboBox
sizeString="XXXXXXXXXXXX" getText="DateTypeGetText" 
id="cboDateType" onChange="DateTypeOnChange">
<item id="itmDT01" label="General Date"/> 
<item id="itmDT02" label="Long Date"/> 
<item id="itmDT03" label="Short Date"/> 
</comboBox>
</box> 
</box> 
<box boxStyle="horizontal" id="Box1"> 
<box boxStyle="vertical" id="InnerBox01"> 
<toggleButton id="btnWeedDay01" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay01" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay15" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox02"> 
<toggleButton id="btnWeedDay02" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay02" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay16" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox03"> 
<toggleButton id="btnWeedDay03" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay03" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay17" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox04"> 
<toggleButton id="btnWeedDay04" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay04" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay18" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox05"> 
<toggleButton id="btnWeedDay05" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay05" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay19" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox06"> 
<toggleButton id="btnWeedDay06" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay06" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay20" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox07"> 
<toggleButton id="btnWeedDay07" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay07" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay21" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox08"> 
<toggleButton id="btnWeedDay08" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay08" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay22" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox09"> 
<toggleButton id="btnWeedDay09" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay09" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay23" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox10"> 
<toggleButton id="btnWeedDay10" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay10" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay24" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox11"> 
<toggleButton id="btnWeedDay11" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay11" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay25" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox12"> 
<toggleButton id="btnWeedDay12" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay12" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay26" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox13"> 
<toggleButton id="btnWeedDay13" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay13" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/>
<toggleButton id="btnDay27" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox14"> 
<toggleButton id="btnWeedDay14" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction"/> 
<toggleButton id="btnDay14" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
<toggleButton id="btnDay28" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip"/> 
</box> 
<box boxStyle="vertical" id="InnerBox15"> 
<toggleButton id="btnWeedDay15" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction" getVisible="DayVisible"/> 
<toggleButton id="btnFalseDay01" label="X" enabled="false" getVisible="DayVisible"/> 
<toggleButton id="btnDay29" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip" getVisible="DayVisible"/> 
</box> 
<box boxStyle="vertical" id="InnerBox16"> 
<toggleButton id="btnWeedDay16" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction" getVisible="DayVisible"/> 
<toggleButton id="btnFalseDay02" label="X" enabled="false" getVisible="DayVisible"/> 
<toggleButton id="btnDay30" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip" getVisible="DayVisible"/>
</box> 
<box boxStyle="vertical" id="InnerBox17"> 
<toggleButton id="btnWeedDay17" getLabel="WeekDayLabel" getPressed="WeekDayPressed" onAction="WeekDayOnAction" getVisible="DayVisible"/> 
<toggleButton id="btnFalseDay03" label="X" enabled="false" getVisible="DayVisible"/> 
<toggleButton id="btnDay31" getLabel="DayLabel" getPressed="DayPressed" onAction="DayAction" getKeytip="DayGetKeyTip" getVisible="DayVisible"/>
</box> 
</box> 
</group> 
</tab> 
</tabs> 
</ribbon> 
</customUI>

https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

**Ian McDonald** · 07-27-2011, 01:20 AM

**littleiitin** · 09-06-2011, 07:56 AM

**aselim** · 10-20-2012, 10:55 PM

Yes, nice application.

**Rick Rothstein** · 10-22-2012, 09:41 PM

Originally Posted by Excel Fox

In case you'd like to have this in Excel, raise your hand

**Excel Fox** · 10-28-2012, 11:13 PM

Rick, I'll get back to you on this one.

**Excel Fox** · 11-01-2012, 12:04 AM

And the Excel ribbon based date picker! Tested in 2007. Should work in 2010 as well. May not work in any higher version. Feedback is welcome.

**Rick Rothstein** · 11-01-2012, 01:34 AM

Originally Posted by Excel Fox

And the Excel ribbon based date picker! Tested in 2007. Should work in 2010 as well. May not work in any higher version. Feedback is welcome.

This is a great concept and I really like it! Here are some immediate reaction comments (in no particular order of importance)...

1. Selecting the month sometimes shows the next month until you click a day number. For example, with Octboer 31, 2012 selected, choose February from the month drop-down... March displays as the month... click a day number and it corrects itself to February.

2. Visual thing... On my copy of XL2007, the day numbers do not seem evenly spaced across their rows (1 and 2 seem further apart than 2 and 3; 5 and 6 seem further apart than 6 and 7, and there is a couple more examples as well).

3. When the year drop-down is opened, can the current year be position in the middle of the list rather than at the bottom of the list? I think that would be handier as most new selections for the year will usually be within a few years either side of the current year.

4. Can you change the functioning of the date format button to allow the user to type in his own format pattern? I think it would be useful if I could specify, say, d-mmm-yy directly in the text field for the date format button rather than to have to custom format the cell individually.

**Excel Fox** · 11-01-2012, 01:57 AM

Tried to replicate the first point, but I couldn't. I tried quite a few other possibilities, but it seems that any change to the month or year drop-down always (and I mean always) select day 1 of that month. Can you check that again and let me know Rick?

**Rick Rothstein** · 11-01-2012, 02:12 AM

Originally Posted by Excel Fox

Tried to replicate the first point, but I couldn't. I tried quite a few other possibilities, but it seems that any change to the month or year drop-down always (and I mean always) select day 1 of that month. Can you check that again and let me know Rick?

Checked again and it still operates the way I posted. Here is how I make it happen. Select October and then click the 31 button (this enters the date into the active cell), next click the down arrow for the month drop-down and select February from the list... March display with day 2 selected**... click any (valid) day button and the month name changes to February with the clicked day selected.

** I just noticed something that may help in tracking down the problem. For the year 2012, March 2nd was selected, but for a non-leap year, March 3rd is selected instead. It is as though your calculation method is to go to the last day of the month and subtract the new month's last day number from it... that seems to be the way the day is being generated for me... don't have any idea about the month that is being select though. When I get some free time, I will try examining your code for myself to see if I can spot what is happening.

Oh, I forget to mention... I am using XL2007 (SP2) if that might end of mattering.