如何在工作表中插入日历

爱疯

<p><font size="4"><strong>目的：在工作表sheet1中插入日历。当选取C列任意单元格时，以日历控件方式输入日期值。</strong></font></p><p>粘贴到工作表sheet1中去的代码：</p><p><font face="Courier"><span style="COLOR: #00007f;">rivate</span>
                        <span style="COLOR: #00007f;">Sub</span> Calendar1_Click()<br/>&nbsp;&nbsp;&nbsp;&nbsp;ActiveCell = Calendar1.Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;Calendar1.Visible = <span style="COLOR: #00007f;">False</span><br/><span style="COLOR: #00007f;">End</span>
                        <span style="COLOR: #00007f;">Sub</span><br/><br/><span style="COLOR: #00007f;">rivate</span>
                        <span style="COLOR: #00007f;">Sub</span> Worksheet_SelectionChange(<span style="COLOR: #00007f;">ByVal</span> Target <span style="COLOR: #00007f;">As</span> Range)<br/>&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">If</span> Target.Column = 3 <span style="COLOR: #00007f;">Then</span><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Calendar1.Visible = <span style="COLOR: #00007f;">True</span><br/>&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">Else</span><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Calendar1.Visible = <span style="COLOR: #00007f;">False</span><br/>&nbsp;&nbsp;&nbsp;&nbsp;<span style="COLOR: #00007f;">End</span>
                        <span style="COLOR: #00007f;">If</span><br/><span style="COLOR: #00007f;">End</span>
                        <span style="COLOR: #00007f;">Sub</span></font></p><p><font face="Courier"><span style="COLOR: #00007f;"></span></font></p>

如何在工作表中插入日历

<br/>

如何在工作表中插入日历

<br/>

木寅

<p>代码怎么是复制的上去的</p><p>不管怎么样还是学习到了一点</p>[em01]

simonguo

<p>&nbsp;学习了</p>

jjr007

没有日历控件的在哪里可以下载，还有控件11，12区别是什么，分别应用于office什么版本？

maolili

请问，如果我想让同一个工作簿中若干个工作表同时有这个功能怎么办？是不是一定要一个一个工作表设置啊

maolili

为什么关闭了工作表再打开就不能用了，怎样设置呢？

xgh722

seasonxb

我用的2010，怎么会提示‘无效外部过程’。谢谢。

124277107

学习了！谢谢！