当图表颜色变深后就是设计模式，并将高度和宽度适当调整，打开代码编辑器，。
8 插入该控件后，注意这是在非编辑模式下才可以实现的，选择日期后，这时就需要添加自己的代码， 在开发工具栏选择插入-其他控件，确定。
在光标处输入下方的代码： ActiveCell = Calendar1.ValueMe.Calendar1.Visible = FalseEnd Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Or Target.Column = 2 Then 此处的1和2为你要显示日历的列序号 Me.Calendar1.Left = Target.LeftMe.Calendar1.Top = Target.ToIf Target.Value ThenMe.Calendar1.Value = Target.ValueElseMe.Calendar1.Value = Now(End IMe.Calendar1.Visible = TruElseMe.Calendar1.Visible = FalseEnd If 5 关闭代码编辑器，点击第一列或者第二列，不会点击日期后自动隐藏日历并在单元格内填入日期，这时的日历控件还比较原始，打开其他控件选择框， 6 再次打开该工作薄， 点击设计模式，日历选择器消失， 7 EXCEL除了这个日历控件外还有一个另一个比较简单的日历选择器Microsoft date and time picker control(SP6)。
就可以弹出日历选择器， 4 在设计模式下双击日历，在单元格内会插入日期， 2 在选择框中选择calendar control8.0，将EXCEL保存为启用宏的工作薄，在非设计模式下即可点击弹出日期选择界面。
如下： 。
3 在适当的位置绘制日历。