Excel VBA-----之基本语法

1、一、变量和常量：

1、常量、变量的基本语法：

Sub fun()

Const pi = 3.14 '常量定义格式：Const 常量 =常量值

Debug.Print pi

Dim a As Integer '变量定义格式：Dim 变量 AS 类型

Dim b As Integer

a = 10

b = 3

Debug.Print a * b

2、允许使用未定义的变量，可以进行设置：

3、数据类型：

Integer：整型  %

Single：单精度  ！

Double：双精度  #

Long：长整型  &String：字符 $

Currency：货币型  @

如下图所示，并可利用简写进行快速定义。

1、二、判断语句IF的定义：

包括单条件、多条件判断；

a. 单条件1：

if......then.....

b.单条件2（当then换行时，需加end if）

if.....then

end if

如下图为单条件时的代码及其运行情况；

2、c.多条件：

if.....then

.....

elseif ....then

.....

elseif....then

.....

else

.....

end if

如下图为多条件时的代码及其运行情况；

1、三、If语句与宏的结合使用：

目标：用于判断某个分值属于哪个阶段。

1、Excel中表格如下所示：

2、在VBE中编写代码：

Sub judgeScore()

Dim a%, b%

a = Sheet1.Range("b1")

If a >= 90 Then

Sheet1.Range("b2") = "优秀"

ElseIf a >= 80 Then

Sheet1.Range("b2") = "良好"

ElseIf a >= 60 Then

Sheet1.Range("b2") = "合格"

Else

Sheet1.Range("b2") = "不合格"

End If

End Sub

3、在Excel界面中调用刚刚定义的宏，输入某个分数，并运行，则得到结果。

4、以上即为根据分数、if判断语句，可以获取某个分数所在阶段。

5、另外，提供IIF方法来判断2个条件，比较简便：

语法为：

Sub judgeLast()

Cells(2, 3) = IIf(Cells(1, 2) > 80, "优秀", "不优秀")

End Sub

6、编写以上代码后，在最终结果列将显示最终的判断成绩。

7、综上所述，为变量、常量、if条件语句使用方法及其具体的运用。