vba判断语句

本文介绍了VBA中的条件判断语句和函数。包括If…Then…Else语句,可根据条件执行不同操作;Select Case…Case…End Case语句,用于多条件选择;Choose函数能从自变量串列中选值返回;Switch函数以两个一组方式返回最先为TRUE的值,若都不为真则返回Null。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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(“人民币” = “美元”, “$”, “人民币” = “人民币”, “¥”, “美元” = “欧元”, “€”)
返回 “¥”

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值