Excel有日期输入框的控件吗

来源：蜘蛛抓取(WebSpider) 时间：2017-06-06 08:09 标签：
2010年9月 硬件使用大版内专家分月排行榜第三
2010年9月 硬件使用大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。Excel&2003&中插入日期控件
在Excel中有很多地方要用到日期
自己写实在太麻烦而且每个人写的日期格式还有可能不同
还是弄个日期控件选吧！ <img src="/blog7style/images/common/sg_trans.gif" real_src ="/hi/face/i_f28.gif"
ALT="Excel&2003&中插入日期控件"
TITLE="Excel&2003&中插入日期控件" />
<img NAME="image_operate_72609" src="/blog7style/images/common/sg_trans.gif" real_src ="/candy_yuxi/pic/item/c978df603a6df.jpg" SMALL="0"
ALT="Excel&2003&中插入日期控件"
TITLE="Excel&2003&中插入日期控件" />
1.【可以跳过】如果你要设置日期的格式化可以选中所要插入日期控件的列
右键选择【设置单元格格式】---在数字这一栏选项卡中的分类选择【日期】--自己选择一种日期样式
2.选中要插入日期控件列的单位格【插入】---【对象】---在对象类型中选择【日历控件11.0】，进行插入
3.出现如图日历控件，拖放到合适位置
（要先进入设计模式才能对控件进行拖放，点击那个有尺子的图标进入设计模式）
4.退出设计模式，双击日历控件，进入代码编写，输入以下代码
-------------------------------------------------------------------------------------
Private Sub Calendar1_Click()
&&& ActiveCell =
Calendar1.Value
Me.Calendar1.Visible = False
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)'此处的6和7为你要显示日历的列序号
If Target.Column = 6 Or Target.Column = 7 Then
Me.Calendar1.Left = Target.Left + Target.Width'设置日历控件弹出后的位置
Me.Calendar1.Top = Target.Top +
Target.Height&'设置日历控件弹出后的位置&&
Target.Value && "" Then
Me.Calendar1.Value = Target.Value
Me.Calendar1.Value = Now()
&&& End If
Me.Calendar1.Visible = True
Me.Calendar1.Visible = False'单击其他列时隐藏日历控件
End If End Sub
-------------------------------------------------------------------------------------
5.保存后就Ok了
6.回到表格中选择【工具】---【宏】---【安全性】改为中
7.保存一个名字，运行就行。
8。上面是自己2003实验的结果。
9.保存后就Ok了
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。查看: 4161|回复: 10
Excel有日期输入框的控件吗
本帖最后由 dyj1963 于
13:09 编辑
e日期输入框的控件吗，专门用于输入日期和时间。
可直接在日期输入框输入日期或时间，如果单击右边的下拉按钮，将出现一个日历用于选择输入日期：
[img=275,172][/img]
当然有，在表中还是在窗体中都有，表中插入控件中选中，在表中画出来
窗体中在工具，附加控件中选择好就有了。
在表中怎么画呀，能给示范一下吗
帮帮忙，给示范一下
版主&&版主，帮帮忙啊
选中日期控件后，和画其他控件一样拉出来就是了，要多大拉多大
路过看看...
怎样用日历把日期输入到单元格中
15:34 上传
点击文件名下载附件
11.48 KB, 下载次数: 83
是这样意思吗
20:30 上传
点击文件名下载附件
11.52 KB, 下载次数: 69
怎么打不开啊，提示没设计好，是怎么回事？
Powered by&&&&&&&&win7旗舰版下EXCEl2013如何插入日期控件的方法
正在努力加载播放器，请稍等…
正在努力加载播放器
大小：507.12KB&&所需金币：50
&& & 金币不足怎么办?
下载量：-次 浏览量：958次
贡献时间： 17:49:11
文档标签：
已有-位用户参与评分
同类热门文档
你可能喜欢
看过这篇文档的还看过
阅读:16027&&下载:39
阅读:8161&&下载:24
阅读:2364&&下载:9
阅读:1530&&下载:8
阅读:3108&&下载:6
阅读:1976&&下载:2
阅读:2352&&下载:1
阅读:1033&&下载:1
阅读:189&&下载:0
阅读:386&&下载:0
该用户的其他文档
所需财富值：
50文件大小：507.12KB
您当前剩余财富值：&&
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
举报该文档侵犯版权。
例: /help.shtml

我要回帖

 

随机推荐