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原文出自【易百教程】，商業轉載請聯繫做者得到受權，非商業請保留原文連接：https://www.yiibai.com/vba/vba_input_box.html#article-start

實現過程 -

第1步 - 執行相同的操做，使用函數名稱進行調用，而後按Enter鍵，以下圖所示。

第2步 - 執行時(點擊單元格，而後移出時即觸發執行)，顯示第一個輸入框(長度)，在輸入框中輸入一個值。

彈出一個輸入框，並輸入長度值

第3步 - 輸入第一個值後，顯示第二個輸入框(寬度)。

第4步 - 輸入第二個數字後，單擊肯定 按鈕。該區域顯示計算獲得結果以下面的截圖所示。