wps表格没有日历控件【百科全说】

office软件是大家使用率很高的软件，在以往的execl版本中添加日历控件很方便，但是在execl2016-64位的版本中，并不能够直接找到相关控件。想知道怎么办，请诸君往下戳 ......

添加开发工具
office 2016excel 默认“开发工具”是没有开启，下面介绍如何打开“开发工具”。。依次选择，文件--选项---自定义功能区---开启开发工具功能区
开启开发工具功能
下载工具增加控件

开启开发工具功能后，再开发功能区，选择插入----active--其他控件，，在这里我们并不能找到“日历控件”。那么就需要下载相关MSCOMCT2.OCX，并以管理员身份执行相应注册文件，文件下载请找度娘（ps度娘就是好。尤其对年龄大的，记忆力差的......）。安装注册控件后，我们就可以在其他控件栏目找到相关的“日历控件”，Microsoft Date and Time picker control version 6.0

添加日历控件

3,使用控件

接着第二步骤，单击鼠标左键不放往左右拖开即可插入一个日历控件，此时“控件”工作组处于“设计模式”，这时候的日历控件还处于设计模式，还不能使用，如下图所示：

单击“设计模式”按钮，取消它的选中状态，此时日历控件可以使用了。如下图所示：

那么我们如果想整列或者整行都可以进行日期选择。这时候怎么办呢？嘿嘿

这时我们就需要再设计模式下，编辑代码了，

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

#该处1代表第一列，想改成其他列录入对应数字即可，如果想设置成第一行则是 Target.Row

.Visible = True

.Width = Target.Width 15

.Left = Target.Left

.Top = Target.Top

Else

.Visible = False

End If

End With

这就是关于office2016 Excel添加使用日历控件的办法喽，希望可以对你有点用处。OK

wps表格没有日历控件

相关推荐