1. 插入日期控件
①. 打开需要插入日期控件的工作薄,依次点击【视图】【工具栏】【控件工具箱】,调出控件工具栏。
②. 点击控件工具栏中的〖其他控件〗
件。
,选择(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
【提示】:上列代码中,红色的1表示该控件作用于工作表中第一列,如需调整,直接修改为相应的列数即可;如果需要将该控件作用于某一行,则把代码中Target.Column改为Target.Row即可。
② 关闭代码编辑页面返回工作表,点击控件工具栏中的〖属性〗,进入属性编辑页面,调整CheckBox
属性为True。
③ 关闭属性编辑页面返回工作表,点击控件工具栏中的〖退出设计模式〗,退出控件设计模式。
④ 点击日期控件图标,弹出活动日历,选择需要编辑的日期。至此,工作表中该列所有单元格均能这
样快速方便的输入日期了,你可以对该列调整单元格格式以满足自己的需要,调整单元格格式我就
不在这里累赘了。
当然,工作表第一行中你可能需要输入标题、表头等内容,你发现该列中除了日期,其他任何内容都无法输入是不是?那你注意到日期控件图标最左边的勾选框了吗?点击勾选框去掉小勾,图标变成灰色,这样该单元格就可以输入其他内容了。OK?
因篇幅问题不能全部显示,请点此查看更多更全内容
Copyright © 2019- banwoyixia.com 版权所有 湘ICP备2023022004号-1
违法及侵权请联系:TEL:199 1889 7713 E-MAIL:2724546146@qq.com
本站由北京市万商天勤律师事务所王兴未律师提供法律服务