PLM之家PLMHome-国产软件践行者

[转载电子书] Excel 中插入日期控件的实现方法

[复制链接]

2013-9-22 09:58:26 4856 0

admin 发表于 2013-9-22 09:58:26 |阅读模式

admin 楼主

2013-9-22 09:58:26

请使用QQ关联注册PLM之家,学习更多关于内容,更多精彩原创视频供你学习!

您需要 登录 才可以下载或查看,没有账号?注册

x
Excel 中插入日期控件的实现方法6 D8 s6 c$ o1 S; M! V% k, B
1、在某一单元格中插入日历控件
* x7 ?/ \2 Q  D& A) c& f! q(1)选中要插入日历控件的单元格,设置单元格格式为日期型;
  D* l- |" V4 Y4 D(2)点击工具栏,“插入—对象—日历控件”,
. c' L5 U0 Z' Z: l' s2 c% d) _(3)用快捷方式Alt+F11,双击插入控件的工作表名称,粘贴下面的代码,用来实现单击A1时弹出日历控件,单击日历控件后,将选中的日期值填入A1并隐藏控件。
  R! e3 U# L/ W* RPrivate Sub Calendar1_Click()
0 X) H, D' g$ D% X# r ActiveCell = Calendar1! Z7 ~- j) N3 j" E# f; U; l4 h
Calendar1.Visible = False0 N3 C/ K" y- J! m
[a2].Select$ ~4 o2 V& x" E6 q. e) u1 g
End Sub

3 ~3 O5 ^; Y4 j* M% c$ ~& R+ o9 d& ?7 ~8 D  C& @
Private Sub Worksheet_SelectionChange(ByVal Target As Range)% v2 m( x- e+ m; Z- m
If Target.Address = "$A$1" Then Calendar1.Visible = True
% X( z2 f/ b! g4 s9 f& P( ], qEnd Sub

" n1 s6 V+ |% L2 u: b! d  0 X' @: a1 F0 o2 x& ?* r' x

* v5 j6 O0 E; N4 ~0 z, W5 H
2 T4 q7 {4 ^4 @6 `
1 b. C4 _0 s( m8 n2、某一列全部设置为插入日历控件。
! x" }  ]( k& X0 z8 H5 B例如;在C列中,无论点击哪个单元格,就弹出日历控件,选择一个日期后,日期自动插入到单元格;除C列之外,点击其他单元格,不会弹出日历选择控件;
( ]- ]2 }1 j+ w% E& u同上面(1)(2)步后,选择日历控件,双击鼠标,进入代码编辑模式,选择Worksheet和SelectionChange,输入代码:
( b) v# K5 N# ?* |7 [
/ q8 @4 F! p" E: EPrivate Sub Calendar1_Click()
# H5 j- j  A) r1 k" O3 J8 b* W3 JActiveCell = Calendar1.Value
8 O* i6 D% |0 t$ jMe.Calendar1.Visible = False- A5 f4 A2 e$ Z: D0 V) P8 A
End Sub' K  |) h4 X* e2 s) i# y

. Z* n$ Q! M7 w8 FPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)/ U1 M6 s& x) j, J
If Target.Column = 1 Then4 I9 `" H, D8 O% P8 c' z
Me.Calendar1.Visible = True
, z0 a  C3 R3 V8 K% uElse, |$ y" c5 W, \  Y
Me.Calendar1.Visible = False
# r" N( r3 E; F' o3 eEnd If
! [# s/ y$ W" p$ CEnd Sub
) z: i' Z& B+ d1 _% \- B + y, s, D, e3 g- T
完成后,运行VBA代码,返回Excel操作窗口,即可实现。
1 k4 b0 O$ _" r% G$ U5 p, L
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 注册

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

    本网站(plmhome.com)为PLM之家工业软件学习官网站

    展示的视频材料全部免费,需要高清和特殊技术支持请联系 QQ: 939801026

    PLM之家NX CAM二次开发专题模块培训报名开始啦

    我知道了