《计时器ExcelVBA》PPT课件

《《计时器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()•Ifnowtime

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速度.