EXCEL添加日历控件

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Me.Calendar1.Visible = True
Else
Me.Calendar1.Visible = False
End If
End Sub
保存。
3、设计好后，还可以对日期列进行“设置单元格格式”
4、不足之处
a、要实用该宏，首先要在EXCEL→工具→宏→安全性→选中（在打开文件的时候允许宏）或低，才可以使用该日期控件；
b、在使用宏控件的时候，excel中鼠标右键的粘贴功能将失效，需要借助 EXCEL→编辑→office剪贴板的功能才能完成单元格复制粘贴的功能；
Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出后的位置
Calendar1.Top = Target.Top + Target.Height '同上
Calendar1.Value = Date '设置默认日期为系统日期
同上面（1）（2）步后，选择日历控件，双击鼠标，进入代码编辑模式，选择Worksheet和SelectionChange，输入代码：
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
c、也可以在打开文件的时候禁用宏，这样就可以正常使用粘贴功能了。
End If
End Sub
完成后，运行VBA代码，返回Excel操作窗口，即可实现。
Excel中单元格月历下拉选择实现方法
一、日历控件的使用方法
1、打开excel文件，以对sheet1的操作为例：点中要插入日期的单元格，
工具栏→插入→对象→选 日期空间11.0 →确定。
Calendar1.Visible = False '单击日历控件后隐藏之
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then 'D列为日期输入列
If Target.Address = "$A$1" Then Calendar1.Visible = True
End Sub
2、某一列全部设置为插入日历控件。
例如；在C列中，无论点击哪个单元格，就弹出日历控件，选择一个日期后，日期自动插入到单元格；除C列之外，点击其他单元格，不会弹出日历选择控件；
Calendar1.Top = Target.Top + Target.Height
Calendar1.Value = Date
Calendar1.Visibldar1.Visible = False '单击其他列时隐藏日历控件
/thread-4310-1-1.html
在Excel中插入日历控件
1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击A1时弹出日历控件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Calendar1.Value = Date
Calendar1.Visible = True
ElseIf Target.Column = 6 Then 'F列为日期输入列
Calendar1.Left = Target.Left + Target.Width
Calendar1.Visible = True '使日历控件可见
ElseIf Target.Column = 5 Then 'E列为日期输入列
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
2、工具栏→工具→宏→Visual Basic 编辑器
在 ‘通用’加入如下代码:
Private Sub Calendar1_Click()
ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd") '设置日期格式,此工作可以直接通过设置某列单元格格式一次性完成
Private Sub Calendar1_Click()
ActiveCell = Calendar1
Calendar1.Visible = False
[a2].Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)