在Excel中使用日期控件方法详解(补充日历控件12.0的用法)

2022-07-09 18:36:23   文档大全网     [ 字体: ] [ 阅读: ]

#文档大全网# 导语】以下是®文档大全网的小编为您整理的《在Excel中使用日期控件方法详解(补充日历控件12.0的用法)》,欢迎阅读!
控件,用法,详解,补充,日历
Excel中使用日期控件方法详解

1. 插入日期控件

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

. 点击控件工具栏中的〖其他控件〗 ,选择(Microsoft Date and Time Picker Controlversion 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?我用的是2010版的,好像不去掉小勾,也能输入其他内容。



下面这种是日历控件12.0的用法:

1 如上面一样选择控件,只是选择的是“日历控件12.0(条件是要你的office软件带有此

控件,如没可以在网上下载)

2 在表内画出日历控件12.0图标,并调整合适大小后【退出设计模式】 3 右键点工作表的名字(在左下角,如Sheet1),查看代码,粘贴如下代码: Private Sub Calendar1_Click() Selection = Calendar1.Value Calendar1.Visible = False End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then

Calendar1.Left = Target.Offset(0, 1).Left Calendar1.Top = Target.Top Calendar1.Visible = True Else

Me.Calendar1.Visible = False End If End Sub

回到Excel,功能实现。


本文来源:https://www.wddqxz.cn/ea43ffbe0912a216147929a2.html

相关推荐