首先 插入 ACTIVE 控件 其他控件 日历
然后ALT F11
工程窗口中 双击对应的SHEET
将下面代码复制到弹出 窗口中
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value '将日历赋给活动单元格
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column '所选单元格的列号
Case 5 '如果是1-4也就是A到D列
Calendar1.Visible = True '显示日历控件
Calendar1.Left = Target.Left + Target.Width
Calendar1.Top = Target.Top + Target.Height
Case Else '如果不是则隐藏
Calendar1.Visible = False
End Select
End Sub
这个代码是 第五列 弹出日期控件,如果修改的话,将CASE 5 后面这个5 修改为你的实际列数
温馨提示:答案为网友推荐,仅供参考