- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
1. Alt+F11按下显示代码窗口后,再松开Alt+F11.
rSWWWfflniMIIIWVinaiBIIIBIBIIIBBIIBIIIIIBIIIIIBIIIBIIIIBIIBBBIIIIIBIBIIBIIBIHI
2.然后按F7 ,调出VBA窗口
3.粘贴以下代码.
Private Sub Cale ndar1_Click()
Dim MyDay As Date
ActiveCell = Cale ndar1.Value
Mydate = Cale ndar1.Value
MsgBox Mydate
Cale ndar1.Visible = 0
End Sub
Private Sub Worksheet_Selectio nCha nge(ByVal Target As Ra nge)
If Target.Colu mn = 1 Or Target.Colu mn = 1 And Target.Row 0 The n
If IsDate (Target) The n
Cale ndar1.Value = Target
Else
Cale ndar1.Today
End If
Cale ndar1.Visible = -1
Cale ndar1.Top = ActiveCell.Top + ActiveCell.Height
Cale ndar1 丄eft = ActiveCel LLeft + Cells(ActiveCell.Rows.Cou nt, 3).Left
Else
Cale ndar1.Visible = 0
End If
End Sub
4.打开文件t保存book1(S)
5}r?9 LL
-L - HlSb■■诃
値 Micirp 刘ft Visual Ba 血■ Big tiki
i耳% I
-=|x|.J
Studu-fTidth 乩英
VLSLblv
U 恨存 £)
Ctrl+5
导入如I)…
Ctrl+I
s
导出犬件
Ctrl+E
移餘 Sheet! (£)..?
! j
打印胆】一一一
CtrH-P
:?”
关阳并BE回到li^rDsoft
Eicel(£) Mt+Q
EhBlliTtlEulkt: Trua Errll-1 vDl.d. J9-13. F*194 EM|:]Rh v?iT* Er.kllaEili-:!:3 a 0 - xLMiEflctr Hwa *0^11.脂
Iff 口
K
中口
2d
5.打开视图—对象窗口
6.打开插入t对象窗口
7.找到日历控件11.0或9.0,按确定退出
o
a
E
fi
35 前
3T
12 ]3 ]*J
]fi
Exicel = Boolkl^s
C Mkroscift Excel a Boo-kl.xls
£J衣杵吃,W0CVJ 1V-C1J梧式? T#cp 我lEt 药口理)刖射QP
if. Aia- i ■ i a = w n 41?? - ?|iSit
8.单击第一列(A列)中的任一单元格,选择日历中的需要的日期即可。
2013-3-13
U丈件? 爭)?⑥報图② *A(1)皤式逊工鼻⑴ 3^E(D 话口吵州射?
J 占 Q』日 * 山 * 息 A 如 4■空 -I e - H 10M ?J:Ktt
-m冈
|g|^l
一…
”诣” B £ U鼻四;
上 I P
S01M-1G
2013-3-19
卜 m \ibt±LL/5bset2/Shsftt37
? r
禅 | 由 nftaflt r?~it
名F?:门
斗玮丈口
3
L h
B
]厂n
2
3
■J
E
6
Y
3
W
11
1?
13
】4
15
16
17
IS
IS
20
21
22
2S
西
2
瓯
27
2
2$
掰
3i
32
31
34
35
防
37
弭
3鼻
弭
41
?H
LUiJLBLl
■H CE!
wndi
KD,-
2fll3 三月 I盂冃 p I fi*iTZ
L
V H
0
If Target.Column
If Target.Column = 3 And Target.Row 1 And Target.Row 51 Then
备注: 要改变日期输入位置, 可按以下方法调整代码, 找到下面的代码行 (此代码行的
意思是在A列(第1列)中添加日历。
If Target.Column = 1 Or Target.Column = 1 And Target.Row 0 Then
然后根据以下的方法覆盖粘贴此行代码
以下这一句就是 B3:C5 区域调用日期控件 .
If Target.Column = 2 And Target.Row 2 And Target.Row 6 Or Target.Column = 3 And Targ
您可能关注的文档
- CRM客户关系管理与营销模式的研究方案(doc35页).docx
- CRM销售管理系统快速应用手册(DOC54页).docx
- CSU1060C货车总体设计及前悬架设计说明书(word文档良心出品).docx
- C语言程序设计职工工作量统计系统设计(word文档良心出品).docx
- C语言词法分析器实验报告43743.docx
- c语言课程设计学生通讯录管理系统(推荐文档).docx
- C语言学籍管理系统(内含源代码)..(word文档良心出品).docx
- C语言作业-旅游线路管理系统(word文档良心出品).docx
- DIY高手进阶教程-ATX电源使用改造全攻略(doc12页).docx
- DIY印刷电路板基本原理讲义(doc12页).docx
文档评论(0)