Calendar

[tracktor]

I found an Excel Workbook on the web and found it very helpful to create a calendar that has no controls.

http://www.tracykaye.com/Calendar10.xls

I modified it to this below.

http://www.tracykaye.com/NoControlCalendar.xls

I am trying to change the look of this calendar. Here is a picture of what I want it to look like.

http://www.tracykaye.com/Pic.png

I am having problems with changing the back colors, and font colors. Here is the code in question is

Private Sub Build_Calendar()
If CreateCal = True Then
CalendarFrm.Caption = " " & CB_Mth.Value & " " & CB_Yr.Value
CommandButton1.SetFocus
For i = 1 To 42
If i < Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value)) Then
Controls("D" & (i)).Caption = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "d")
Controls("D" & (i)).ControlTipText = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "m/d/yy")
ElseIf i >= Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value)) Then
Controls("D" & (i)).Caption = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) _
& "/1/" & (CB_Yr.Value))), ((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "d")
Controls("D" & (i)).ControlTipText = Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "m/d/yy")
End If
If Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "mmmm") = ((CB_Mth.Value)) Then
If Controls("D" & (i)).BackColor <> &H80000016 Then Controls("D" & (i)).BackColor = &H80000018 '&H80000010
Controls("D" & (i)).Font.Bold = True
If Format(DateAdd("d", (i - Weekday((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), _
((CB_Mth.Value) & "/1/" & (CB_Yr.Value))), "m/d/yy") = Format(ThisButton, "m/d/yy") Then Controls("D" & (i)).SetFocus
Else
If Controls("D" & (i)).BackColor <> &H80000016 Then Controls("D" & (i)).BackColor = &H8000000F
Controls("D" & (i)).Font.Bold = False
End If
Next
End If
End Sub

If there is a date in the active cell I want this calendar to open up to the date in the active cell else I want it to open to current date.

Thanks for the help in advance.

 

[senechia]

I found an Excel Workbook on the web and found it very helpful to create a calendar that has no controls.

http://www.tracykaye.com/Calendar10.xls

I modified it to this below.

http://www.tracykaye.com/NoControlCalendar.xls

WOW! Thanks for posting these. I have searched high and low for a solution for this. The only thing close to this was the calendar at http://www.fontstuff.com/vba/vbatut07.htm

The problem with this is that you can't distribute it to a computer that does not have the add in.

Thanks a bunch!