第100回.InputBoxメソッド（インプットボックス）
InputBoxメソッドはApplicationのメソッドで、ユーザー入力用のダイアログ ボックスを表示します。
表示したダイアログ ボックスに入力された情報を受け取ることが出来ます。
マクロVBAの途中でユーザーに何らかの値を入力してもらう事で、その後の処理にその値を使う場合に使用します。
InputBox関数には無いTypeという引数を使うことで、より活用範囲が広がります。
InputBoxメソッドでは、
数値に限定したり、セル参照をすることが出来ます。
InputBoxメソッド
[OK] をクリックすると、ダイアログ ボックスに入力した値が返されます。
[キャンセル] をクリックすると、InputBox は False を返します。
| Prompt | ダイアログ ボックスに表示するメッセージを指定します。 この引数には、文字列、数値、日付、またはブール値を指定できますが、自動的に値は文字列型に変換されます。 |
| Title | ダイアログ ボックスのタイトルを指定します。 この引数を省略すると、既定値の "入力" がタイトル バーに表示されます。 |
| Default | ダイアログ ボックス内のテキスト ボックスに表示する初期値を指定します。 この引数を省略すると、テキスト ボックスには何も表示されません。 この値には、Range オブジェクトを指定することもできます。 |
| Left | 画面の左上隅を基準として、ダイアログ ボックスの X 座標をポイント単位で指定します。 ポイント: 印刷する文字のサイズ (高さ) を指定する基本単位。1ポイントは1/72 インチ です。 |
| Top | 画面の左上隅を基準として、ダイアログ ボックスの Y 座標をポイント単位で指定します。 |
| HelpFile | 対象ダイアログ ボックスで使うヘルプ ファイルの名前を指定します。 引数 HelpFile および引数 HelpContextID が共に指定されていれば、ダイアログ ボックス内に [ヘルプ] ボタンが表示されます。 |
| HelpContextID | 引数 HelpFile で指定したヘルプ ファイル内のヘルプ トピックのコンテキスト ID 番号を指定します。 |
| Type |
返されるデータの型を指定します。 |
Type
| 値 | 意味 |
| 0 | 数式 |
| 1 | 数値 |
| 2 | 文字列 (テキスト) |
| 4 | 論理値 (True または False) |
| 8 | セル参照 (Range オブジェクト) |
| 16 | #N/A などのエラー値 |
| 64 | 数値配列 |
以上の値のいずれか 1 つまたは合計値を指定できます。
[OK] ボタンを選択すると、InputBox はダイアログ ボックスに入力された値を返し、
[キャンセル] ボタンを選択するとFalse を返します。
第24回.インプットボックス(InputBox関数)
InputBoxメソッドの使用例
数値のみ入力
Dim myNum As Variant
myNum = Application.InputBox(prompt:="数値入力", Type:=1)
'キャンセルされた場合はFalseが戻る
If myNum Then
MsgBox myNum
Else
MsgBox "キャンセルされました。"
End If
キャンセルされた場合はFalseが戻るので、受け取る変数はFalseを受け入れられるデータ型にしておきます。
数値型にしておくと0になってしまいますので、0入力と判別できなくなります。
0入力と区別する必要がある場合は数値型以外（VariantやString）で受け取る必要があります。
セル参照の入力
Dim myRange As Range
On Error Resume Next
Set myRange = Application.InputBox(prompt:="マウスでセル範囲を選択してください。", _
Title:="対象範囲選択", _
Type:=8)
'キャンセルされた場合はSetがエラーとなる
If Err.Number = 0 Then
MsgBox myRange.Address
Else
MsgBox "キャンセルされました。"
End If
戻り値は、Rangeオブジェクトになるので、Setステートメントを使用します。
キャンセルされた場合はFalseが戻るので、Setステートメントはエラーとなります。
これに対処するために、On Errorを使っています。
Dim myRange As Range
myRange = Application.InputBox(・・・
この場合は、myRangeにはValue値が配列として格納されます。
最後に
例えば、数値に限定したい場合でも、InputBox関数の戻り値を数値かどうかを判定すれば良いだけです。
VBAの中で、ユーザーにセル範囲を選択してもらう場合こそ、まさにInputBoxメソッドの最大の活用シーンになると思います。
同じテーマ「マクロVBA入門」の記事
第106回.Functionプロシージャー
第107回.プロシージャーの引数
第108回.変数の適用範囲（スコープ,Private,Public）
第100回.InputBoxメソッド（インプットボックス）
第101回.Midステートメント
第102回.Intersectメソッド
第103回.UnionメソッドとAreasプロパティ
第104回.GetPhoneticメソッドとSetPhoneticメソッド（フリガナ）
第109回.列挙型（列挙体）Enum
第110回.ユーザー定義型・構造体（Type）
第111回.静的配列
新着記事NEW ・・・新着記事一覧を見る
AIがあればVBAはできる：セルに絵文字を入れる｜生成AI活用研究(2025-05-07)
Geminiと100本ノック 15本目：シートの並べ替え｜生成AI活用研究（5月6日）
Geminiと100本ノック 14本目：社外秘シート削除｜生成AI活用研究（5月4日）
Geminiと100本ノック 13本目：文字列の部分フォント｜生成AI活用研究（5月4日）
Geminiと100本ノック 12本目：セル結合の解除｜生成AI活用研究（5月2日）
Geminiと100本ノック 11本目：セル結合の警告｜生成AI活用研究（5月1日）
AI(Gemini)とエクセル数式対決 その2｜生成AI活用研究(2025-04-30)
Geminiと100本ノック 10本目：行の削除｜生成AI活用研究（4月30日）
AI(Gemini)とテーマを決めて議論｜生成AI活用研究(2025-04-30)
Geminiと100本ノック 9本目：フィルターコピー｜生成AI活用研究（4月29日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.繰り返し処理（For Next)｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
5.ひらがな⇔カタカナの変換｜エクセル基本操作
6.RangeとCellsの使い方｜VBA入門
7.メッセージボックス(MsgBox関数)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.FILTER関数（範囲をフィルター処理）｜エクセル入門
10.条件分岐（Select Case）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。