InputBox函數提示用戶輸入值。當輸入值後，如果用戶單擊確定 按鈕或按下鍵盤上的ENTER 鍵，InputBox函數將返回文本框中的文本。如果用戶單擊“取消” 按鈕，該函數將返回一個空字元串("")。
語法InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
參數說明
Prompt - 必需的參數。 在對話框中顯示為消息的字串。提示的最大長度大約為1024個字元。 如果消息擴展為多行，則可以使用每行之間的回車符(Chr(13))或換行符(Chr(10))來分隔行。title - 一個可選參數。顯示在對話框的標題欄中的字串運算式。如果標題留空，應用程式名稱將被放置在標題欄中。default - 一個可選參數。用戶希望顯示的文本框中的默認文本。xpos - 一個可選參數。X軸的位置表示水準從螢幕左側的提示距離。 如果留空，則輸入框水準居中。ypos - 一個可選參數。Y軸的位置表示豎直方向從螢幕左側的提示距離。如果留空，則輸入框垂直居中。helpfile - 一個可選參數。一個字串運算式，標識用於為對話框提供上下文相關幫助的幫助檔。 context - 一個可選參數。一個數字運算式，用於標識由幫助作者分配給相應幫助主題的幫助上下文編號。如果提供上下文，則還必須提供helpfile。
示例在這個示例中，通過在兩個輸入框(一個用於長度，一個用於寬度)的幫助下在運行時從用戶獲取值來計算矩形的面積。實現代碼如下 -
Function CountArea()
Dim Length As Double
Dim Width As Double
Length = InputBox("輸入一個長度值： ", "輸入長度")
Width = InputBox("輸入一個寬度值：", "輸入寬度")
findArea = Length * Width
CountArea = findArea
End Function
實現過程 -
第1步 - 執行相同的操作，使用函數名稱進行調用，然後按Enter鍵，如下圖所示。
第2步 - 執行時(點擊單元格，然後移出時即觸發執行)，顯示第一個輸入框(長度)，在輸入框中輸入一個值。
彈出一個輸入框，並輸入長度值 -
第3步 - 輸入第一個值後，顯示第二個輸入框(寬度)。
第4步 - 輸入第二個數字後，單擊確定 按鈕。該區域顯示計算得到結果如下面的截圖所示。
上一篇：
VBA消息框（MsgBox）
下一篇：
VBA變數