0

以下のコードセクションのようにエラーチェックを行いたいと思います。しかし、私はそれを正しく行う方法がわかりません。いくつかのガイダンスを提供してください。前もって感謝します。

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

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

1 に答える 1

3

これはコンパイルされません。むしろやってみる

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
于 2013-04-23T09:00:20.403 に答える