已阅读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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年演出经纪人之演出经纪实务高分通关题型题库及答案(有一套)
- 2024年演出经纪人之演出经纪实务高分通关题库(名师系列)
- 2024年演出经纪人之演出经纪实务高分通关题库(培优)
- 2024年演出经纪人之演出经纪实务高分题库附答案(巩固)
- 2024年苏教版六年级下册数学期末测试卷及参考答案【达标题】
- 2024年苏教版六年级下册数学期末测试卷含答案【研优卷】
- 2024年苏教版六年级下册数学期末测试卷附参考答案(综合卷)
- 2024年西师大版六年级下册数学期末测试卷及答案【真题汇编】
- 2024国际贸易采购合同中英文
- 2024年部编版六年级下册道德与法治期中测试卷及答案【夺冠】
- 数据安全操作规程
- 北京版五年级数学下学期计算题专项竞赛题
- 碳排放问题的研究--数学建模论文
- 中药灌肠法操作流程图(共1页)
- 大学体育课程教学计划(飞镖)(1)
- 南华学校申报全国校园足球特色学校主要工作做法及特色
- 隧道二次衬砌渗漏水处理方案
- 市场营销基础电子—中职指定教材
- 酒精浓度与温度换算表
- CCAA QMS审核员申请人审核表现报告 见证评价人姓名 见证评价人编号
- 消防安装工程质量通病及防治措施
评论
0/150
提交评论