admin 管理员组文章数量: 887030
2024年1月14日发(作者：ssm框架项目实战)
在Excel中使用日期控件方法详解
1. 插入日期控件
①. 打开需要插入日期控件的工作薄，依次点击【视图】【工具栏】【控件工具箱】，调出控件工具栏。
②. 点击控件工具栏中的〖其他控件〗 ，选择(Microsoft Date and Time Picker Control，version 6.0)控件。
③. 在工作表内需要填写日期的单元格中画出日期控件图标，调整大小与单元格一致。
2. 编辑代码
① 点击控件工具栏中的〖查看代码〗 ，进入代码编辑页面，编辑如下代码：
Option Explicit
Private Sub DTPicker1_Change()
=
e = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With er1
If = 1 And = 1 Then
.Visible = True
.Width = + 15
.Left =
.Top =
.Height =
Else
.Visible = False
End If
End With
End Sub
【提示】：上列代码中，红色的1表示该控件作用于工作表中第一列，如需调整，直接修改为相应的列数即可；如果需要将该控件作用于某一行，则把代码中改为即可。
② 关闭代码编辑页面返回工作表，点击控件工具栏中的〖属性〗 ，进入属性编辑页面，调整CheckBox属性为True。
③ 关闭属性编辑页面返回工作表，点击控件工具栏中的〖退出设计模式〗 ，退出控件设计模式。
④ 点击日期控件图标，弹出活动日历，选择需要编辑的日期。至此，工作表中该列所有单元格均能这样快速方便的输入日期了，你可以对该列调整单元格格式以满足自己的需要，调整单元格格式我就不在这里累赘了。
当然，工作表第一行中你可能需要输入标题、表头等内容，你发现该列中除了日期，其他任何内容都无法输入是不是？那你注意到日期控件图标最左边的勾选框了吗？点击勾选框去掉小勾，图标变成灰色，这样该单元格就可以输入其他内容了。OK？我用的是2010版的，好像不去掉小勾，也能输入其他内容。
下面这种是日历控件12.0的用法：
1、 如上面一样选择控件，只是选择的是“日历控件12.0”(条件是要你的office软件带有此控件，如没可以在网上下载)
2、 在表内画出日历控件12.0图标，并调整合适大小后【退出设计模式】。
3、 右键点工作表的名字（在左下角，如Sheet1），查看代码，粘贴如下代码：
Private Sub Calendar1_Click()
Selection =
e = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If = 1 Then
= (0, 1).Left
=
e = True
Else
e = False
End If
End Sub
回到Excel，功能实现。
版权声明：本文标题：在Excel中使用日期控件方法详解(补充日历控件12.0的用法) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/jishu/1705213396h477172.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论