|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
按alt+F11调出代码输入界面,先双击左边表格名,在右边复制以下代码:
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 1 Then '这是A列,如果要B列则改为2,其他同理.
With Calendar1
If Target <> "" Then
.Value = Target
Else
.Value = Date
End If
.Visible = True
.Top = Target.Top
.Left = Target.Left
End With
Else
Calendar1.Visible = False
End If
End If
End Sub
忘高手赐教!是不是代码哪里出了问题!还是我是07的版本导致的! |
-
问题图片
|