VBA輸入框（InputBox）

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步 - 輸入第二個數位後，單擊確定 按鈕。該區域顯示計算得到結果如下面的截圖所示。