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原文出自【易百教程】，商業轉載請聯系作者獲得授權，非商業請保留原文鏈接：https://www.yiibai.com/vba/vba_input_box.html#article-start
實現過程 -
第1步 - 執行相同的操作，使用函數名稱進行調用，然后按Enter鍵，如下圖所示。
第2步 - 執行時(點擊單元格，然后移出時即觸發執行)，顯示第一個輸入框(長度)，在輸入框中輸入一個值。
彈出一個輸入框，並輸入長度值
第3步 - 輸入第一個值后，顯示第二個輸入框(寬度)。
第4步 - 輸入第二個數字后，單擊確定 按鈕。該區域顯示計算得到結果如下面的截圖所示。
