VBA-入力ボックス

InputBox関数*は、ユーザーに値の入力を求めます。値を入力した後、ユーザーが[OK]ボタンをクリックするか、キーボードのEnterキーを押すと、InputBox関数はテキストボックス内のテキストを返します。ユーザーが[キャンセル]ボタンをクリックすると、関数は空の文字列（ ""）を返します。

構文

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

パラメータ説明

プロンプト-必須パラメーター。ダイアログボックスにメッセージとして表示される文字列。プロンプトの最大長は約1024文字です。メッセージが1行を超える場合は、各行の間にキャリッジリターン文字（Chr（13））または改行文字（Chr（10））を使用して行を区切ることができます。
タイトル-オプションのパラメーター。ダイアログボックスのタイトルバーに表示される文字列式。タイトルを空白のままにすると、アプリケーション名がタイトルバーに配置されます。
デフォルト-オプションのパラメーター。ユーザーが表示したいテキストボックス内のデフォルトのテキスト。
XPos -オプションのパラメーター。 X 軸の位置は、画面の左側から水平方向へのプロンプト距離を表します。空白のままにすると、入力ボックスは水平方向の中央に配置されます。
YPos -オプションのパラメーター。 Y 軸の位置は、画面の左側からの垂直方向のプロンプト距離を表します。空白のままにすると、入力ボックスは垂直方向の中央に配置されます。
Helpfile -オプションのパラメーター。ダイアログボックスの状況依存ヘルプを提供するために使用されるヘルプファイルを識別する文字列式。
context -オプションのパラメーター。ヘルプ作成者が適切なヘルプトピックに割り当てたヘルプコンテキスト番号を識別する数値式。コンテキストが提供される場合、ヘルプファイルも提供する必要があります。

例

2つの入力ボックス（1つは長さ用、もう1つは幅用）を使用して実行時にユーザーから値を取得して、長方形の面積を計算します。

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