excel表格插入日期控件的方法

Excel 中经常需要插入日期控件为用户提供选择日期的便利，日期控件具体该如何插入呢?下面是我带来的关于excel表格插入日期控件的 方法 ，希望阅读过后对你有所启发!

excel表格插入日期控件的方法：

插入日期控件步骤败斗1：打开EXCEL，在工具栏空白处右击，在d出的菜单中选择控件工具箱。

插入日期控件步骤2：在选择控件工具箱点击如图位置。

插入日期控件步骤3：在d出的菜单中选择DTP控件。拦猜

插入日期控件步骤3：拖动鼠标，这个时候会产察衡磨生一个DTP控件。

插入日期控件步骤4：拖动句柄调整控件的大小。使之与单元格大小差不多。

插入日期控件步骤5：在控件工具箱中选择“退出设计模式”

1、首先打开Excel建立一个日期列表，设薯袜置好表格，在B5单元格中录入日期。

2、然后选择开发工具，点击“设计模式”。

3、点击插入ActiveX控件，出现的列表框中选择“其他控件”。

4、其他控件列表框中拉到最下面，选择“日历控件”。

5、在表格中把日历控件画出来，调整好喜欢的大小与格式，默认日历控件名称为：Calendar1。

6、双击日历控件，进入VBE代码区，输入下面的代码。

7、再回到Excel的页面可局李以看到日期的控件，设置就数腊激完成了。

有的：①. 打开需要插入日期控件的工作薄，依次点击【视图】【工具栏】【控件工具箱】，调出控件工具栏。

②. 点击控件工具栏中的〖其他控件〗 ，选择(Microsoft Date and Time Picker Control，version 6.0)控件。

③. 在工作表内需要填坦搏写日期的单元格中画出日期控件图标，调整大小与单元格一致。

2. 编辑代码

① 点击控件工具栏衫基中的〖查看代码〗 ，进入代码编辑页面，编辑如下代码：或信谨

Option Explicit

Private Sub DTPicker1_Change()

ActiveCell.Value = DTPicker1.Value

DTPicker1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Me.DTPicker1

If Target.Column = 1 And Target.Count = 1 Then

.Visible = True

.Width = Target.Width + 15

.Left = Target.Left

.Top = Target.Top

.Height = Target.Height

Else

.Visible = False

End If

End With

End Sub

---