VBA语法基础

VBA语法基础

一、数据类型
1．声明变量
变量是内存中用于存储数据的临时存储区域，在使用前必须先声明，在VBA应用程序中，可以使用Dim来声明变量，其格式为：
Dim 变量名 [As 类型]
●        变量名必须以字符开头，其最大长度为255个字符
●        变量名中不能包括：+、-、/、*、！、<、>、.、@、&、$等字符。
●        变量名中不能含空格，但可以含有下划线（_）。
如果在定义变量时省略了“As 类型”，则定义的变量默认为Variant，即隐式声明变量，有时也可以在变量后面使用类型符来代替“As类型”，类型符与变量之间不能有空格，如：
Dim X  As integer
Dim X%
其中，integer是整数类型，“%”符号表示整数类型，
另外，“&”——长整型（Long）
“！”——单精度浮点型(Single)
“#”——双精度型浮点型(Double)
“小数型”——Decimal
“字符型”——String
“货币型”——Currency
“日期时间型”——Date
“布尔型”——Boolean（只有两种值True和False）
“字节型”——Byte
“对象型”——Object
“变体型”——Variant
一个Dim语句可以定义多个变量，但每个变量之间须用“，”隔开。
在声明字符串类型变量时，若声明固定长度的字符变量时，需在数据类型后面添加星号（*）和指定长度的数字，如：
Dim S1 As string  ’声明的字符串变量的长度是可以娈的
Dim S2 As string * 30  ’ 声明的字符串变量长度是固定的，最多可存放30个字符。
如果存放的固定长度的字符，长度大于指定的长度，多余的部分就会被截去。
定义的变量——可分公共变量和局部变量，如果在VBA代码编辑窗口的通用部分，则该变量可在当前窗口的所有事件中使用；如果将变量定义在一个事件内部，则此变量只能用于该事件。

2．常量
是指在程序运行过程中，其值保持不变的量。它可以是数字、字符串，也可以是其它值。
如果在程序中经常用到某些值，或为了新闻记者和修改程序，就可以将一些值定义成常量，在VBA中，通常使用Const关键字来声明常量，常量声明的基本格式为：
Const 常量名  [As类型] =表达式
如：const cp As integer=100 ’声明变量的整型变量CP，代表的值为100
    Const  PI =3.1415926  ’声明的常量PI，代表的值为3.1415926
常量与变量一样，也可分为公共常量和局部常量。

3．运算符
●算术运算符：
“+”——加；
“*”——乘
“-”——减
“/”——除
“mod”——取模，即取余数，
“﹨”——整除
“^”——乘方
算术运算符优先顺序为（前面的优先级最高，最先进行运算），^、-（负号）、*或/、﹨、mod、+或（减号）
●关系运算符
是用于两个操作数进行大小比较，若关系成立，则返回值为true，否则，返回False，在Access中，true用-1表示，False用0表示，VBA中的关系运算符共有6个：
>,<,=,>=,<=,<>
● 逻辑运算符
其作用是将操作数据进行逻辑运算，返回的结果为True或False
IMP——包含
EQV——等价于
XOR——异或
OR——或
AND——与
NOT——非
●连接运算符
是将两个字符串连接为一个字符串，该运算符为“&”

二、VBA内置函数
1、常用内置函数
●数学函数
正弦（sin）,余弦（COS），绝对值（ABS），获取数值整数部分（INT）
●字符串函数
Ltrim(删除左边空格)，
Rtrim(删除右边空格
Left(截取左边n个字符)
Right(截取右边n个字符)
Mid(从第n个字符开始截取m个字符)
Len（返回字符串长度）
●日期/时间函数
Year(now)——年
Month(now)——月
Day(now)——日
Hour(now)——时
Minute(now)——分
Second(now)—— 秒
Weekday(now)——星期
●转换函数
将一个数据类型转换成另一个数据类型。将字符型数据转换成整型的函数Int，将数值型转换成字符串型函数Str

2、信息输出函数
在VBA中，经常使用MsgBox函数，来显示用户定义的提示信息，该函数基本格式为：
MsgBox（提示[，按钮]），标题]）
其中，“提示”表示要在对话框中显示的字符；‘“按钮”是整型表达式，用于指定对话框中显示的按钮、图标、和默认按钮；“标题”用于指定显示在对话框标题栏中的字符。

3、数据输入函数
在VBA中，经常使用Input函数，来接收用户在对话框中输入的信息，该函数基本格式为：
Input（提示[，标题][，默认][，X坐标位置] [，y坐标位置]）
其中，“提示”表示为输入内容的说明文字；“标题”是显示在标题栏中的字符串。“默认”用于设置在对话框中默认显示的内容；“X坐标位置”和“Y坐标位置”为整型表达式，用于设置对话框左上角在屏幕中的坐标位置。如：
Private Sub form_Load()
Dim s ,s1,s2 As String
S1=”请输入登录口令”
S2=” 登录”
S= InputBOX（s1,s2,”Access”）’s是用于获取对话框中输入的内容
End sub


Access的根对象
对象名        说明
Appllcation        应用程序对象，即Access环境
DBEngine        数据库管理系统对象，其中表、查询、记录、字段等都是它的子对象
Debug        立即窗口对象，在调试过程中，可使用Print方法在该窗口中显示输出信息
Forms        窗口对象，所有窗体都是该对象的子对象
Reports        报表对象，所有报表都是该对象的子对象
Screen        屏幕对象

MsgBox函数的按钮及图标
在MsgBox函数中，可以指定要显示的按钮和类型、要使用的图标样式、默认按钮的标志及消息框的形态。
常 量        值        说明
vbOkOnly        0        只显示“确定”按钮
vbOkCancel        1        显示“确定”和“取消”按钮
vbAbortRetrylgnore        2        显示“终止”、“重试”和“忽略”按钮
vbYesNoCancel        3        显示“是”、“否”和“取消”按钮
vbYesNo        4        显示“是”、“否”按钮
vbRetryCancel        5        显示“重试”、“取消”按钮
vbCritical        16        显示重要消息图标
vbQuestion        32        显示警告查询图标
vbExcalmation        48        显示警告消息图标
vbInformation        64        显示信息消息图标
vbDefaultButton1        0        第一个按钮为默认值
vbDefaultButton2        256        第二个按钮为默认值
vbDefaultButton3        512        第三个按钮为默认值
vbDefaultButton4        768        第四个按钮为默认值
vbApplicationModel        0        应用程序模式，用户必须响应消息框后，才能继续进行在当前应用程序的工作
vbSystemModal        4096        系统模式，所有应用程序都将挂起，直到响应了消息框
vbMsgBoxHelpButton        16384        将“帮助”按钮添加到消息框
vbMsgBoxSetForeground        65536        将消息框窗口指定为前景窗口
vbMsgBoxRight        524288        文本右对齐
vbMsgBoxRtlReading        1048576        指定在希伯来语和阿拉伯语系统中文本为从左到右显示
在设置时，可以用加号（+）将各项值连接起来，如要在消息框中显示“确定”、“取消”、按钮、信息图标、第二个为默认按钮，就可以表示为：
1+64+256
在单击MsgBox消息框中的按钮时，Msgbox函数将返回相应的值，具体对应值如下：
按钮        常量        取值        按钮        常量        取值
确定        vbOK        1        忽略        vblgnore        5
取消        VBCancel        2        是        vbYes        6
终止        vbAbort        3        否        vbNo        7
重试        vbRetry        4