InputBox 関数

  • [アーティクル]

ダイアログ ボックスにプロンプトを表示し、ユーザーがテキストを入力するかボタンをクリックするまで待機し、テキスト ボックスのコンテンツが含まれる文字列を返します。

構文

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

InputBox 関数の構文には、次の名前付き引数があります。

指定項目 説明
Prompt 必須です。 ダイアログ ボックスにメッセージとして表示される文字列式です。 使用する文字の幅により、prompt は最大で約 1024 文字使用できます。 prompt が複数の行にまたがる場合、行と行の間にキャリッジ リターン文字 (Chr(13))、ライン フィード文字 (Chr(10))、またはキャリッジ リターン文字とライン フィード文字の組み合わせ ((Chr(13) & (Chr(10)) を使用して行を分けることができます。
title 省略可能。 ダイアログ ボックスのタイトル バーに表示される文字列式です。 title が省略された場合、タイトル バーにはアプリケーションの名前が表示されます。
default 省略可能。 他の入力が提供されない場合に既定の応答としてテキスト ボックスに表示される文字式です。 default が省略された場合、空の状態のテキスト ボックスが表示されます。
xpos 省略可能。 画面の左端からダイアログ ボックスの左端までの水平方向の距離を twip 単位で示す数値式です。 xpos が省略された場合、ダイアログ ボックスは水平方向の中央寄せで表示されます。
ypos 省略可能。 画面の上部からダイアログ ボックスの上端までの縦方向の距離を twip 単位で示す数値式です。 ypos が省略された場合、ダイアログ ボックスは画面を約 3 分 1 下に下がった位置に垂直方向に配置されます。
helpfile 省略可能。 ダイアログ ボックスに状況依存のヘルプを提供するときに使用するヘルプ ファイルを識別する文字列式です。 helpfile を指定する場合は、context も必ず指定する必要があります。
context 省略可能。 ヘルプ作成者によって適切なヘルプ トピックに割り当てられたヘルプ コンテキスト番号を示す数式です。 context を指定する場合は、helpfile も必ず指定する必要があります。

解説

helpfile とcontext の両方を指定した場合、ユーザーは F1 キー (Windowsの場合) または HELP キー (Macintosh) を押して context に対応するヘルプ トピックを表示できます。 Microsoft Excel などの一部のホスト アプリケーションでは、ダイアログ ボックスに [ヘルプ] ボタンが自動的に追加されます。 ユーザーが [OK] を選択するか ENTER キーを押すと、InputBox 関数はテキスト ボックスに入力されている内容を返します。 ユーザーが [キャンセル] を選択すると、この関数は長さ 0 の文字列 ("") を返します。

テキスト ボックスは 255 文字のみを受け入れます。 戻り値の文字列は 254 文字に切り捨てられます。

テキスト ボックスでは、 Shift + Enter などの改行は使用できません。 ユーザーがテキスト ボックスに改行を含むテキストを貼り付けた場合、テキストは改行時に切り捨てられます。

注:

1 番目の名前付き引数以外にも因数を指定する場合は、式内で InputBox を使用する必要があります。 一部の場所引数を省略するには、対応するコンマ区切り記号を含める必要があります。

例

この例では、InputBox 関数を使用してユーザーに値の入力を促すメッセージを表示するさまざまな方法を示します。 x と y の位置を省略すると、ダイアログ ボックスは自動的にそれぞれの軸の中央に配置されます。 変数 MyValue には、ユーザーが [OK] を選択するか ENTER キーを押す際にユーザーが入力する値が含まれます。 ユーザーが [キャンセル] を選択すると、長さ 0 の文字列が返されます。

Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3"    ' Set prompt.
Title = "InputBox Demo"    ' Set title.
Default = "1"    ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)

' Use Helpfile and context. The Help button is added automatically.
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' Display dialog box at position 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。