返回字符串作为文本

Question

我有一个非常简单的代码，但我的问题是，我想基于ElseIf在不同的情况下返回一个字符串，但是它根本无法工作。

如果A1单元格中的分数为6，则代码应在（“ Excellent”）等旁边的单元格中返回特定文本。该代码根本不希望返回该文本。有人可以告诉我为什么吗？

Sub ElseIf_ex()

    Dim score As Integer, score_comment As String

    note = Range("A1").Value
    score_comment = Range("B1").Value

    If note = 6 Then
        score_comment = "Excellent"
    ElseIf note = 5 Then
        score_comment = " Good"
    ElseIf note = 4 Then
        score_comment = "Satisfactory"
    Else
        score_comment = "Zero"
    End If

End Sub

Answer 1

您将不得不将score_comment分配回某个单元格，否则您的代码可能会起作用，但不会输出任何内容。您错过了添加类似

的内容

Range("B1").Value=score_comment

在End Sub行之前。