关于如何在EXCEL中添加日历控件,最全最好的方法

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