日历控件的使用方法

爱疯

参考：https://msdn.microsoft.com/zh-cn ... ationConsiderations

“日历控件 (mscal.ocx) 是可在 Access 工作表中使用的 Microsoft Access 功能。Access 2010 中删除了日历控件，它不可用于 Excel 2010。用户可以使用日期选取器或自己的自定义日历控件。”






完成以下三步，既可安装日历控件：
1）安装
可以任选一种，下载并解压到系统目录（比如../Windows/system32）
* 日历控件11.0   日历控件11.0.rar (90.21 KB, 下载次数: 657)

2012-8-7 19:51 上传

点击文件名下载附件
* 日历控件12.0   日历控件12.0.rar (94.01 KB, 下载次数: 1103)

2012-8-7 19:51 上传

点击文件名下载附件
* DTP控件          mscomct2.rar (282.9 KB, 下载次数: 821)

2012-8-7 19:51 上传

点击文件名下载附件 ，链接 （右击安装）
* 用窗体模仿日历控件 ，无需注册和引用。

2）注册
在运行窗口输入 Regsvr32 文件名.ocx

3）引用
在工作表中：控件工具箱 - 其他控件，确定。
在窗体中：打开VBE编辑器，点工具 - 引用... - 浏览... - 选择ocx，确定。






相关问题：
1）出现“找不到工程或库”怎么办 ？
2）日历控件与选择性粘贴的问题
3）[兰色原创]利用日期控件向Excel中输入日期






如何通过VBA代码来使用日期控件？
示例： 示例和动画.rar (773.43 KB, 下载次数: 971)

2012-9-14 15:37 上传

点击文件名下载附件

1. Private Sub Calendar1_Click()
   
2.     With Calendar1
   
3.         ActiveCell = .Value    '赋值给激活单元格
   
4.         .Visible = False    '隐藏日历控件
   
5.     End With
   
6. End Sub
   
7. '
   
8. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
9.     With Calendar1
   
10.         If Target.Column = 3 Then   '如果选择C列
    
11.             .Top = Target.Offset(0, 1).Top    '设置位置
    
12.             .Left = Target.Offset(0, 1).Left
    
13.             .Visible = True    '显示日历控件
    
14.         Else
    
15.             .Visible = False  '隐藏日历控件
    
16.         End If
    
17.     End With
    
18. End Sub

复制代码

tuerday

太专业了，没搞懂啊，照着做没出现，怎么回事啊

爱疯

tuerday 发表于 2012-8-11 10:19
太专业了，没搞懂啊，照着做没出现，怎么回事啊

建议在『Excel VBA程序开发』，具体说明你的问题和处理过程，好详细讨论。

bjh2003

哇塞都是些高手啊。

李步兰

呵呵
!!!!!!!!!!!!!!!!!!!!

12个英文字母

想请问一下，如果想在不连续的单元格代码应该怎样写？？？求指点

爱疯

12个英文字母 发表于 2012-11-12 15:18
想请问一下，如果想在不连续的单元格代码应该怎样写？？？求指点

建议在提问版发帖，上传你的附件和详细说明。

xiaozhu252

继续学习中！！！！！！！！！！！！

woshibengou

努力学习天天向上

BrianBrian

学习了, 谢谢版主