メモ Excel VBA 基礎 メッセージボックス(InputBox関数)

メッセージとテキストボックスを表示。

ユーザが入力した文字列を入手できる。

メッセージのみを表示する場合

ーーーーーーーーーーーーーーー

Sub work()
　　Dim strIn As String
　　strIn = InputBox("何か入力してください")
End Sub

ーーーーーーーーーーーーーーー

複数行で表示する場合

ーーーーーーーーーーーーーーー

Sub work2()
　　Dim strIn As String
　　strIn = InputBox("何か入力してください。" & vbLf & vbLf & "入力サンプルをここに書いてください。")
End Sub

ーーーーーーーーーーーーーーー

メッセージ、タイトル、既定値を設定した場合。

ーーーーーーーーーーーーーーー

Sub work3()
　　Dim strIn As String
　　strIn = InputBox("何か入力してください", "ユーザー入力", "規定文字")
End Sub

ーーーーーーーーーーーーーーー

何も入力されなかったか、「キャンセル」ボタンが押された場合の対処。

ーーーーーーーーーーーーーーー

Sub work4()
　　Dim strIn As String
　　strIn = InputBox("何か入力してください。", "タイトル", "ここに入力")
　　If strIn = "" Then
　　　　MsgBox "何も入力されていません。"
　　End If
End Sub

ーーーーーーーーーーーーーーー