VBA有三元运算符吗？

Question

我来自Obj C的美丽世界,它基于C编程语言,我爱上了寻找节省空间的古怪方法.但是,我已经查看了尽可能多的文档,我在VBA上找不到任何会缩短这种语法的东西:

If boolVar = True Then
   'Do something
Else
   'Do nothing
End If

在Obj C中,自然是C,我非常熟悉这样做:

boolVar ? "Nope, tis false" : "Yup, tis true"

这与其他大多数联盟使用的非常类似,有些可能会使用额外的逻辑运算符!=,==但这让我很乐观.我可能没有找到合适的地方,如果是这样的话,请告诉我你的文件在哪里.

TLDR,我们可以将If/Then/Else缩短为VBA中的一行代码吗？当"Do Somethings"只不过是设置另一个变量的单个参数,或启用/禁用按钮时,这非常方便.

Answer 1

Sub test()

    Dim x As Long
    Dim y As Long
    y = 1
    x = IIf(y = 1, 1, 2)

End Sub

@soulshined您不必将变量设置为函数; `IIF`内置于VBA中.它在很大程度上类似于C中的三元运算符,但是正如其他人指出的那样它不会短路并且它是一个函数调用.这里是用你的例子:`IIF(boolVar,"Yup,tis true","Nope,tis false")`. (5认同)

Answer 2

最接近的功能是 Iif()

IIf(expr, truepart, falsepart)

但:

所以最相似的陈述是:

If boolVar Then sub1 Else sub2

哪里:

Answer 3

作为替代方案，您可以在模块中创建以下公共函数：

Public Function iff(expr, trueR, falseR) As Variant
    If expr Then iff = trueR Else iff = falseR
End Function

到目前为止对我有用。