Excel VBA入门教程


    VBA入门系列讲座
    11 VBA什
    直90年代早期应程序动化充满挑战性领域需动化应程序学种动化语言例excel宏语言excel动化word BASICword动化等等微软决定开发出应程序享种通动化语言Visual Basic For Application(VBA)认VBA非常流行应程序开发语言VASUAL BASIC子集实际VBA寄生VB应程序版VBAVB区包括方面
    1 VB设计创建标准应程序VBA已应程序(excel等)动化
    2 VB具开发环境VBA必须寄生已应程序
    3 运行VB开发应程序户必安装VBVB开发出应程序执行文件(*EXE)VBA开发程序必须赖父应程序例excel

    存VBAVB结构然十分相似事实果已解VB会发现学VBA非常快相应学完VBA会学VB坚实基础学会excel中VBA创建解决方案已具备word access OUTLOOK FOXPRO PROWERPOINT中VBA创建解决方案部分知识
    l VBA关键特征学知识微软产品中相互转化
    l VBA称作excel遥控器

    VBA究竟什更确切讲种动化语言常程序动化创建定义解决方案
    外果愿意excel做开发台实现应程序
    12 Excel环境中基应程序动化优点
    许想知道VBA干什VBA实现功包括
    1 重复务动化
    2 定义excel工具栏菜单界面
    3 简化模板
    4 定义excel成开发台
    5 创建报表
    6 数进行复杂操作分析

    excel作开发台原
    1 excel身功强包括印文件处理格式化文编辑
    2 excel置量函数
    3 excel界面熟悉
    4 连接种数库

    语言开发应程序半工作编写基功模块包括文件开保存印复制等excel作开发台excel已具备基功做

    13录制简单宏
    介绍学VBA前应该花分钟录制宏
    新术语:宏指系列excel够执行VBA语句
    录制宏非常简单改变单元格颜色请完成步骤:
    1)开新工作簿确认工作簿已关闭
    2)选择A1单元格调出常工具栏
    3)选择工具—宏—录制新宏
    4)输入改变颜色作宏名换默认宏名单击确定注意时状态栏中显示录制特停止录制工具栏显示出换默认宏名便分宏
    l 宏名255字符必须字母开始中字符包括:字母数字划线宏名中允许出现空格通常划线代表空格
    5)选择格式单元格选择图案选项中红色单击确定
    6)单击停止录制工具栏钮结束宏录制程
    l 果停止录制工具栏开始未出现请选择工具—宏—停止录制

    录制完宏执行
    14执行宏
    执行宏时excel宏语句执行情况VBA代码excel进行遥控VBA遥控仅操作变简便获excel标准命令法实现功旦熟悉excel遥控会奇怪没遥控情况底熬执行刚录制宏步骤进行:
    1)选择单元格A3
    2)选择工具—宏—宏显示宏话框
    3)选择改变颜色选择执行A3单元格颜色变红色试着选择单元格单元格组成区域然执行宏便加深印象
    15查录制代码
    底什控制excel运行呢疑惑VBA语句吧
    1)选择工具—宏—宏显示宏话框
    2)单击列表中改变颜色选择编辑钮
    时会开VBA编辑器窗口(VBE)关该编辑器详细说明先注意力集中显示代码代码:(日期姓名会)
    Sub改变颜色()


    改变颜色Macro
    xw记录宏2000610


    With SelectionInterior
    ColorIndex 3
    Pattern xlSolid
    PatternColorIndex xlAutomatic
    End With
    End Sub
    会十分熟悉种代码然现种奇怪外语学VBA编程语言某种程度较学种外语
    Sub改变颜色()宏名称 中间 开头五行称注释录制宏时动产生 With开头End With结束结构With结构语句段语句宏部分注意单词selection代表突出显示区域(:选定区域)With SelectionInterior :读作选择区域部整段语句设置该区域部属性
    中:
    ColorIndex 3 该部设红色注意:圆点作简化语句圆点代出现With词With结构部分外:红色数字化3(红色警戒否称作:3号警戒嗯?)兴趣话3改数字试试
    Pattern xlSolid:设置该区域部图案录制宏然未设置项宏然记录(图案选项中项设置已)xlSolid表示纯色
    PatternColorIndex xlAutomatic:表示部图案底纹颜色动配色
    End With结束With语句
    End Sub整宏结束语
    16编辑录制代码
    节录制宏查代码代码中两句实际起作两句?现宏中作修改删余行直面代码相:
    Sub改变颜色()


    改变颜色Macro
    xw记录宏2000610


    With SelectionInterior
    ColorIndex 3
    End With
    End Sub
    完成工作表中试验会发现结果修改前状况样With语句前加入行
    Range(A5)Select
    试着运行该宏开始选择单元格宏运行结果A5单元格变红
    现编辑录制宏样非常简单需编辑宏三方面原:录制中出错修改二:录制宏中余语句需删提高宏运行速度三:希增加宏功:加入判断循环等法录制语句
    17录制宏局限性
    希动化许excel程录制宏完成宏记录器存局限性通宏记录器法完成工作
    1)录制宏判断循环力
    2)机交互力差户法进行输入计算机法出提示
    3)法显示excel话框
    4)法显示定义窗体

    18结
    学时中已掌握VBA基础知识会录制宏编辑宏解录制宏局限性努力已学VBA甚VB等编程语言基础关键已解谜底说解什编程面练做完玩哟
    思考
    1)VBAexcel
    2)VBA基种语言
    3)说说excelVBA关系
    4)什宏

    原文发表时间:未知



    <[dvnews_page(2)处理录制宏]
    21宏指定快捷键
    许希常宏指定快捷键快捷键指键组合时执行条命令例:CTRL+C
    许程序中代表复制命令宏指定快捷键快捷键执行宏必通工具菜单
    注意:包含宏工作簿开时间宏指定快捷键会覆盖excel默认快捷键例:CTRL+C指定某宏CTRL+C执行复制命令方法印出excel快捷键清单(A4纸印24页):
    1)开excel帮助文件选择目录选项
    2)快捷键文件夹中选择快捷键标题
    3)右击该标题快捷菜单中选择印
    4)选择印选标题子题单击确定
    创建宏时指定快捷键创建指定创建(录制)宏时指定快捷键须录制宏时输入宏名快捷键文框中输入相应键录制宏指定快捷键简单需选择工具宏显示宏话框选择指定快捷键宏单击选项钮通选项话框进行设置
    22决定宏保存位置
    宏保存三种位置:
    1)前工作簿(该工作簿开时该宏) 2)新工作簿 3)宏工作簿
    23宏工作簿
    宏工作簿宏设计种特殊具动隐藏特性工作簿第次宏创建宏工作簿时会创建名PERSONALXLS新文件果该文件存excel启动时会动文件开隐藏活动工作簿面(窗口菜单中选择取消隐藏方便发现存)果某宏工作簿应创建宏工作簿宏保存中宏工作簿保存XLSTART文件夹中具体路径:C\WINDOWS\Profiles\Application Data\Microsoft\excel\XLSTART单词XLSTART查询
    注意:果存宏工作簿excel启动时会动文件开隐藏存放XLSTART文件夹
    231保存宏宏工作簿

    练保存简单宏宏工作簿该宏文加划线改斜体步骤
    1)建立名HOUR2工作簿选择工具宏录制新宏显示录制新宏话框
    2)输入格式化文作宏名
    3)保存拉框中选择宏工作簿
    4)单击确定钮现进入录制模式
    5)单击斜体工具栏钮段时间鼠标出现沙漏特第次创建宏工作簿时excel创建该工作簿
    6)单击划线钮
    7)停止录制

    232编辑宏工作簿中宏

    刚已保存宏宏工作簿现工作簿中该宏步骤操作
    1)关闭excel工作簿
    2)意开excel文件(excel动宏工作簿时开隐藏)
    3) A3中输入名字
    4)选择工具宏显示宏话框现宏列表中格式化文宏
    5)选择格式化文宏执行现A3单元格中名字变斜体字带划线选择窗口取消隐藏PERSONALXLS显示出中没文字通VBA编辑器中模块中找格式化文宏VBA编辑器中该宏进行直接编辑者删果PERSONALXLS中宏没启动excel时会开PERSONALXLS许excel存毛病
    24宏指定钮
    通快捷键宏执行变快旦宏数量难记忆果宏难道记住快捷键
    作excel开发者目标动化提供易操作界面钮常见界面组成元素通窗体工具栏工作簿中工作表添加钮创建完钮指定宏然户通单击钮执行宏练中创建钮指定宏然该钮执行宏具体步骤:
    1)开HOUR2工作簿
    2)调出窗体工具栏
    3)单击窗体工具栏中钮控件时鼠标变成十字形状
    4)希放置钮位置鼠标左键拖动鼠标画出矩形矩形代表该钮满意放开鼠标左键样命令钮添加工作表中时excel动显示指定宏话框
    5)指定宏话框中选择格式化文单击确定样该宏指定命令钮
    6)钮标题钮1前单击鼠标左键DELETE直删文输入格式化作标题
    7)单击钮外意位置现该钮标题默认钮1变格式化指定宏
    8)试着某单元格中输入文单击钮运行该宏
    鼠标移动该钮时动变成手形状果改变标题需右键单击该钮进行修改设置明显需记住宏名字快捷键需钮
    25宏指定图片象
    执行宏种方法选择宏指定钮等控件指定图片定义工具栏窗体甚宏指定某事件单击工作表双击工作表激活工作表开工作簿等等事件重概念外方法象会常接触现十分抽象会熟悉词语指定宏图片十分简单需单击某图片单击快捷菜单中指定宏进行设置
    果希工作表添加控件图片执行宏种方法选择:宏指定工具栏钮步骤进行:
    1)开HOUR2工作簿选择工具定义显示定义工具栏话框
    2)类列表框中选择宏命令列表框中选择定义钮
    3)定义钮拖动工具栏
    4)右键单击该钮选择指定宏显示指定宏话框
    5)选择格式化文确定
    6)单击关闭钮关闭定义工具栏话框
    7)试着某单元格中输入文单击工具栏钮运行该宏
    结思考: 宏存放三位置宏工作簿存放位置特性执行宏方式指定宏某象事件指定程序旦象该事件激活系统运行指定程序
    常象:workbookworksheetrangecells图表图片数透视表控件窗体工具栏象响应特殊事件(通事件单击双击等)兴趣通excel帮助文件查询词条excel中属某象excel中做许工作移动鼠标等等触发事件学时学控件



    <[dvnews_page(3)学控件]
    31 excel开发程简介
    需问题致概念
    1)谁决定程序操作难度界面感观
    2)数源保存里决定程序结构
    3)操作决定程序界面细节
    4)数处理结果终决定程序价值

    32认识控件
    开始时请关闭工作簿开新工作簿存HOUR3工具栏单击鼠标右键快捷菜单中选择窗体显示窗体工具栏中16控件9放工作表
    1)标签:表现静态文
    2)分组框:控件进行组合
    3)钮:执行宏命令
    4)复选框:选择控件通单击选择取消选择项选择
    5)选项钮:通常选项钮组合起组中选择选项钮
    6)列表框:显示选项中选择单选
    7)组合框:显示选项中选择选择中项目者输入值
    8)滚动条:常见长窗体添加滚动力控件种选择机制例调节渡色滚动条控件包括水滚动条垂直滚动条
    9)微调控件:种数值选择机制通单击控件箭头选择数值例改变Windows日期时间会微调控件
    33工作表添加控件
    excel设计界面十分简单控件添加工作表步骤操作
    1)创建新工作簿存HOUR3显示窗体工具栏
    2)选择标签控件
    3)鼠标定位E1时鼠标变成十字
    4)左键拖动约四单元格长度放开鼠标左键果希控件易控制创建该控件时ALT拖动
    5)标签1单击右键选择编辑文字现输入文字完成单击单元格退出文字编辑
    6)通步骤添加控件工作表中赘述
    34设置控件特性
    设置控件特性步骤操作
    1)选中先前创建复选框控件果没马创建
    2)右击该控件选择控制选项卡
    3)单元格链接中输入A1确定
    4)单击意单元格退出设置
    5)鼠标左键单击复选框A1出现TRUE意味着该控件选中次单击该控件A1出现FALSE
    6)选择刚创建滚动条控件调出设置控件格式话框
    7)单元格链接中输入A3确定
    8)滚动条外意单元格单击鼠标左键滚动条选择
    9)鼠标单击滚动条箭头A1数值增加1继续单击A1数值继续增加
    10)保存关闭该工作簿
    35控件命名
    创建控件时excel会动指定名字便理解记忆控件取名方法基单元格区域取名方法相选中某控件位公式栏名字编辑框输入控件名字样控件更改名字
    36户窗体
    果希创建专业级应程序方便户输入数应该户窗体户窗体作程序话框窗口户窗体添加控件基类似工作表添加控件然第步创建户窗体通VBA编辑器实现具体步骤操作
    1)开HOUR3工作簿选择工具宏VBA编辑器开VBA编辑器
    2)VBA编辑器中选择工具栏插入户窗体钮者选择插入菜单拉菜单中选择户窗体
    现VBA编辑器中出现名USERFORM1窗体控件工具箱时出现中许已熟悉控件外新控件
    新控件
    A)切换钮该控件果选中会保持状态果次单击恢复没状态excel工具栏中样钮例全屏显示加粗划线窗体工具栏中切换网格等
    B)选项卡条(TabStrip)包含选项卡控件通常相关信息进行组织分类例许希选项卡条显示区销售信息区设置选项卡默认时选项卡包含两页分做TAB1TAB2添加更选项卡
    C)页外观类似选项卡条包含页页控件选项卡条相似外观页控件页包含控件布局页例子例设置控件格式话框工具菜单中选项话框格式菜单中单元格话框
    D)图控件允许窗体放置图片图片格式须 *bmp*cur*gif*ico*jpg*wmf
    F)RefEdit工具箱中默认情况控件外观象文框通控件户窗体折叠起便选择单元格区域记fx粘贴函数时情况?
    通实践会逐渐掌握控件特性确需花时间必死记硬背
    户窗体设计满意时进行预览方法VBA编辑器中选择该窗体单击运行菜单中三角符号运行子程户窗体三角符号VBA工具栏旁边垂直等符号右边正方形符号类似录音机钮运行窗体方法F5键
    结:学完学时具备程序界面设计基知识控件感陌生明白工作表窗体添加控件控件容需边边理解界面转移学编写代码终二者融合准备学编程吧
    疑难解答
    问题1样决定控件位置选择添加工作表添加户窗体
    解答完全取决爱应程序户果户excel非常熟悉许更希工作表方式操作种情况妨直接工作表创建控件果户excel熟悉者需户专业界面感觉应该户窗体
    问题2什情况该选项卡条页控件 解答果页具相布局应选择选项卡条否应该选择页
    节作业:
    1思考:
    1)列举两种户进行选控件
    2)控件单元格链接起

    2判断
    1)VBA编辑器中添加户窗体
    2)VBA编辑器中窗体网格线运行时会动显示
    3填空( )显示静态文控件




    <[dvnews_page(4)理解变量]
    44变量
    变量时保存数值方次应程序运行时变量包含数值程序运行时变量数值改变
    说明什需变量步骤创建简单程
    1)创建名什名字程
    2)程中输入代码
    Inputbox 输入名字
    现担心inputbox语句语法第六学时中解关条命令更信息
    3)F5键运行程时会显示输入框求输入名字
    4)输入名字确定钮结束该程

    输入名字里找户输入框中输入信息种情况需变量存储户输入结果
    441变量数类型

    变量第步解变量数类型变量数类型控制变量允许保存种类型数表41列出VBA支持数类型列出种类型变量需存储空间够存储数值范围


    表41 VBA数类型
    作ABV程序员目标选择需存储空间量数类型保存需数正表41提供种数类型存储空间原例保存诸班级学生总数样数字Byte数类型足够种情况Single数类型计算机存储空间浪费
    442Dim语句创建变量(声明变量)

    现变量数类型已较熟悉创建变量创建变量Dim语句创建变量通常成声明变量 Dim语句基语法
    Dim变量名AS数类型
    条语法中变量名代表创建变量名变量命名规程命名规相条语句中数类型部分表41中种数类型
    变量名必须字母开始包含字母数字特定特殊字符包含空格句号惊叹号包含字符@ & #名字长度255字符


    接练中说明VBA中变量输入名字消息框显示出具体步骤
    1)创建名显示名字子程序
    2)输入代码

    Public Sub显示名字()
    Dim s名字As String
    s名字 Inputbox(请输入名字)
    Msgbox & s名字
      End Sub

    3)鼠标放程中方F5键运行程会显示输入框
    4)输入名字回车键会显示消息框显示文字中包含名字
    5)单击确定钮返回程中
    Dim语句中必提供数类型果没数类型变量定义Variant类型VBA中默认数类型Variant知道点初反应许觉应该决定数类型切抛VBA种观念完全错误必须决定选择种数类型Variant数类型占存储空间较(1622字节)影响程序性VBA必须辨Variant类型变量中存储种类型数
    443变量命名惯例

    表出推荐变量命名惯例


    表42变量命名前缀
    444数组

    果编程序语言数组已较熟悉数组具相数类型享名字组变量集合数组中元素通索引数字加区分定义数组方法
    Dim array_name(n) As type (中n数组元素数)
    例果创建保存10学生名字数组语句
    Dim s学生名字(9) As Integer
    注意括号中数字910默认情况第索引数字0数组处理相似信息时非常假设处理15门考试成绩创建15独立变量意味着15Dim语句创建数组保存考试成绩具体:
    Dim s考试成绩(14) As Integer
    声明数组时种方法定程序运行时定义通创建动态数组做例程序创建表格提示户输入表格行列数目声明动态数组语法:
    Dim dyn_array() As type
    数组声明程序运行时:ReDim语句指定数组:
    ReDim dyn_array()(array_size)
    参数array_size代表数组新果保留数组数值请ReDim语句保留字Preserve具体语法:
    ReDim Preserve dyn_array(array_size)
    445变量赋值

    声明变量变量赋值请注意列语句中数组变量赋值时索引数字
    程序清单44
    Dim i数As Integer
    Dim i考试成绩As Integer
    Dim i As Integer

    i数 inputbox(输入学生数:)
    ReDim Preserve i考试成绩(i数量)
    For i 1 to i数
    i考试成绩(i) inputbox(输入考试成绩& i )
      Next i
    45常量
    现已知道变量存储非静态信息存储容器存储静态信息时创建常量供程序次便记忆圆周率31415926理解
    声明常量设置常量值需const语句常量声明赋新值例假设需声明常量保存销项税率语句
    const S销项税率As Long 017
    通常常量声明时全写字母区分变量

    46作域
    现止已学定义变量常量知道处定义两方定义常量变量
    程中定义模块顶部名通声明区域定义定义位置决定作域
    程中声明该变量该程中程中变量常量中变量成局部变量程级变量模块顶部声明变量称模块级变量该变量该模块程中
    种等级作域称公级公级变量应程序程中程变量否定义模块公级变量中十分灵活公级变量程序运行时直保留存中样占系统资源创建公级变量Public语句具体语法:
    Public variablename As datatype
    创建公级常量具体语法:
    Public const CONSTANAME datatype value
    公级变量常量必须模块顶部通声明区域中定义
    47结
    课重点变量常量课中学会创建变量保存非静态数解VBA数类型学会创建常量保存静态数课部分学变量常量作域
    48疑难解答
    1果希位置变量数应该处定义该变量?
    答:必须模块顶部通声明区域定义模块级变量Dim语句公级变量Public语句
    2模块否独立工作簿
    答实际模块工作簿部分保存工作簿时模块做改变时保存
    3什应该变量定义Variant数类型 答Variant类型数占较存影响应程序性




    <[dvnews_page(5)利VBA设置工作表权限]
    般保护工作表采取方法excel菜单中保护命令时尚嫌足机密文件根某者法需操作工作簿中表办?
    开VBA编辑器开工程资源理器双击该工作表现出现设置该表属性编辑窗口单击窗口左拉列表框选择worksheet 时该窗口右方列表框中选择Active(激活)时动显示语句块:
    Private Sub Worksheet_Activate()
    End Sub
    中加入代码:(假设123作密码Sheet机密文档限制权限文档sheet普通文档工作簿中认适合工作表)
    If ApplicationInputBox(请输入操作权限密码) 123 Then
    Range(A1)Select
    Else
    Msgbox 密码错误退出
    Sheets(普通文档)Select
    End if
    程序:
    Private Sub Worksheet_Activate()
    If ApplicationInputBox(请输入操作权限密码) 123 Then
    Range(A1)Select
    Else
    MsgBox 密码错误退出
    Sheets(普通文档)Select
    End If
    End Sub

    样做问题越权者会文件片段提示密码段时间样做述方法选择工作表Deactivate事件输入代码:
    Sheets(机密文档)CellsFontColorIndex 2
    段程序工作表激活时文字白色然第程序中Range(A1)Select插入行写入代码:
    ActiveSheetCellsFontColorIndex 56
    段程序输入正确密码该表文字转变深灰色 完整程序:
    Private Sub Worksheet_Activate()
    If ApplicationInputBox(请输入操作权限密码) 123 Then
    Range(A1)Select
    Sheets(机密文档)CellsFontColorIndex 56
    Else
    MsgBox 密码错误退出
    Sheets(普通文档)Select
    End If



    <[dvnews_page(6)提高excel中VBA效率]
    Microsoft office办公套件广泛应该软件版断提升功断完善office办公套件台开发出VBA应程序越越VBA种宏语言运行速度限制VBA编程方法直接关系VBA程序运行效率文列举提高VBA程序运行效率方法
    方法1:量VBA原属性方法Worksheet函数
    excel象达百象属性方法事件胜数初学者说全部解产生编程者常编写excel象属性方法相功VBA代码段代码段运行效率显然excel象属性方法完成务速度相差甚例Range属性CurrentRegion返回Range象该象代表前区(前区指意空白行空白列组合边界区域)样功VBA代码需数十行编程前应解excel象属性方法
    充分利Worksheet函数提高程序运行速度极度效方法求均工资例子:
    For Each c In
    Worksheet(1)Range(″A1A1000″)
    TotalValue TotalValue + cValue
    Next
    AverageValue TotalValue Worksheet(1)Range(″A1A1000″)RowsCount
    面代码程序面例子快:
    AverageValueApplicationWorksheetFunctionAverage(Worksheets(1)Range(″A1A1000″))
    函数CountCountaCountifMatchLookup等等代相功VBA程序代码提高程序运行速度
    方法2:量减少象引尤循环中
    excel象属性方法调需通OLE接口调OLE调需时间减少象引加快VBA代码运行例
    1.With语句
    Workbooks(1)Sheets(1)Range(″A1A1000″)FontName″Pay″
    Workbooks(1)Sheets(1)Range(″A1A1000″)FontFontStyle″Bold″
    语句面快
    With Workbooks(1)Sheets(1)Range(″A1A1000″)Font
    Name ″Pay″
    FontStyle ″Bold″
      
    End With
    2.象变量
    果发现象引次象Set设置象变量减少象访问:
    Workbooks(1)Sheets(1)Range(″A1″)Value 100
    Workbooks(1)Sheets(1)Range(″A2″)Value 200
    代码面快:
    Set MySheet Workbooks(1)Sheets(1)
    MySheetRange(″A1″)Value 100
    MySheetRange(″A2″)Value 200

    3.循环中量减少象访问
    For k 1 To 1000
    Sheets(″Sheet1″)Select
    Cells(k1)Value Cells(11)Value
    Next k
    代码面快:
    Set TheValue Cells(11)Value
    Sheets(″Sheet1″)Select
    For k 1 To 1000
    Cells(k1)Value TheValue
    Next k
    方法3:减少象激活选择
    果通录制宏学VBAVBA程序里定充满象激活选择例Workbooks(XXX)ActivateSheets(XXX)SelectRange(XXX)Select等事实数情况操作必需例
    Sheets(″Sheet3″)Select
    Range(″A1″)Value 100
    Range(″A2″)Value 200
    改:
    With Sheets(″Sheet3″)
    Range(″A1″)Value 100
    Range(″A2″)Value 200
    End With

    方法4:关闭屏幕更新
    果VBA程序前面三条做较差关闭屏幕更新提高VBA程序运行速度效方法缩短运行时间23左右关闭屏幕更新方法:
    ApplicationScreenUpdate False
    请忘记VBA程序运行结束时该值设回:
    ApplicationScreenUpdate True
    提高VBA运行效率较效种方法




    <[dvnews_page(7)excel里定时器]
    excel里加载宏 定时保存 ?惜源程序加密现传篇介绍实现文档
    office里方法applicationontime 具体函数:
    expressionOnTime(EarliestTime Procedure LatestTime Schedule)
    果想进步解请参阅excel帮助
    函数安排程特定时间运行(某日期指定时间指定时间段)通函数excel里编写定时程序面举两例子说明
    1午170000时候显示话框
    Sub Run_it()
    ApplicationOnTime TimeValue(170000) Show_my_msg
    设置定时器170000激活激活运行Show_my_msg
    End Sub
    Sub Show_my_msg()
    msg MsgBox(现170000 vbInformation 定义信息)
    End Sub
    2模仿excel 97里 动保存宏里定时5秒出现次 Sub auto_open()
    MsgBox 欢迎篇文档里5秒出现次保存提示 vbInformation 请注意
    Call runtimer 开文档时动运行
    End Sub
    Sub runtimer()
    ApplicationOnTime Now + TimeValue(000005) saveit
    Now + TimeValue(001500) 指定前时间5秒钟开始运行Saveit程
    End Sub
    Sub SaveIt()
    msg MsgBox(朋友已工作久现存盘? & Chr(13) _
    & 选择:立刻存盘 & Chr(13) _
    & 选择否:暂存盘 & Chr(13) _
    & 选择取消:出现提示 vbYesNoCancel + 64 休息会吧)
    提示户保存前活动文档
    If msg vbYes Then ActiveWorkbookSave Else If msg vbCancel Then Exit Sub
    Call runtimer 果户没选择取消次调Runtimer
    End Sub
    两简单例子兴趣话利ApplicationOntime函数写出更更定时程序




    — END —

    文档香网(httpswwwxiangdangnet)户传

    《香当网》用户分享的内容,不代表《香当网》观点或立场,请自行判断内容的真实性和可靠性!
    该内容是文档的文本内容,更好的格式请下载文档

    下载文档到电脑,查找使用更方便

    文档的实际排版效果,会与网站的显示效果略有不同!!

    需要 10 香币 [ 分享文档获得香币 ]

    下载文档

    相关文档

    《PS快速入门教程》

    PS抠图方法.  一、魔术棒法——最直观的方法  适用范围:图像和背景色色差明显,背景色单一,图像边界清晰。  方法意图:通过删除背景色来获取图像。  方法缺陷:对散乱的毛发没有用。  使用方...

    3年前   
    661    0

    excel使用技巧

    1、一列数据同时除以10000复制10000所在单元格,选取数据区域 - 选择粘性粘贴 - 除2、同时冻结第1行和第1列选取第一列和第一行交汇处的墙角位置B2,窗口 - 冻结窗格3、快速把公式...

    2年前   
    558    0

    EXCEL教学反思

    初识电子表格一课,是初中学生第一次接触电子表格,但表格对学生来讲,并不陌生,在日常生活中,使用表格的频率是非常高的,比如价格表,课程表,学生成绩表等等。通过介绍电子表格,从而引入EXCEL软件是...

    4年前   
    1510    0

    excel使用技巧

    也许你已经在Excel中完成过上百张财务报表,也许你已利用Excel函数实现过上千次的复杂运算,也许你认为Excel也不过如此,甚至了无新意。但我们平日里无数次重复的得心应手的使用方法只不过是...

    5年前   
    1267    0

    Excel练习题

    1、excel是office家族中的一员,它的主要功能是 处理数据与分析 表格处理 。2、excel电子表格中,所有对工作表的操作都建立在对 数据单元格 操作的基础之上。3、2003及其...

    4年前   
    2515    0

    Photoshop-6.0入门教程5

    路径是Photoshop软件中引入的矢量技术,它不仅可以绘出各种线条、图形,也可以制作选区、填充色彩或描边。在本单元中,我们将学习路径的基本用法以及绘制路径的方法。

    4年前   
    906    0

    钢笔行书入门教程

    钢笔行书入门教程 一,钢笔行书的特征 行书之称始于西晋卫恒《四体绝书》.张怀在《书断》中是这样阐述行书产生原因的:行书者.后汉刘德升所造也.既正书之小伪.务从简易,相间流行.帮谓之行书.在...

    5年前   
    1855    0

    Photoshop-6.0入门教程4

    第4单元 使用图层样式图层样式用于在图层上添加特殊效果,在本单元中我们将学习如何使用图层样式以及它的设置方法。第一课 图层样式的基本用法一、 任务对于图层对象可以直接使用样式,本课的主要...

    4年前   
    788    0

    Photoshop-6.0入门教程1

    Photoshop 6.0是美国Adobe公司推出的功能强大的图像处理软件,它相对于前面的版本发生了较大的变化,不仅新增了许多功能,同时在界面上也有许多不同。Photoshop 是一个图像处理软...

    4年前   
    879    0

    Photoshop-6.0入门教程3

    第3单元 图层的使用图层是Photoshop为用户提供的非常重要的处理图像工具,用户大多数的操作都离不开它。简单地说,图层可以将一个图像中的各个部分独立开,用户在对其中的任一部分处理时,不会...

    4年前   
    743    0

    Photoshop-6.0入门教程6

    通道是Photoshop中非常重要的工具,它与各种特效配合可以制作出非常精美的图像,但是通道比较难以理解、使用起来不易把握。本单元中我们将学习通道的用法。

    4年前   
    830    0

    《硬笔书法入门教程》

    写字姿势与执笔方法一、写字姿势书写的姿势对于练习写字非常重要。正确的写字姿势不仅能保证书写自如,减轻疲劳,提高书写水平,而且还能促进少年儿童身体的正常发育,预防近视、斜视、脊椎弯曲等多种疾病的...

    2年前   
    449    0

    电磁仿真CST入门教程

    电磁仿真CST入门教程1.1 软件介绍CST公司总部位于德国达姆施塔特市,成立于1992年。它是一家专业电磁场仿真软件的提供商。CST软件采用有限积分法(Finite Integration)...

    2年前   
    731    0

    Photoshop-6.0入门教程2

    Photoshop中的工具非常多,使用它们不仅会涉及工具栏,同时还涉及了控制面板、图层等一系列知识。在本单元中,我们将通过制作例图来学习这些工具的用法以及相应的控制面板和菜单的应用。

    3年前   
    637    0

    Photoshop-6.0入门教程7

    第7单元 调节图像在Photoshop中,我们经常要对图像的尺寸、色调以及画布进行调节,这些工作都要由图像菜单来完成。本单元主要学习图像菜单的基本用法。第一课 图像模式转换一、 任务在绪...

    4年前   
    628    0

    少儿围棋入门教程

    知道棋盘的基础知识:是方的有横竖各19道线,361个点。认得星和天元。知道胜负的基础知识:黑棋185子为胜,白棋177子为胜。知道围棋术语六个:气,连,断,打吃,长,提。

    4年前   
    821    0

    excel图表教学设计

    教学设计方案[课程名称] 计算机应用基础[授课章节] 5.5制作数据图表[学校名称] XX卫生学校[教师姓名] 《5.5制作数据图表》教学设计姓 名E-Mail单 位XX...

    3年前   
    942    0

    Excel基本操作技巧

    Excel基本操作技巧   第1节 基本操作技巧 2.1.1 快速选择Excel工作表(微软Office技巧大赛获奖作品) 在Excel中,要在一个有很多个工作表的工作簿中快速地选择某...

    5年前   
    1298    0

    Excel快捷键

    Excel快捷键:    ctrl+P或CTRL+SHIFT+F12: 显示“打印”对话框。    CTRL+向上键或+向左键(打印预览):缩小显示时,滚动到第一页    CTRL+向下...

    5年前   
    1352    0

    Excel计算公式大全

    Excel计算公式大全   公式是单个或多个函数的结合运用。   AND “与”运算,返回逻辑值,仅当有参数的结果均为逻辑“真(TRUE)”时返回逻辑“真(TRUE)”,反之返回逻辑“假...

    9年前   
    8522    0

    文档贡献者

    雅***韵

    贡献于2022-08-11

    下载需要 10 香币 [香币充值 ]
    亲,您也可以通过 分享原创文档 来获得香币奖励!
    下载文档

    该用户的其他文档