Excel VBA基础教程:VBA判断语句

VBA判断语句

1）If…Then…Else语句

IfconditionThen[statements][Elseelsestatements]

如1：IfA>B And C<DThenA=B+2ElseA=C+2

如2：Ifx>250Thenx=x-100

或者，可以使用块形式的语法：

If condition Then

[statements]

[ElseIf condition-n Then

[elseifstatements] ...

[Else

[elsestatements]]

End If

如1:

IfNumber < 10Then

   Digits = 1

ElseIfNumber < 100Then

   Digits = 2

Else

   Digits = 3

End If

2）Select Case…Case…End Case语句

如1：

Select CasePid

Case“A101”

Price=200

Case“A102”

Price=300

……

Case Else

Price=900

End Case

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]])