VBA UCase 类型不匹配

Question

为什么我在这里遇到类型不匹配？当我在输入框中键入“一月”时，我立即得到类型不匹配。一切都是字符串(？)。

Sub Test()

Dim sMonthOfMaintenance As String
Dim sMonthOfMaintenanceNumber As String

    sMonthOfMaintenance = InputBox("What month are you reviewing?")

    If UCase(sMonthOfMaintenance) = "JANUARY" Or "JAN" Then
        sMonthOfMaintenanceNumber = "01"
    End If

End Sub

Answer 1

在 OR 语句之后，您必须再次输入您要评估的内容。所以应该读

If UCase(sMonthOfMaintenance) = "JANUARY" Or UCase(sMonthOfMaintenance) = "JAN" Then