找回密码立即注册

QQ登录

菜鸟站长联盟 门户 EXCEL基础 查看内容

怎么在Excel中设置点击单元格显示日期控件

2020-3-1 20:47| 发布者: 菜鸟站长联盟| 查看: 35| 评论: 0|原作者: 李海|来自: 菜鸟站长联盟

摘要: 1、插入日期控件2、双击日期控件然后将如下代码粘贴进去Private Sub Calendar1_Click()Range("A1") = Calendar1.Value '点击A1单元格显示日历控件的值Calendar1.Visible = FalseEnd SubPrivate Sub Worksheet_Select ...
1、插入日期控件
2、双击日期控件然后将如下代码粘贴进去
Private Sub Calendar1_Click()
Range("A1") = Calendar1.Value '点击A1单元格显示日历控件的值
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub

鲜花

握手

雷人

路过

鸡蛋

最新评论









QQ| 百度统计|小黑屋|菜鸟站长联盟 ( 陇ICP备15000550号-2 )|

GMT+8, 2020-5-27 10:02 , Processed in 0.064076 second(s), 18 queries .

返回顶部