VBA中InputBox的简单应用

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

要设置某属性值的方法是       属性名:=属性值    例如：   Title:="Enter your name" ，将Title的属性值设为"Enter your name"

strName = InputBox("You name please.", "ENTER YOUR NAME","W")，这样它将会按参数顺序与之对应

Sub GetUserName()
Dim strName As String

    strName = InputBox(Prompt:="You name please.", _
          Title:="ENTER YOUR NAME", Default:="W")
          
        If strName = "Your Name here" Or _
           strName = vbNullString Then
           Exit Sub
        Else
          Select Case strName
            Case "W"
                MsgBox ("Oh,It is me!")
            Case "Y"
                MsgBox ("Oh,My Honey!")
            Case "Mary"
                MsgBox ("Hi,Mary")
            Case Else
               MsgBox ("Who r u ?")
          End Select
        End If
  
End Sub