【Day57】文系オタクのエンジニア道～問題演習⑧-4～

こんにちは
安田です

忘れていることが多かったので
問題演習をしながら
再度、まとめていきたいと思います

「MsgBox関数」

vbExclamation 『！』のアイコンを表示

『！』を表示させる方法

Sub test1()
    MsgBox "作業を中止しますか？", vbYesNo + vbExclamation
End Sub

パターン①
メッセージを表示するだけの場合
MsgBox 文字列, ボタンやアイコンの種類, タイトル →() はナシ

パターン②
戻り値を利用する場合
MsgBox (文字列, ボタンやアイコンの種類, タイトル) →() はアリ

『はい・いいえ』のボタン表示させるには
ボタンやアイコンの種類を
「vbYesNo」に指定する

『！』のアイコンを表示させるには
ボタンやアイコンの種類を
「vbExclamation」に指定する

出典

---

vbQuestion 『？』のアイコンを表示

3パターンのやり方

Sub Test2()

    Dim A As Long
    A = MsgBox("作業を中止しますか？", vbYesNoCancel + vbQuestion)

    If A = vbYes Then
        MsgBox "作業を中止します"
    End If

    If A = vbNo Then
        MsgBox "作業を継続します"
    End If

    If A = vbCancel Then
        MsgBox "キャンセルします"
    End If

End Sub

『はい・いいえ・キャンセル』のボタン表示させるには
ボタンやアイコンの種類を
「vbYesNoCancel」に指定する

『！』のアイコンを表示させるには
ボタンやアイコンの種類を
「vbQuestion」に指定する

出典

---

IsNumeric関数 数値かどうかを判定する関数

Sub Test3()

    Dim A As String
    A = InputBox("数字を入力してください")

    If IsNumeric(A) = False Then
        MsgBox "数字ではありません"
    End If

    Range("A1") = A

End Sub

入力された値が
文字列の場合→数字ではありません

数値の場合→なにも表示されず処理が終了

出典

---

まとめ

学習期間が空くと
インプットしたものが抜けていくので
記事にするしないにかかわらず
学習は続けていくようにします

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

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

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

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

#66日ライラン
ライラン　21日目