网站大量收购闲置独家精品文档,联系QQ:2885784924

EXCELVBA学习笔记.doc

  1. 1、本文档共87页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第一章 VBA 基础知识 1-2 宏在工作中的运用 1.宏的定义 宏:macro 形容词:巨大的;大量的;宏观的 名词:[电脑]巨(宏)指令 定义:一组可以让自动执行的代码(VBA) 宏的录制相当于摄像机的功能。 2.总结: 优点:重复执行相同操作,提高工作效率 缺点:不够智能化,无法交互工作,代码冗余 解决方案:VBA 3.宏在excel中的地位 虽然看起来不够灵活,但对于学习VBA编程却非常重要。 1.提高代码编写效率 2.帮助学习VBA知识 1-4 代码编写规则 代码换行(下划线+空格+换行) Sub aa() Msgbox _ “学习VBA” End sub 1-7 属性 VBA属性:指对象所具有的特性 人的属性:姓名、年龄、身份证号、住址…… VBA对象属性的赋值 Sub 属性赋值() S=”改变自己” Sheet2.range(“a1”)=”学习VBA” End sub 1-8 方法 方法:实际上就是对对象的操作,它是一种动作,一种行为。 Sub 选择方法() Range(a1:a10).Select End Sub Sub 复制方法() Sheets(1).Range(a1:a10) = 1 Sheets(1).Range(a1:a10).Copy Sheets(2).Range(a1) End Sub Sub 删除方法() Sheets(3).Delete End Sub 1-9 常量与变量 1.常量:常量是定义了之后就不做变化了。 常量定义格式:const 常量名=常量表达式 2.变量:在定义之后还能再次赋值 变量定义格式:dim 变量 as 变量类型 3.A.VBA允许使用未定义的变量,默认是变体变量(Variant) B.变量的强制声明:Option explicit 4.变量名的命名规则 以字母开头 不能用保留字 不超过255个字符 同一范围内必须是唯一 1-10 数据类型 类型 注释 简写 占用内存 Integer 整型 % 2byte Single 单精度 ! 4byte Double 双精度 # 8byte Long 长整型 4byte String 字符型 $ 定长或变长 Currency 货币型 @ 8byte 1-12 IF语句 VBA中的IIF函数与工作表函数IF的语法结构一致 Sub iif函数应用() Cells(2,3)=iif(cells(1,2)80,”优秀”,”不优秀”) End sub 1-12B 1.单行形式1(if…then) If 条件判断 then 条件成立结果 注意:在单行形式中,按照if…then判断的结果也可以执行多条语句。所有语句必须在同一行上并且以冒号分开。 Sub test() If 1110 then a=a+1:b=1+a:c=1+b End sub 2.单行形式(if 条件判断 then 条件成立 else 条件不成立) Sub test2() If 2 1 Then MsgBox yes Else MsgBox no End Sub 3.块形式(if…then…end) If 条件判断 then 条件成立结果 End if Sub test3() If 11 10 Then a = 1 + a b = 1 + a c = 1 + b End If End Sub 4.块形式的if嵌套 If 条件判断 then 成立时的结果 Elseif 条件判断 then 成立时的结果 …… Else 不成立时的结果 End if 1-13 Select case 语句 根据表达式的值,来决定执行几组语句中的其中之一。 sub select单条件判断() i = -1 Select Case i Case Is 0 MsgBox 正数 Case Else MsgBox 负数 End Select End Sub Sub test1() Dim fs% fs = InputBox(请输入考试分数:) Select Case fs Case 90 To 100 MsgBox 优秀! Case 80 To 89 MsgBox 良好! Case 60 To 79 MsgBox 中等! Case 0 To 59 MsgBox 差等! Case Else MsgBox 输入的分数超出正常范围! End Select End Sub 1-14 循环语句之DO…LO

文档评论(0)

gangshou + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档