欢迎来到天天文库
浏览记录
ID:41301035
大小:371.56 KB
页数:8页
时间:2019-08-21
《《计时器ExcelVBA》PPT课件》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、1、在工具栏的空白处右击,在打开的列表框中选择“VisualBasic”,如下图所示。2、打开“VisualBasic”工具栏。3、选择”VisualBasic编辑器”按钮即可进入。在左边的excel工作表中,在7/10-09PM1:00把FB5-3506的图番修改为binger.1、代码的输入:打开代码编辑器,输入以下代码(后面的两页)。2、指定宏:在excel中建立一个命令按钮,指定宏为刚才输入的代码,把命令按钮的名称修改为FB5-3506即可。•PrivatemsgAsMailFormat‘定义ms
2、g为窗体文件•OptionExplicit‘强制声明变量•PrivatethetimeAsDate‘定义为日期型•PrivatesdateAsDate‘定义为日期型•PrivatestimeAsDate‘定义为日期型•Subfb5_3506()•Dimr,lAsInteger•DimnowtimeAsDate•sdate=#7/10/2009#•stime=#3:10:00PM#•nowtime=Now()•Ifnowtime3、bInformation,"自定义信息")•ElseIfnowtime>=sdate+stimeThen•Cells.Find(what:="fb5-3506").Activate•r=ActiveCell.Row•l=ActiveCell.Column•Cells(r,l+2).Select•ActiveCell.FormulaR1C1="binger"•msg=MsgBox("时间已到,图番已更改",vbInformation,"自定义信息")•EndIf•EndSub右击命令按钮→“指定宏”,在打开4、的指定宏对话框中选择刚才输入的代码,单击“确定”按钮即可。1、如果还没到指定的时间,则出现一个自定义对话框提示你更改图番时间未到。2、如果到了指定的时间,系统会自动更改FB5-3506的图番为”binger”并提示。3、如果已经更改完成,请及时删除代码,以免影响excel速度.
3、bInformation,"自定义信息")•ElseIfnowtime>=sdate+stimeThen•Cells.Find(what:="fb5-3506").Activate•r=ActiveCell.Row•l=ActiveCell.Column•Cells(r,l+2).Select•ActiveCell.FormulaR1C1="binger"•msg=MsgBox("时间已到,图番已更改",vbInformation,"自定义信息")•EndIf•EndSub右击命令按钮→“指定宏”,在打开
4、的指定宏对话框中选择刚才输入的代码,单击“确定”按钮即可。1、如果还没到指定的时间,则出现一个自定义对话框提示你更改图番时间未到。2、如果到了指定的时间,系统会自动更改FB5-3506的图番为”binger”并提示。3、如果已经更改完成,请及时删除代码,以免影响excel速度.
此文档下载收益归作者所有