VBA-InputBox

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

構文

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

パラメータの説明

Prompt−必須パラメーター。ダイアログボックスにメッセージとして表示される文字列。プロンプトの最大長は約1024文字です。メッセージが1行を超えている場合は、各行の間に改行文字（Chr（13））または改行文字（Chr（10））を使用して行を区切ることができます。
Title−オプションのパラメータ。ダイアログボックスのタイトルバーに表示される文字列式。タイトルを空白のままにすると、アプリケーション名がタイトルバーに表示されます。
Default−オプションのパラメータ。ユーザーが表示したいテキストボックスのデフォルトテキスト。
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