InputBox

HOME >>InputBox

今回はInputBoxについて書いていきます。

これは入力画面を出せる機能です。

その中身は↓

InputBox(Prompt,[Title],[Default],[XPos],[YPos],[HelpFile],[Context])

Ｐｒｏｍｐｔだけを指定すれば、その他は省略できます。

簡単な例は↓

Private Sub CommandButton1_Click()

Dim str As String
　　'ＩｎｐｕｔＢｏｘを表示して、その内容をｓｔｒ変数に入れる
str = InputBox("文字を入力してください")
Range("A1") = str
End Sub

実行すると下の様なものがでます↓

　　↑ここに文字などを入力します。

文字の改行などには「vbCrLf」を＆で繋げます。

意味はChr(13)＋Chr(10)です。

次にＩｎｐｕｔＢｏｘの引数を見ていきましょう

「Ｔｉｔｌｅ」・・・表題を設定します。省略すると「Ｍｉｃｒｏｓｏｆｔ　Ｅｘｃｅｌ」となります

「Ｄｅｆａｕｌｔ」・・・開いた時の初期値を設定できます。

[XPos],[YPos]・・・開いた時の位置を指定できます。

[HelpFile],[Context]…ヘルプを開くことができるようになります。

ちなみにもう一つＩｎｐｕｔＢｏｘがあります

Application.InputBox

こちらを使うと、因数にＴｙｐｅが加わります。

０：数式　　１：数値　　２：文字列　　４：Ｔｒｕｅ/Ｆａｌｓｅ　

８：セル参照　１６：＃Ｎ/Ａなどのエラー値　６４：数値配列

指定すると文字チェックなどが出来ます。

次はメッセージボックスについて書いていきます。