vba判断语句

1）If…Then…Else 语句
如1：If A>B And C<D Then A=B+2 Else A=C+2
如2：If x>250 Then x=x-100
或者
If Number < 10 Then
Digits = 1
ElseIf Number < 100Then
Digits = 2
Else
Digits = 3
End If
2）Select Case…Case…End Case 语句
Select Case Pid
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)
switch 函数和Choose 函数类似，但它是以两个一组的方式返回所要的值，在串列中，最先为
TRUE 的值会被返回。expr 必要参数，要加以计算的Variant 表达式。value 必要参数。如
果相关的表达式为True，则返回此部分的数值或表达式，没有一个表达式为True，Switch 会
返回一个Null 值。
如：
Sheet1.Cells(1, 3) = Switch(“人民币” = “美元”, “$”, “人民币” = “人民币”, “￥”, “美元” = “欧元”, “€”)
返回 “￥”