Excel VBA自定义分数公式

Question

美好的一天，我试图在excel中创建一个函数，该函数根据其他4个数字对一个数字进行评分，我正在为预算制定一个计分卡，因此我尝试实现以下目标：

我有一个包含以下表格的电子表格

现在我有4列（“ K”到“ N”）“隐藏”，其中包含值157、143、128、114。 我想创建一个公式，将A5中的值与其他四列进行比较，然后将结果放入J列中。例如，我将以下公式放入J5中

单元格J5 =得分（A5，K5，L5，M5，N5）

为了获得评分，我创建了以下VBA代码：

Public Function Score(A As Integer, S1 As Integer, S2 As Integer, S3 As Integer, S4 As Integer) As String

    If A < S1 Then
        Score = "1"
    ElseIf S1 + 1 <= A < S2 Then
        Score = "2"
    ElseIf S2 + 1 <= A < S3 Then
        Score = "3"
    ElseIf S3 + 1 <= A < S4 Then
        Score = "4"
    ElseIf S4 + 1 <= A Then
        Score = "5"
    End If

End Function

谁能告诉我我要去哪里错了？ 使用公式时，出现#NUM错误

Answer 1

如果这是您的第一项尝试，请尝试一下。 您必须指定函数的返回值As String作为第一行的结尾。

Public Function Score() As String

    Dim iRow As Integer

    iRow = Application.Caller.Row
    A = Range("$A$5")
    S1 = Range("$K" & iRow)
    S2 = Range("$L" & iRow)
    S3 = Range("$M" & iRow)
    S4 = Range("$N" & iRow)

    If A < S1 Then
        Score = "1"
    ElseIf S1 + 1 <= A < S2 Then
        Score = "2"
    ElseIf S2 + 1 <= A < S3 Then
        Score = "3"
    ElseIf S3 + 1 <= A < S4 Then
        Score = "4"
    ElseIf S4 + 1 <= A Then
        Score = "5"
    End If

End Function

如果您想自己选择功能的五个单元格，例如=score(A5,F10, G10, H10, E10)等

Public Function Score(A As Integer, S1 As Integer, S2 As Integer, S3 As Integer, S4 As Integer) As String

    If A < S1 Then
        Score = "1"
    ElseIf S1 + 1 <= A < S2 Then
        Score = "2"
    ElseIf S2 + 1 <= A < S3 Then
        Score = "3"
    ElseIf S3 + 1 <= A < S4 Then
        Score = "4"
    ElseIf S4 + 1 <= A Then
        Score = "5"
    End If

End Function

Answer 2

我终于弄明白了。 首先，我忘记了我正在使用数以百万计的数字，因此Integer不能正常工作，我不得不使用long ，但我得到了一个结果，但没有正确的结果，因此我决定尝试规定两者之间的范围。 这是我的结果：函数规定A越低，评级越高

Public Function ScoreDown(A As Long, S1 As Long, S2 As Long, S3 As Long, S4 As Long) As String

 If A > S1 Then
        Score = "1"
    ElseIf S1 >= A And A > S2 Then
            Score = "2"
    ElseIf S21 >= A And A > S3 Then
        Score = "3"
    ElseIf S3 >= A And A > S4 Then
        Score = "4"
    ElseIf S4 >= A Then
        Score = "5"
    End If


End Function

Answer 3

最简单的解决方案-我认为并且如果不使用VBA的解决方案还可以-将在K列之前再插入一个隐藏列，然后输入任何非常大的数字（只需确保A列中的值始终小于该值即可）值）。

然后在J3中输入以下公式：

=MATCH(A3,K3:O3,-1)