Inserting A Monthly Calendar

V

Volcom

Can anyone tell me how to input a monthly calendar in Excel with th
current date highlighted? I just need something basic
 
S

swatsp0p

I don't know of anything "basic" for a calendar. Any solution wil
require VBA as Excel does not have a built in calendar.

Do you want a SHEET that is a calendar that you can enter data into
(you can download one from Chip Pearson's site here
http://www.cpearson.com/excel/download.htm Choose Calendar from th
list of available downloads and follow the instructions)

Do you want a calendar that 'pops up' when a specific cell i
selected?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
' set the Range below to the cell you want to select to pop up th
calendar
If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
Else: Calendar1.Visible = False
End If
End Sub Entered in the Worksheet project in the VBA Editor wher
you want it displayed (Today's date will be highlighted).

If desired:
Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "dd-mmm"
ActiveCell.Select
End Sub will enter the selected date (by clicking on th
calendar) into the target cell specified in the previous code a
"Range".


Will one of these meet your needs?


More info, please
 
Top