Excel日历控件教程(详细)_第1页
Excel日历控件教程(详细)_第2页
Excel日历控件教程(详细)_第3页
Excel日历控件教程(详细)_第4页
免费预览已结束，剩余1页可下载查看

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1 1 Alt F11Alt F11 按下显示代码窗口后按下显示代码窗口后 再松开再松开 Alt F11 Alt F11 2 2 然后按然后按 F7F7 调出调出 VBAVBA 窗口 窗口 3 3 粘贴以下代码粘贴以下代码 Private Sub Calendar1 Click Dim MyDay As Date ActiveCell Calendar1 Value Mydate Calendar1 Value MsgBox Mydate Calendar1 Visible 0 End Sub Private Sub Worksheet SelectionChange ByVal Target As Range If Target Column 1 Or Target Column 1 And Target Row 0 Then If IsDate Target Then Calendar1 Value Target Else Calendar1 Today End If Calendar1 Visible 1 Calendar1 Top ActiveCell Top ActiveCell Height Calendar1 Left ActiveCell Left Cells ActiveCell Rows Count 3 Left Else Calendar1 Visible 0 End If End Sub 4 4 打开文件打开文件 保存保存 book1 book1 S S 5 5 打开视图打开视图 对象窗口对象窗口 6 6 打开插入打开插入 对象窗口对象窗口 7 7 找到日历控件找到日历控件 11 011 0 或或 9 09 0 按确定退出 按确定退出 8 8 单击第一列 单击第一列 A A 列 中的任一单元格 选择日历中的需要的日期即可 列 中的任一单元格 选择日历中的需要的日期即可 备注 备注 要改变日期输入位置 可按以下方法调整代码 找到下面的代码行 此代码行要改变日期输入位置 可按以下方法调整代码 找到下面的代码行 此代码行 的意思是在的意思是在 A A 列 第列 第 1 1 列 中添加日历 列 中添加日历 If Target Column 1 Or Target Column 1 And Target Row 0 Then 然后根据以下的方法覆盖粘贴此行代码然后根据以下的方法覆盖粘贴此行代码 1 1 以下这一句就是以下这一句就是 B3 C5B3 C5 区域调用日期控件区域调用日期控件 If Target Column 2 And Target Row 2 And Target Row 2 And Target Row 0 Then 3 3 这句是说在这句是说在 C2 C50C2 C50 调用日期控件调用日
人人文库> 全部分类> 应用文书 > 项目管理

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论