具有多个组件的 If 语句的 UDF

Question

我正在尝试创建一个函数 (=StatusExpected)，该函数将在评估多个组件后返回通过/失败。具体来说，四个组件（规模、流动性、资格、例外）返回“通过/失败”。如果所有四个都返回“通过”，我想要 StatusExpected="Pass"。如果这些组件中的一个或多个返回“失败”，我希望 StatusExpected="Fail"。

StatusExpected 填充 I7:I506，并且四个变量填充每一行，分别在 J、AB、AF、AP 中直接交叉。但是，我认为这无关紧要，因为我正在寻找具有四个输入的功能。

以下是我所拥有但不起作用的内容：

Function StatusExpected(Size As String, Liquidity As String, Qualified As String, Exception As String)
    Range("A1").Select.Activate
    If Size = "Pass" And Liquidity = "Pass" And Qualified = "Pass" And Exception = "Pass" Then
        StatusExpected = "Pass"
    Else
        StatusExpected = "Fail"
    End If
End Function

如果可以，还请回复您是否需要激活单元格，或者是否需要定义变量。请从 Function 行从头开始编写代码，就好像什么都不存在一样，并为我提供除了我的问题之外的任何可以帮助我的东西，以及为清晰起见的最佳实践。

Answer 1

开始：

.Select.Activate

语法无效。它应该是其中之一。然而，在大多数情况下，这是一个不必要的操作，会影响性能（通常对于小型操作来说并不明显，但为了良好的编码习惯，您应该避免使用 .Select 和 .Activate）

所以你的功能：

Function StatusExpected(Size As String, Liquidity As String, Qualified As String, Exception As String)
    If Size = "Pass" And Liquidity = "Pass" And Qualified = "Pass" And Exception = "Pass" Then
        StatusExpected = "Pass"
    Else
        StatusExpected = "Fail"
    End If
End Function

为我工作（Excel 2013）。

我注意到的一件事是这个函数区分大小写。考虑 J、AB、AF、AP 列中的以下数据：

+------+------+------+------+
| Pass | Pass | Pass | Pass |
+------+------+------+------+
| PASS | PASS | PASS | PASS |
+------+------+------+------+

您的函数会为第一行返回Pass，但会为第二行返回Fail，因为默认情况下，文本比较区分大小写。

改变这种情况的一种方法是将Option Compare Text 行添加到代码的顶部，这将使文本比较不区分大小写。所以如果你这样做：

Option Compare Text

Function StatusExpected(Size As String, Liquidity As String, Qualified As String, Exception As String)
    If Size = "Pass" And Liquidity = "Pass" And Qualified = "Pass" And Exception = "Pass" Then
        StatusExpected = "Pass"
    Else
        StatusExpected = "Fail"
    End If
End Function

上面的数据集在这两种情况下都会返回Pass。