电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

excel中实现日期选择输入(日历控件)

excel中实现日期选择输入(日历控件)_第1页
1/7
excel中实现日期选择输入(日历控件)_第2页
2/7
excel中实现日期选择输入(日历控件)_第3页
3/7
excel 中实现日期选择输入(日历控件)推荐 第一种方法: 首先这个控件需要一个名为MSCOMCT2.OCX的控件文件,这个文件大家先在电脑里搜索一下,如果没有的话就求助baidu喽 . 下载下来后把它复制到c:\windows\system32 里 . 最后就在开始->运行里注册MSCOMCT2.OCX 控件. 那么如何注册呢,方法很简单输入regsvr32 MSCOMCT2.OCX就 ok 拉 这时打开excel 控件工具箱点击其它控件找到Microsoft Date and Time Picker Control 6.0,这个东东就是我们要的日期控件拉 第二种方法:MSCAL.OCX Private Sub Calendar1_Click() ActiveCell = Calendar1.Value Me.Calendar1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) '此处的6 和 7 为你要显示日历的列序号 If Target.Column = 6 Or Target.Column = 7 Then Me.Calendar1.Left = Target.Left Me.Calendar1.Top = Target.Top If Target.Value <> "" Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Now() End If Me.Calendar1.Visible = True Else Me.Calendar1.Visible = False End If End Sub Private Sub Calendar1_Click() ActiveCell = Calendar1.Value Me.Calendar1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) '此处的1 为你要显示日历的列序号 If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 And Target.Column = 1 Then Me.Calendar1.Left = Target.Left Me.Calendar1.Top = Target.Top If Target.Value <> "" Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Now() End If Me.Calendar1.Visible = True Else Me.Calendar1.Visible = False End If End Sub Mscomct2.zip MSCAL.rar 在EXCEL 中实现点击日历输入日期 技巧 2010-07-07 10:37:58 阅读435 评论0 字号:大中小 订阅 1、在某一单元格中插入日历控件 ( 1)选中要插入日历控件的单元格,设置单元格格式为日期型; ( 2)点击工具栏,“插入—对象—日历控件”, ( 3)用快捷方式Alt+F11,双击插入控件的工作表名称,粘贴下面的代码,用来实现单击A1 时弹出日历控件,单击日历控件后,将选中的日期值填入A1 并隐藏控件。...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

excel中实现日期选择输入(日历控件)

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部