1.6 InputBox

Private Sub InputBoxDemo()

Dim Sheetname As String

inputMsg = InputBox("Enter you name:", "Get your name", "")

If (inputMsg = "") Then
MsgBox "you pressed the CANCEL key"
Else
MsgBox "HELLO!" & "your name is " & inputMsg
End If

End Sub

1. InputBox("訊息", "標題", "預設輸入文字") 顯示一對話方塊來做為提示，等使用者輸入文字或按下按鈕，並傳回包含文字方塊內容的String。