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

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 保存。