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鍵，如下圖所示。