1

我还是 vba 的新手。

我正在尝试创建一个新函数，但是它不断给我一个我不期望的输出。

我的代码如下：

Function bonusplanA(a, b, c)

    Dim example As Range
    Set example = Range("a:c")

    Value = Application.WorksheetFunction.CountIf(example, ">=90")
    Value1 = Application.WorksheetFunction.CountIf(example, ">=80")

    If Value = 3 Then
      bonusplanA = "$20,000 bonus"
    Else
      If Value1 = 3 Then
      bonusplanA = "$10,000 bonus"
      Else
        bonusplanA = "NO BONUS"
      End If
    End If

End Function
4

1 回答 1

2

你需要像这样定义你的函数：

Function bonusplanA(a, b, c)

    If a >= 90 And b >= 90 And c >= 90 Then
        bonusplanA = "$20,000 bonus"
    Else
        If a >= 80 And b >= 80 And c >= 80 Then
            bonusplanA = "$10,000 bonus"
        Else
            bonusplanA = "NO BONUS"
        End If
    End If

End Function

您的示例中的问题是，Range("a:c")它没有使您的a,b,c变量范围；相反，它选择由 A、B 和 C 列组成的范围。

您需要直接使用参数a，b而c不是通过Range函数。

否则，逻辑是合理的。:)

于 2013-03-03T20:48:39.510 回答