vba - 运行时错误 '13' : Type mismatch on IF combined with OR statement

Question

在我使用 Excel 的 VBA 代码中，我有

Dim Field2 As String

Field2 = Cells(i, 4).Value

If Right(Field2, 3) = ("A-1" Or "A-2" Or "B-1" Or "B-2" Or "C-1" Or "C-2" Or "D-1" Or "D-2" Or "D-3") Then
          Cells(i, 50).Value = "OtherPrtnrs /Dcrs & Dept heads"
End If

当我运行代码时，我收到以下消息:“运行时错误‘13’:类型不匹配”

你知道如何使这段代码工作吗？

谢谢

法比奥

Answer 1

试试这个

If Right(Field2, 3) = "A-1" Or _
   Right(Field2, 3) = "A-2" Or _
   Right(Field2, 3) = "B-1" Or _
   Right(Field2, 3) = "B-2" Or _
   Right(Field2, 3) = "C-1" Or _
   Right(Field2, 3) = "C-2" Or _
   Right(Field2, 3) = "D-1" Or _
   Right(Field2, 3) = "D-2" Or _
   Right(Field2, 3) = "D-3" Then
      Cells(i, 50).Value = "OtherPrtnrs /Dcrs & Dept heads"
End If

或者更好...这个

Select Case Right(Field2, 3)
Case "A-1","A-2","B-1","B-2","C-1","C-2","D-1","D-2","D-3"
    Cells(i, 50).Value = "OtherPrtnrs /Dcrs & Dept heads"
End Select

注意:我假设 i 是有效的行号

说明:

使用 If 语句进行比较时，不能说 If A = B or C。你应该单独比较。 如果 A = B 或 A = C 则。这里每个OR都是它自己的Boolean语句，即它将被单独评估。

当您进行多次此类比较时，最好使用 Select 语句，如上例所示。