【Day46】文系オタクのエンジニア道～関数⑤ InputBox～

こんにちは
安田です

初対面で与える印象ってすごいですよね
僕はよく学生の時、サッカー部だった？
と聞かれることがあります

が、全く違います笑
バドミントン部です

見た目がサッカー部ぽいらしいです
見た目に見合った運動能力欲しいです

全く関係ない冒頭からスタートします

InputBox関数

ユーザーが文字列を入力できるダイアログボックスを表示させ
ユーザーが入力した文字列を返す

【書式】InputBox（メッセージ , タイトル, 最初に表示する文字列）

引数「タイトル」「最初に表示する文字列」は省略することが可能です

Sub test1()
    Dim a As String  
    a = InputBox("オラオラですか", "ジョジョの奇妙な冒険 第3部", "オラオラオラオラオラオラ")
End Sub

上から「タイトル」「メッセージ」「最初に表示する文字列」と表示されました

---

文字列型以外の入力をしてほしいときは
変数の定義を「Long」などに変える必要があります

Sub test2()
    Dim a As Long
    a = InputBox("数値を入力してください")
End Sub

数字以外の文字列を入力すると・・・

エラーメッセージが表示されました

数字をちゃんと入力したら、エラーは出ませんでした

---

InputBoxでユーザーがキャンセルボタンをクリックすると
空欄("")が返ります

Sub test3()
    Dim a As String
    a = InputBox("覚悟はいいか", "フィレンツェ行き超特急")
    
    If a = "" Then
        MsgBox "俺は出来てる！"
    Else
        Range("A1") = a
    End If
End Sub

メッセージが表示されました
ちなみにキャンセルだけでなく、
未入力でOKを押しても同じメッセージが表示されます

文字を入力すると

入力した文字がA1のセルに表示されます

---

まとめ

InputBox面白いです
ついつい遊び心で
色んなものを入れちゃいました

全部出てくる表現や言葉は
ジョジョの奇妙な冒険のものです

参考文献

「VBAマスターに俺はなる」

最後まで読んでいただき
ありがとうございます
安田

マガジンにまとめてありますので
よかったらそちらも御覧ください

VBA note学習記録｜安田亙(Wataru Yasuda)アニメ愛と人間力で未来を創造するエンジニア｜note