Excel excel2010中怎么增加日期控件

发布网友 发布时间：2022-04-23 22:52

我来回答

共1个回答

热心网友 时间：2022-04-27 20:01

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

②. 点击控件工具栏中的〖其他控件〗 ，选择(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