第一步需要确认excel菜单中有没有开发工具这一选项,若没有需要手动添加一下添加开发工具菜单项:点击文件,打开文件菜单下找到选项菜单点击打开,如下图所示勾选开发工具选项即可开发工具添加成功后将设计**打开,如下图设计**会一直呈现为橙色,说明此时是在设计**状态下单击**,选择下图中红框中的其他选项,用来添加非常规的控件在弹出的其他控件中选择下图所示的microsoft date and time...
private sub calendar1_click()activecell.value = calendar1.valuecalendar1.v**ible = falseend subprivate sub worksheet_selectionchange(byval target as range) if target.column = 3 then with me.calendar1 ...