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)