《计时器ExcelVBA》PPT课件

《计时器ExcelVBA》PPT课件

ID:41301035

大小:371.56 KB

页数:8页

时间:2019-08-21

《计时器ExcelVBA》PPT课件_第1页
《计时器ExcelVBA》PPT课件_第2页
《计时器ExcelVBA》PPT课件_第3页
《计时器ExcelVBA》PPT课件_第4页
《计时器ExcelVBA》PPT课件_第5页
资源描述:

《《计时器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速度.

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。