Excel VBA 常用函数的语法与使用参考.

VBA函数参考1.日期与时间函数

2.字符串函数

3.类型转换函数

4.数组处理函数

6.数学与三角函数

8.信息函数

9.颜色函数

10.财务函数

11.判断函数

12.目录函数

13.其他函数

注意：标记有*的函数不可以用于Excel97或更早的版本中。

1）赋值运算符 =

2）数学运算符 &、+ (字符连接符)、+(加)、-（减）、Mod（取余）、\（整除）、*（乘）、/（除）、-（负号）、^（指数）

3）逻辑运算符Not（非）、And（与）、Or(或)、Xor(异或)、Eqv(相等)、Imp(隐含)

4）关系运算符 = （相同）、<>（不等）、>（大于）、<（小于）、>=（不小于）、<=（不大于）、Like、Is

5）位运算符 Not（逻辑非）、And（逻辑与）、Or（逻辑或）、Xor（逻辑异或）、Eqv（逻辑等）、Imp（隐含）

运算符对公式中的元素进行特定类型的运算。Microsoft Excel 包含四种类型的运算符：算术运算符、比较运算符、文本运算符和引用运算符。

运算符的类型

算术运算符若要完成基本的数学运算，如加法、减法和乘法，连接数字和产生数字结果等，请使用以下算术运算符：

算术运算符含义（示例）

+（加号）加法运算 (3+3)

–（减号）减法运算 (3–1)

负 (–1)

*（星号）乘法运算 (3*3)

/（正斜线）除法运算 (3/3)

%（百分号）百分比 (20%)

^（插入符号）乘幂运算 (3^2)

比较运算符可以使用下列运算符比较两个值。当用运算符比较两个值时，结果是一个逻辑值，不是 TRUE 就是 FALSE。

比较运算符含义（示例）

=（等号）等于 (A1=B1)

>（大于号）大于 (A1>B1)

<（小于号）小于 (A1

>=（大于等于号）大于或等于 (A1>=B1)

<=（小于等于号）小于或等于 (A1<=B1)

<>（不等号）不相等 (A1<>B1)

文本连接运算符使用和号 (&) 加入或连接一个或更多文本字符串以产生一串文本。

文本运算符含义（示例）

&（和号）将两个文本值连接或串起来产生一个连续的文本值("North"&"wind")

引用运算符使用以下运算符可以将单元格区域合并计算。

引用运算符含义（示例）

:（冒号）区域运算符，产生对包括在两个引用之间的所有单元格的引用(B5:B15)

,（逗号）联合运算符，将多个引用合并为一个引用 (SUM(B5:B15,D5:D15))

（空格）交叉运算符产生对两个引用共有的单元格的引用。(B7:D7 C6:C8)

公式中的运算次序

公式按特定次序计算数值。Excel 中的公式通常以等号 (=) 开始，用于表明之后的字符为公式。紧随等号之后的是需要进行计算的元素（操作数），各操作数之间以运算符分隔。Excel 将根据公式中运算符的特定顺序从左到右计算公式。

运算符优先级

如果公式中同时用到多个运算符，Excel 将按下表所示的顺序进行运算。如果公式中包含相同优先级的运算符，例如，公式中同时包含乘法和除法运算符，则 Excel 将从左到右进行计算。

运算符说明

:（冒号）

（单个空格）

,（逗号）

引用运算符

–负号（例如–1）

% 百分比

^ 乘幂

* 和 / 乘和除

+ 和–加和减

& 连接两个文本字符串（连接）

= < > <= >= <> 比较运算符

使用括号

若要更改求值的顺序，请将公式中要先计算的部分用括号括起来。例如，下面公式的结果是 11，因为 Excel 先进行乘法运算后进行加法运算。将 2 与 3 相乘，然后再加上 5，即得到结果。

=5+2*3

与此相反。如果使用括号改变语法，Excel 先用 5 加上 2，再用结果乘以 3，得到结果 21。

=(5+2)*3

在下例中，公式第一部分中的括号表明 Excel 应首先计算 B4+25，然后再除以单元格 D5、E5 和 F5 中数值的和。

=(B4+25)/SUM(D5:F5)

用VBA在工作簿中创建新的工作表作者：佚名文章来源：本站原创点击数：更新时间：2009-3-22 20:06:00

在VBA中，可以用Sheets.Add 方法在工作簿中新建工作表。其语法是：

Sheets.Add(Before, After, Count, Type)

其中参数Before、After指定新建工作表的位置，Coun指定工作表的数量，Type指定新建工作表的类型。如下例：

在工作簿新建一个名称为“工作表1”的工作表：

Sub AddWorksheet()

On Error Resume Next

Worksheets.Add().Name = "工作表1"

End Sub

在最后一个工作表的后面新建名称为“工作表2”的工作表：

Sub AddWorksheetAfterLast()

On Error Resume Next

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "工作表2"

End Sub

在最后一个工作表的前面新建4个工作表：

Sub Add4Worksheets()

Worksheets.Add Before:=Worksheets(Worksheets.Count), Count:=4

End Sub

运行下面的代码中，首先给出一个提示，要求用户输入新建工作表的名称，然后用该名称新建工作表。如果出现错误，如名称过长或该名称已被使用，将直接新建一个工作表。

Sub AddNameNewSheet()

Dim NewName As String

NewName = InputBox("请输入新建工作表的名称。")

On Error Resume Next

= NewName

End Sub