自建日历选择窗口取代VBA日历控件mscomct2.ocx解决兼容问题

sunmoonstar

谢谢楼主，一直想要的结果

vcotrnog

这个就厉害了。感谢

vcotrnog

向東 发表于 2019-12-23 12:14
针对你提出的问题，以及大家普遍的使用需求，今天有空升级了一下代码，点选指定的单元格就会弹出日历选择 ...

请问是怎么配置区间的呢？使用C:C、C1:C1000 均都失败。

用心修炼

优秀作品啊。

在路上90

表示一下感谢

向東

vcotrnog 发表于 2020-2-6 11:18
请问是怎么配置区间的呢？使用C:C、C1:C1000 均都失败。

在sheet1 中的代码中：

1.     If Target.Address <> ActiveSheet.Range("C6").Address Or Target.Count <> 1 Then      '未选择【C6】单元格,或者多选时
   
2.         Unload CalendarForm '关闭日期选择窗口
   
3.     ElseIf Target.Address = ActiveSheet.Range("C6").Address Then
   
4.         '... ...
   
5.         '弹出日期选择窗口 及 其他代码段（略）
   
6.         '... ...
   
7.     End If

复制代码

上面是通过

1. Target.Address <> ActiveSheet.Range("C6").Address Or Target.Count <> 1

复制代码

语句来判断是否不在选择区，如果想在C列弹出窗口，则可以改成：

1.     If Target.Column <> 3 Or Target.Count <> 1 Then      '未选择C列,或者多选时
   
2.         Unload CalendarForm '关闭日期选择窗口
   
3.     ElseIf Target.Column = 3 Then '这里的3就是表示第三列，也就是C列
   
4.         '... ...
   
5.         '弹出日期选择窗口 及 其他代码段（略）
   
6.         '... ...
   
7.     End If

复制代码

xjclub

如果需要指定某列部分连续的单元格都能弹出日历选择呢？

yxexcel01

太好了，谢谢楼主！！ 请教一下，1，弹出Calendar日历窗体后，直接切换到其他sheet，这时日历窗体如何自动关闭；2，选中要输入日期的单元格，键盘就不能对其内容进行删除或修改了。

向東

yxexcel01 发表于 2020-4-11 11:49
太好了，谢谢楼主！！ 请教一下，1，弹出Calendar日历窗体后，直接切换到其他sheet，这时日历窗体如何自动 ...

1、只要加一段失活事件代码就行了，

1. Private Sub Worksheet_Deactivate() '本工表失活时执行下面代码
   
2.     On Error Resume Next '遇到出错 继续
   
3.    
   
4.     CalendarForm.Hide '关闭日期选择 窗口
   
5.     frm_query.Hide '关闭查询 窗口
   
6. End Sub

复制代码

2、因为弹出日期选择窗口时，焦点自动转移到日期选择窗口上了，这时你只要再点击一下当前单元格就可以手动编辑了。

yxexcel01

向東 发表于 2020-4-11 20:31
1、只要加一段失活事件代码就行了，

谢谢您！.  还有个问题：弹出的日历窗口的位置，跟随单元格位置，可是在靠边时，会跑到显示器范围外面了。