2017年7月28日

【Excel】ユーザーからの入力を受け付けるダイアログボックスを表示するマクロ


InputBox関数を使うことで、ユーザーからの入力を受け付けるダイアログボックスを表示することが出来ます。

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ShowInputBox()
 
    Dim usr As String
     
    usr = InputBox("名前を入力してください。", "InputBox Title")
     
    If usr <> "" Then
         
        MsgBox "こんにちは、" & usr & "さん。"
     
    End If
     
End Sub
ユーザーが[キャンセル]ボタンをクリックすると長さ0の文字列("")が返されます。


実行結果

InputBoxが表示されたら、


文字を入力して[OK]をクリック。




<参考サイト>
InputBox 関数 | Office VBA 言語リファレンス



スポンサーリンク



Follow Me on Pinterest
Clip to Evernote