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 − 可選引數。一個數值表示式，用於標識幫助作者分配給相應幫助主題的幫助上下文編號。如果提供了 context，則也必須提供 helpfile。

示例

讓我們透過在執行時使用兩個輸入框（一個用於長度，一個用於寬度）從使用者那裡獲取值來計算矩形的面積。

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

輸出

步驟 1 − 要執行相同操作，請使用函式名稱呼叫並按 Enter 鍵，如下面的螢幕截圖所示。

步驟 2 − 執行後，將顯示第一個輸入框（長度）。在輸入框中輸入一個值。

步驟 3 − 輸入第一個值後，將顯示第二個輸入框（寬度）。

步驟 4 − 輸入第二個數字後，單擊“確定”按鈕。面積將顯示在下面的螢幕截圖中。