Excel VBA高级编程:用 like 运算符 做作业

:用 like 运算符 做作业

Sub T()
    Dim R$, W$, I%, J%, TTT
    W = UCase(InputBox("请输入字符"))
    I = Len(W)
    J = 1 To I
        R = Mid(W, J, 1)
       ' MsgBox R
      TTT = R Like "[!A-Z]"
     ' MsgBox TTT
        If TTT Then
            MsgBox "你输入的字符含有非字母"
            Exit Sub
        End If
    Next
    If Right(W, 1) = "E" Then
    MsgBox "你输入的字符都是字母并且最后一个字符是“e”或者“E”"
    Else
    MsgBox "你输入的字符都是字母但最后一个字符不是“e”或者“E”"
    End If
End Sub