Excel VBA 快速上手之宝典Word下载.docx
- 文档编号:15183066
- 上传时间:2022-10-28
- 格式:DOCX
- 页数:22
- 大小:30.68KB
Excel VBA 快速上手之宝典Word下载.docx
《Excel VBA 快速上手之宝典Word下载.docx》由会员分享,可在线阅读,更多相关《Excel VBA 快速上手之宝典Word下载.docx(22页珍藏版)》请在冰豆网上搜索。
=(不小于)、<
=(不大于)、Like、Is
5)位运算符Not(逻辑非)、And(逻辑与)、Or(逻辑或)、Xor(逻辑异或)、Eqv(逻辑等)、Imp(隐含)
第三节数据类型
VBA共有12种数据类型,具体见下表,此外用户还可以根据以下类型用Type自定义数据类型。
数据类型
类型
标识符
字节
字符串型
String
$
字符长度(0-65400)
字节型
Byte
无
1
布尔型
Boolean
无
2
整数型
Integer
%
长整数型
Long
&
4
单精度型
Single
!
双精度型
Double
#
8
日期型
Date
8
公元100/1/1-9999/12/31
货币型
Currency
@
小数点型
Decimal
14
变体型
Variant
以上任意类型,可变
对象型
Object
4
第四节
变量与常量
1)VBA允许使用未定义的变量,默认是变体变量。
2)在模块通用说明部份,加入OptionExplicit语句可以强迫用户进行变量定义。
3)变量定义语句及变量作用域
Dim变量
as
类型'
定义为局部变量,如Dimxyzasinteger
Private变量
定义为私有变量,如Privatexyzasbyte
Public变量
定义为公有变量,如Publicxyzassingle
Global
变量
定义为全局变量,如Globlalxyzasdate
Static变量
定义为静态变量,如Staticxyzasdouble
一般变量作用域的原则是,那部份定义就在那部份起作用,模块中定义则在该模块那作用。
4)常量为变量的一种特例,用Const定义,且定义时赋值,程序中不能改变值,作用域也如同变量作用域。
如下定义:
ConstPi=3.1415926assingle
第五节数组
数组是包含相同数据类型的一组变量的集合,对数组中的单个变量引用通过数组索引下标进行。
在内存中表现为一个连续的内存块,必须用Global或Dim语句来定义。
定义规则如下:
Dim数组名([lowerto]upper[,[lowerto]upper,….])astype;
Lower缺省值为0。
二维数组是按行列排列,如XYZ(行,列)。
除了以上固定数组外,VBA还有一种功能强大的动态数组,定义时无大小维数声明;
在程序中再利用Redim语句来重新改变数组大小,原来数组内容可以通过加preserve关键字来保留。
如下例:
Dimarray1()asdouble:
Redimarray1(5):
array1(3)=250:
Redimpreservearray1(5,10)
第六节
注释和赋值语句
1)注释语句是用来说明程序中某些语句的功能和作用;
VBA中有两种方法标识为注释语句。
'
单引号如:
’定义全局变量;
可以位于别的语句之尾,也可单独一行
Rem
如:
Rem定义全局变量;
只能单独一行
2)赋值语句是进行对变量或对象属性赋值的语句,采用赋值号
=,如X=123:
Form1.caption=”我的窗口”
对象变量的赋值采用:
setmyobject=object或myobject:
=object
第七节书写规范
1)VBA不区分标识符的字母大小写,一律认为是小写字母;
2)一行可以书写多条语句,各语句之间以冒号:
分开;
3)一条语句可以多行书写,以空格加下划线_来标识下行为续行;
4)标识符最好能简洁明了,不造成歧义。
第八节条件语句
1)If…Then…Else语句
IfconditionThen[statements][Elseelsestatements]
如1:
IfA>
BAndC<
DThenA=B+2ElseA=C+2
如2:
Ifx>
250Thenx=x-100
或者,可以使用块形式的语法:
IfconditionThen
[statements]
[ElseIfcondition-nThen
[elseifstatements]...
[Else
[elsestatements]]
EndIf
如1:
IfNumber<
10Then
Digits=1
ElseIfNumber<
100Then
Digits=2
Else
Digits=3
2)SelectCase…Case…EndCase语句
SelectCasePid
Case“A101”
Price=200
Case“A102”
Price=300
……
CaseElse
Price=900
EndCase
3)Choose函数
choose(index,choce-1,choice-2,…,choice-n),可以用来选择自变量串列中的一个值,并将其返回,index必要参数,数值表达式或字段,它的运算结果是一个数值,且界于1和可选择的项目数之间。
choice必要参数,Variant表达式,包含可选择项目的其中之一。
如:
GetChoice=Choose(Ind,"
Speedy"
"
United"
Federal"
)
4)Switch函数
Switch(expr-1,value-1[,expr-2,value-2_[,expr-n,value-n]])
switch函数和Choose函数类似,但它是以两个一组的方式返回所要的值,在串列中,最先为TRUE的值会被返回。
expr必要参数,要加以计算的Variant表达式。
value必要参数。
如果相关的表达式为True,则返回此部分的数值或表达式,没有一个表达式为True,Switch会返回一个Null值。
第九节循环语句
1)ForNext语句以指定次数来重复执行一组语句
Forcounter=startToend[Stepstep]'
step缺省值为1
[ExitFor]
Next[counter]
ForWords=10To1Step-1'
建立10次循环
ForChars=0To9'
MyString=MyString&
Chars'
将数字添加到字符串中
NextChars'
Incrementcounter
"
'
添加一个空格
NextWords
2)ForEach…Next语句主要功能是对一个数组或集合对象进行,让所有元素重复执行一次语句
ForEachelementIngroup
Statements
[Exitfor]
Next[element]
ForEachrang2Inrange1
Withrange2.interior
.colorindex=6
.pattern=xlSolid
Endwith
Next
这上面一例中用到了With…EndWith语句,目的是省去对象多次调用,加快速度;
语法为:
Withobject
EndWith
3)Do…loop语句在条件为true时,重复执行区块命令
Do{while|until}condition'
while为当型循环,until为直到型循环,顾名思义,不多说啦
Exitdo
Loop
或者使用下面语法
Do'
先do再判断,即不论如何先干一次再说
Loop{while|until}condition
第十节其他类语句和错误语句处理
一.其他循环语句
结构化程序使用以上判断和循环语句已经足够,建议不要轻易使用下面的语句,虽然VBA还支持。
Gotoline该语句为跳转到line语句行
Onexpressiongosubdestinatioinlist或者onexpressiongotodestinationlist语句为根据exprssion表达式值来跳转到所要的行号或行标记
Gosubline…line…Return语句,Return返回到Gosubline行,如下例:
Subgosubtry()
Dimnum
Num=inputbox(“输入一个数字,此值将会被判断循环”)
Ifnum>
0thenGosubRoutine1:
Debug.printnum:
Exitsub
Routine1:
Num=num/5
Return
Endsub
4)
while…wend语句,只要条件为TRUE,循环就执行,这是以前VB老语法保留下来的,如下例:
whilecondition‘whileI<
50
[statements]‘I=I+1
wend‘Wend
二.错误语句处理
执行阶段有时会有错误的情况发生,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Excel VBA 快速上手之宝典 快速 上手 宝典
![提示](https://static.bdocx.com/images/bang_tan.gif)