Question

我想像下面的代码部分那样进行错误检查。但是，我不知道如何正确地做到这一点。请提供一些指导。提前谢谢。

Select Case Trim(y)
    Case Is = ""
        MsgBox ("Empty field!")

    Case (UCase(Left(y, 1)) = "=") '<--This line requires guidance
        MsgBox ("invalid input")
End Select

Answer 1

这不会编译。而不是尝试

Select Case UCase(Left(Trim(y), 1))
    Case ""
        MsgBox ("Empty field!")

    Case "="
        MsgBox ("invalid input")
End Select

有关于如何构建select或是否完全使用它的替代方法（例如，您可以选择级联if语句）：

Select Case Left(y,1)
    Case "="
        MsgBox ("invalid input")

    Case Else
        If Trim(y) = "" Then
           MsgBox ("Empty field!")
        End If
End Select

EXCEL VBA选择案例错误检查

1 个答案: