WPS2019excel日历控件在哪里，或者office2019日历控件？

opiona · 发表于 2024-4-1 11:37

szjiaxb 发表于 2024-4-1 11:20
你好！如果限定在两个单元格，显示日历控制，代码怎么修改，如下图位置

研究一下这里 range("B2,D2") 试试

QQ截图20240401113644.png

prome3 · 发表于 2024-4-1 11:49

szjiaxb 发表于 2024-4-1 11:20
你好！如果限定在两个单元格，显示日历控制，代码怎么修改，如下图位置

可以试试我这款日历

szjiaxb · 发表于 2024-4-2 08:02

opiona 发表于 2024-4-1 11:37
研究一下这里 range("B2,D2") 试试

谢谢老师！

szjiaxb · 发表于 2024-4-2 08:04

prome3 发表于 2024-4-1 11:49
可以试试我这款日历

在哪？没找到

182197315 · 发表于 2024-4-2 08:17

szjiaxb 发表于 2024-4-2 08:04
在哪？没找到

外国人写的日历控件，超级好用

182197315 · 发表于 2024-4-2 08:18

szjiaxb · 发表于 2024-4-2 09:01

opiona 发表于 2024-4-1 11:37
研究一下这里 range("B2,D2") 试试

老师！试了一下，没有成功显示日历，只显示“$d$2","$E$2"，对于VBA，我是菜鸟一只

opiona · 发表于 2024-4-2 13:29

本帖最后由 opiona 于 2024-4-2 13:30 编辑

szjiaxb 发表于 2024-4-2 09:01
老师！试了一下，没有成功显示日历，只显示“$d$2","$E$2"，对于VBA，我是菜鸟一只

If Target.Address(False, False) = "B2" Or Target.Address(False, False) = "D2" Then

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rem 单个单元格不是合并的, 不是多选的单元格区域
If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
Rem 判断一个单元格或区域是否和另一个区域重叠
If Target.Address(False, False) = "B2" Or Target.Address(False, False) = "D2" Then
FRM_AA_Riqi.TextFANGSHI.Text = 0 '//只在工作表中,直接将控件text=0
FRM_AA_Riqi.Show
End If
End If
End Sub

复制代码

prome3 · 发表于 2024-4-2 16:28

szjiaxb 发表于 2024-4-2 08:04
在哪？没找到

忘记上传了……请看附件。

使用方法很简单，就5行代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$1" Or Target.Address = "$D$1" Then
ShowCalendar Target, True
End If
End Sub

效果如下：
效果预览.gif

szjiaxb · 发表于 2024-4-2 17:02

prome3 发表于 2024-4-2 16:28
忘记上传了……请看附件。

使用方法很简单，就5行代码：

谢谢，辛苦了

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

[求助] WPS2019excel日历控件在哪里，或者office2019日历控件？