如何在工作表中插入日历
<p><font size="4"><strong>目的:在工作表sheet1中插入日历。当选取C列任意单元格时,以日历控件方式输入日期值。</strong></font></p><p>粘贴到工作表sheet1中去的代码:</p><p><font face="Courier"><span style="COLOR: #00007f;">Private</span><span style="COLOR: #00007f;">Sub</span> Calendar1_Click()<br/> ActiveCell = Calendar1.Value<br/> 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;">Private</span>
<span style="COLOR: #00007f;">Sub</span> Worksheet_SelectionChange(<span style="COLOR: #00007f;">ByVal</span> Target <span style="COLOR: #00007f;">As</span> Range)<br/> <span style="COLOR: #00007f;">If</span> Target.Column = 3 <span style="COLOR: #00007f;">Then</span><br/> Calendar1.Visible = <span style="COLOR: #00007f;">True</span><br/> <span style="COLOR: #00007f;">Else</span><br/> Calendar1.Visible = <span style="COLOR: #00007f;">False</span><br/> <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>
<p> 学习了</p>
没有日历控件的在哪里可以下载,还有控件11,12区别是什么,分别应用于office什么版本? 请问,如果我想让同一个工作簿中若干个工作表同时有这个功能怎么办?是不是一定要一个一个工作表设置啊 为什么关闭了工作表再打开就不能用了,怎样设置呢? {:1_1:}{:1_1:}{:1_1:} 我用的2010,怎么会提示‘无效外部过程’。谢谢。 学习了!{:1_1:}谢谢!
页:
[1]