1、选择excel的常规里选择显示开发工具
图表1 选择自定义工具栏
选择开发工具
图表2选择开发工具
2、选择插入-〉表单控件-〉其它
选择其它
图表3选择其它控件
图表4选择日历控件
3、双击界面控件，在‘通用’加入如下代码（注意：Target.Column = 4里的是指D列就是固
定的4列，G列是7列，而不是sheet里D，G列真实对应的第几列）：
Private Sub Calendar1_Click()
ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd") '设置日期格式,此工作可以直接通过设置某列单元格格式一次性完成
Calendar1.Visible = False '单击日历控件后隐藏之
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then 'D列为日期输入列，只对应excel的字母列，例如D对应4，
'G对应7，不是实际的显示列对应的数字
Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出后的位置
Calendar1.Top = Target.Top + Target.Height '同上
Calendar1.Value = Date '设置默认日期为系统日期
Calendar1.Visible = True '使日历控件可见
ElseIf Target.Column = 5 Then 'E列为日期输入列
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Date
Calendar1.Visible = True
ElseIf Target.Column = 6 Then 'F列为日期输入列
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Date
Calendar1.Visible = True
Else
Calendar1.Visible = False '单击其他列时隐藏日历控件End If
End Sub
保存。