插入--》对象--》新建--》日历控件 11.0
这样可以在Excel中插入一个日历,很方便。如果需要获取这个日历上的点击值,可以通过简单的VBA代码实现
Alt+F11,进入VBE,双击左侧“Sheet1”,复制以下代码进去即可,如果要将日历中点击值传到其他位置,修改“Sheets("sheet1").Range("F3") ”中的“sheet1”及“F3”即可。
Option Explicit
Private Sub Calendar1_Click()
Sheets("sheet1").Range("F3") =
Calendar1.Value
End Sub
如附件所示: