如何用vba实现点击单元格出现日期控件输入日期?

erdsdzq

<p>我已经会插入日期控件</p><p>如何用vba实现点击单元格出现日期控件输入日期?</p><p>希望老师给予解答为盼.</p>

helpyou

利用visible属性就可以调用出来

yaoxuejian

[em01]

majingang

都是强人啊

老糊涂

假设在B5单元格设置日期控件<br/>　　方法：开发工具→控件（插入）→Active控件→其他控件→打到“日历控件12.0”→在B5单元格中拖出一个日期控件。→在设计模式下→设置控件格式（最好设置成大小、位置随单元格而变）<p>　　控件代码如下：<br/>rivate Sub Calendar1_Click()<br/>&nbsp; 　Sheet1.Cells(5, 2).Value = DateSerial(Calendar1.Year, Calendar1.Month, Calendar1.Day)<br/>End Sub</p><p>rivate Sub Worksheet_SelectionChange(ByVal Target As Range)<br/>&nbsp; If Target = Cells(5, 2) Then<br/>&nbsp;&nbsp;&nbsp; 　Me.Calendar1.Visible = True&nbsp;&nbsp;<br/>&nbsp; Else<br/>　&nbsp;&nbsp;&nbsp; Me.Calendar1.Visible = False<br/>&nbsp; End If</p>

周小艳

让小妹学习一下

rxj_0414

不错，学习了