求助老师帮忙在指定区域添加日历控件

ppl123 · 发表于 2017-10-12 22:07

求助老师帮忙在指定区域添加日历控件

日历.rar (15.94 KB, 下载次数: 3)

microyip · 发表于 2017-10-12 22:14

在设计模式下，添加对应控件即可

ppl123 · 发表于 2017-10-12 22:38

microyip 发表于 2017-10-12 22:14
在设计模式下，添加对应控件即可

我添加了后原来的E1和F1的控件就失效了

microyip · 发表于 2017-10-12 22:45

If (Target.Count = 1) And (Target.Address = "$E$1" Or Target.Address = "$F$1") Then '日历显示在E1/F1单元格

复制代码

改成

If (Target.Count = 1) And Not (Intersect(Target, Union([E1:F1], [E5:F1500])) Is Nothing) Then '日历显示在E1/F1单元格

复制代码

microyip · 发表于 2017-10-12 22:46

附上附件以供参考

		自动登录	找回密码
密码			免费注册

[求助] 求助老师帮忙在指定区域添加日历控件