《计时器ExcelVBA》PPT课件.ppt_第1页
《计时器ExcelVBA》PPT课件.ppt_第2页
《计时器ExcelVBA》PPT课件.ppt_第3页
《计时器ExcelVBA》PPT课件.ppt_第4页
《计时器ExcelVBA》PPT课件.ppt_第5页
已阅读5页，还剩3页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

Excel VBA,关于计时器的用法 许林林7/3-09,如何打开代码编辑器？,1、在工具栏的空白处右击，在打开的列表框中 选择“Visual Basic”,如下图所示。 2、打开“Visual Basic”工具栏。,3、选择”Visual Basic编辑器”按钮即可进入。,如何建立命令按钮？,在工具栏的空白处右击，在打开的列表框中 选择“窗体”按钮,打开“窗体”工具栏。 如下图所示：,关于计时器的用法(举例说明）：,在左边的excel工作表中,在7/10-09 PM1:00把FB5-3506的图番修改为binger. 1、代码的输入：打开代码编辑器，输入以下代码（后面的两页）。 2、指定宏：在excel中建立一个命令按钮，指定宏为刚才输入的代码，把命令按钮的名称修改为FB5-3506即可。,1、代码的输入A 变量的定义,Private msg As MailFormat 定义msg为窗体文 件 Option Explicit 强制声明变量 Private thetime As Date 定义为日期型 Private sdate As Date 定义为日期型 Private stime As Date 定义为日期型,1、代码的输入B FB5-3506代码,Sub fb5_3506() Dim r, l As Integer Dim nowtime As Date sdate = #7/10/2009# stime = #3:10:00 PM# nowtime = Now() If nowtime = sdate + stime Then Cells.Find(what:=“fb5-3506“).Activate r = ActiveCell.Row l = ActiveCell.Column Cells(r, l + 2).Select ActiveCell.FormulaR1C1 = “binger“ msg = MsgBox(“时间已到,图番已更改“, vbInformation, “自定义信息“) End If End Sub,2、指定宏,右击命令按钮“指定宏”，在打开的指定宏对话框中选择刚才输入的代码，单击“确定”按钮即可。,说明文件：,1、如果还没到指定的时间，则出现一个自 定义对话框提示你更改图番时间未到。 2、如果到了指定的时间，系统会自动更改 FB5-35
人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论