[已解决]如何将日期控件隐藏在B1单元格，点击B1时显示日期控件

zxc1152468

如何将日期控件隐藏在B1单元格，点击B1时显示日期控件 666.zip (9.21 KB, 下载次数: 15)

2012-12-7 22:48 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2012-12-8 08:05

方法：
SelectionChange中写入一段宏

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.   If Target.Address = "$B$1" Then
   
3.     Sheet1.Calendar1.Visible = True
   
4.     Sheet1.Calendar1.Left = Target.Left
   
5.     Sheet1.Calendar1.Top = Target.Top + Target.Height
   
6.   Else
   
7.      Sheet1.Calendar1.Visible = False
   
8.   End If
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

zjdh

日期控件.rar (11.15 KB, 下载次数: 21)

2012-12-8 08:02 上传

点击文件名下载附件

zjdh

方法：
SelectionChange中写入一段宏

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.   If Target.Address = "$B$1" Then
   
3.     Sheet1.Calendar1.Visible = True
   
4.     Sheet1.Calendar1.Left = Target.Left
   
5.     Sheet1.Calendar1.Top = Target.Top + Target.Height
   
6.   Else
   
7.      Sheet1.Calendar1.Visible = False
   
8.   End If
   
9. End Sub
   

复制代码