[VBA][Excel]入力ダイアログボックス InputBox

※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

下記を実行すると

Private Sub CommandButton1_Click()

Dim w_data As String
Dim res As Integer


w_data = InputBox("パスワードを入力して下さい", "パスワード入力画面", "*******")


'[キャンセル] ボタンをクリックすると、InputBox 関数は長さ 0 の文字列 ("") を返します。
If w_data = "" Then
    res = MsgBox("パスワードは必須入力です", vbOKOnly + vbExclamation, "")
    Exit Sub
End If

If Len(w_data) < 8 Then
    res = MsgBox("パスワードは8文字以上です", vbOKOnly + vbExclamation, "")
    Exit Sub
End If


End Sub

このような画面が表示されます。

vba-excel-inputbox