运算符和表达式的优化

（1）运算符

在VBA中，常用的运算符有算术运算符、逻辑运算符、关系运算符、字符串运算符和特殊运算符等几类。

①赋值运算符：=

②算术运算符：+（加）、-（减）、Mod（取余）、\（整除）、*（乘）、/（除）、-（负号）、^（指数）

③逻辑运算符：Not（非）、And（与）、Or（或）、Xor（异或）、Eqv（相等）、Imp（蕴含）

④关系运算符：=（相同）、＜＞（不等）、＞（大于）、＜（小于）、＞=（不小于）、＜=（不大于）

⑤字符串运算符：&（字符连接符）、Like（文本比较）

⑥特殊运算符：Between…And…、In、IsNull

（2）常用标准函数

在VBA程序语言中有许多内置函数，用户可以直接调用标准函数来完成许多操作。

①输入/输出函数

输入函数InputBox（）：InputBox函数显示一个信息，提示用户输入数据。这个对话框有两个按钮即“确定”和“取消”，点击“确定”时，InputBox函数返回用户输入在信息框里的信息；点击“取消”时，函数则返回空字符串（“”）。

InputBox函数的语法如下：

InputBox（prompt[,title][,default][,xpos，ypos]）

其中的prompt为窗口的提示词，title为输入窗口的标题，default为输入窗口的默认内容，xpos，ypos为窗口距离屏幕左边，上边的距离。

输出函数MsgBox（）：MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个值保存用户单击的按钮。

MsgBox函数的语法如下：

MsgBox（prompt[,buttons][,title][,helpfile,context]）

参数说明：

prompt，必需的参数，是一个字符串。作为显示在消息框中的消息文本，其最大长度为1024个字符，由所用字符的宽度决定。如果prompt的内容超过一行，则可以在每一行之间用回车符（Chr（13））、换行符（Chr（10））或是回车与换行符的组合（Chr（13）&Chr（10））将各行分隔开来。

buttons，可选的参数，是一个数字表达式，指定要显示的按钮的类型，要使用的图标样式，默认按钮的标识以及消息框的形式。如果留空，则按钮的默认值为0，其设置见表4-3。

表4-3　消息框中“按钮”设置值及意义

续表

当用户点击消息框中的一个按钮，会返回不同的值。各个按钮的返回值见表4-4。

表4-4　MsgBox函数按钮及其返回值对照表

title，可选的参数，表示在消息框的标题栏中所显示的文本。若省略该参数，则将应用程序名放在标题栏中。

helpfile，可选的参数，为字符串表达式，提供帮助文件。若有helpfile，则必须有context。

context，可选的参数，为数值表达式，提供帮助主题。若有context，则必须有helpfile。

例如：MsgBox（"确认要结束程序吗？"，vbQuestion+vbYesNo+256，"确认退出"）。

②数学函数

Sin（x）、Cos（x）、Tan（x）、Atan（x）：三角函数，单位为弧度。

Log（x）：返回x的自然对数。

Exp（x）：返回ex。

Abs（x）：返回x的绝对值。

Int（x）、Fix（x）：都返回参数x的整数部分。区别：Int将-8.4转换成-9，而Fix将-8.4转换成-8。

Sgn（x）：返回一个Variant（Integer），指出参数x的正负号。

Sqr（x）：返回一个Double，指定参数x的平方根。

VarType（varname）：返回一个Integer，指出变量的子类型。

Rnd（x）：返回0-1之间的单精度数据，x为随机种子。

③字符串函数(www.xing528.com)

Trim（string）：去掉string左右两端空白

Ltrim（string）：去掉string左端空白

Rtrim（string）：去掉string右端空白

Len（string）：计算string长度

Left（string，x）：取string左端x个字符组成的字符串

Right（string，x）：取string右端x个字符组成的字符串

Mid（string，start，x）：取string从start位开始的x个字符组成的字符串

Ucase（string）：转换为大写

Lcase（string）：转换为小写

Space（x）：返回x个空白的字符串

Asc（string）：返回一个integer，代表字符串中首字母的字符代码

Chr（charcode）：返回string，其中包含有与指定的字符代码相关的字符

④类型转换函数

CBool（expression）：转换为Boolean型

CByte（expression）：转换为Byte型

CCur（expression）：转换为Currency型

CDate（expression）：转换为Date型

CDbl（expression）：转换为Double型

CDec（expression）：转换为Decemal型

CInt（expression）：转换为Integer型

CLng（expression）：转换为Long型

CSng（expression）：转换为Single型

CStr（expression）：转换为String型

CVar（expression）：转换为Variant型

Val（string）：转换为数据型

Str（number）：转换为String

⑤日期/时间函数

Now（）：返回一个Variant（Date），根据计算机系统设置的日期和时间来指定日期和时间

Date（）：返回包含系统日期的Variant（Date）

Time（）：返回一个指明当前系统时间的Variant（Date）

TimeSerial（hour，minute，second）：返回一个Variant（Date），包含具有具体时、分、秒的时间

DateDiff（interval，date1，date2[，firstdayofweek[，firstweekofyear]]）：返回Variant（Long）的值，表示两个指定日期间的时间间隔数目

Second（time）：返回一个Variant（Integer），其值为0到59之间的整数，表示一分钟之中的某秒

Minute（time）：返回一个Variant（Integer），其值为0到59之间的整数，表示一小时中的某分钟

Hour（time）：返回一个Variant（Integer），其值为0到23之间的整数，表示一天之中的某一钟点

Day（date）：返回一个Variant（Integer），其值为1到31之间的整数，表示一个月中的某一日

Month（date）：返回一个Variant（Integer），其值为1到12之间的整数，表示一年中的某月

Year（date）：返回Variant（Integer），包含表示年份的整数

Weekday（date，[firstdayofweek]）：返回一个Variant（Integer），包含一个整数，代表某个日期是星期几