VBA データの入力　InputBoxメソッド

InputBoxは、マクロ実行中にユーザーからのデータ入力を受け付けるダイアログボックスです。今日は、InputBoxメソッドを見て行きましょう。

InputBoxメソッド

構文

Application.InputBox (Prompt [, Title] [, Default] [, Left] [, Top] [, HelpFile] [, HelpContextID] [, Type])

日本語訳

Application.InputBox (メッセージ文 [, タイトル] [, デフォルト値] [,画面表示座標（左] [, 画面表示座標（上] [, ヘルプ文] [, ヘルプ文ID] [,タイプ])

（カッコ内の項目は省略可能です）

Typeに指定できる値

値	意味
0	数式
1	数値
2	文字列 (テキスト)（デフォルト値）
4	論理値 (True または False)
8	セル参照 (Range オブジェクト)
16	#N/A などのエラー値
64	数値配列

※　数値のみ入力指定したい場合はTypeの値を１にします。数値と文字両方を入力できるようにしたい場合、Typeの値を3（1+2

に設定することができます。

Sub test()

　　Dim myArr

    myArr = Application.InputBox("ラッキーナンバーを入力してください", "入力")
    MsgBox "ラッキーナンバーは：" & myArr

    'セルに反映しいあてもらいたい場合
    ’cells(2, 2) = myArr

End Sub

戻り値

「OK」ボタンが押された場合、入力されたテキスト等が表示されます。

「キャンセル」もしくは右上の「☒」バツボタンが押された場合、「False」が返されます。

Sub test2()

‘ キャンセルされた場合も対応可能

    Dim buf As String
    buf = Application.InputBox(Prompt:="好きな映画名を入力してください。")
    If buf = "False" Then Exit Sub
    ActiveCell = buf
End Sub

Inputboxでセル範囲を指定する

Sub test3()
    Dim myR As Range
    Set myR　= Application.InputBox(Prompt:="セルを選択してください。", Type:=8)
    MsgBox myR.Address(False, False) & "のセルの背景色は" & myR.Interior.ColorIndex & "です"
End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじへ戻る

VBA データの入力 InputBoxメソッド

VBA データの入力　InputBoxメソッド