如何将Excel2013日历控件将日期插入到指定单元格 ？

Question

刚刚在网上找了一段教程：先在工作表中添加一个日历控件，然后点下面工作表标签名字，按鼠标右键，从弹出的快捷菜单中选“查看代码”，然后把下面代码粘贴进去Private Sub Calendar1_Click()Range("e2") = Calendar1.ValueCalendar1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Address = "$E$2" Then Calendar1.Visible = TrueElse Calendar1.Visible = FalseEnd IfEnd Sub我实际跟着操作，控件工具箱左侧“设计模式”也没有处于选中状态，还是出现错误，求大神指点，是哪里有问题？

Answer 1

不知道你具体在达到什么效果，但你必须得将控件的名称改为宏里面的名称

追问

您好，我是想通过日历插件实现一个触发事件，比如，我点击B1单元格，然后旁边会出现一个日历表，可以选择几月几号，选择好之后，自动写入到B1单元格

您好，我是想通过日历插件实现一个触发事件，比如，我点击B1单元格，然后旁边会出现一个日历表，可以选择几月几号，选择好之后，自动写入到B1单元格