Excel 中用户定义的 IFS 函数的 VBA 代码

Question

我们公司使用的是 Excel 2016 的打包版本，而不是 Office 365 版本。我最近了解到新版本中存在 IFS 功能，它似乎非常有用。我在网站上以 VBA 形式找到了 CONCATENATEIF 函数，我想知道是否有办法在我的旧版本中以同样的方式复制这个公式。我在 VBA 编码方面不是很有经验，所以我将不胜感激！

Answer 1

下面复现IFS()的功能，使用ParamArray处理任意数量的参数：

Public Function UdfIfs(ParamArray args() As Variant) As Variant
  Dim i As Integer
  i = 0 ' or 1 if you're not using zero-based indexing
  Do Until CBool(args(i)) Or (i >= UBound(args))
    i = i + 2
  Loop
  If i < UBound(args) Then
    UdfIfs = args(i + 1)
  End If
End Function