分岐 | nujonoa_blog https://nujonoa.com 人生に役立つデータ集 Thu, 28 Jan 2021 12:58:04 +0000 ja hourly 1 https://wordpress.org/?v=6.8.3 https://nujonoa.com/wp-content/uploads/2019/04/cropped-DSC00976-e1554456145409-32x32.jpg 分岐 | nujonoa_blog https://nujonoa.com 32 32 【VBA】msgboxで3択を行うには？コピペで簡単。 https://nujonoa.com/how-to-make-3-choices-in-msgbox/ https://nujonoa.com/how-to-make-3-choices-in-msgbox/#respond Thu, 28 Jan 2021 12:58:03 +0000 http://nujonoa.com/?p=8693 msgboxでの3択の使い方の例を記載しました！
参考にしてください！！

【VBA】msgboxで3択を行うには？コピペで簡単。

msgboxで3択をする方法です。
※ダブルクリックでコピーできます。

SUB 3TAKU()
flag = 0

flag = MsgBox("○○なら→はい" & vbCrLf & "△△なら→いいえ" & vbCrLf & "□□なら→キャンセル", 3 + 32) '16:警告 32:問い合わせ 48:注意 64:情報
If flag = 6 Then
    MsgBox "処理1"
ElseIf flag = 7 Then
    MsgBox "処理2"
ElseIf flag = 2 Then
    MsgBox "処理3"
End If

END SUB

プログラム説明

msgboxで綺麗に三択を行う方法は、残念ながらありません。
本当は回答を決めれたらいいのですが、、、

そのため、msgboxで3択を行うためには、

msgbox("○○なら→はい" & vbCrLf & "△△なら→いいえ" & vbCrLf & "□□なら→キャンセル", 3)

を用いて、yes, no, キャンセルで分岐させることをお勧めします。
少々質問文が長くなりますが、これで十分役目は果たせます。

]]> https://nujonoa.com/how-to-make-3-choices-in-msgbox/feed/ 0 【VBA】質問、分岐付きmsgbox、コピペで簡単。 https://nujonoa.com/how-to-use-msgbox/ https://nujonoa.com/how-to-use-msgbox/#respond Thu, 28 Jan 2021 12:50:34 +0000 http://nujonoa.com/?p=8680 よく使うけど忘れる。。msgboxの使い方をまとめました。

【VBA】質問付きmsgbox、コピペで簡単。

質問、分岐付きのmsgboxのコード一覧です。
※ダブルクリックでコピーできます。

Sub msgbox1()

    Dim flag As Integer


' vbOKOnly    0   [OK]ボタンのみを表示します

    MsgBox ("AA")
    
'vbOKCancel  1   [OK]ボタンと[キャンセル]ボタンを表示します

    flag = 0
    
    flag = MsgBox("OK" & vbCrLf & "キャンセル?", 1 + 32) '16:警告 32:問い合わせ 48:注意 64:情報
    If flag = 1 Then
        MsgBox "OK"
    ElseIf flag = 2 Then
        MsgBox "キャンセル"
    End If
    

    

'vbAbortRetryIgnore  2   [中止]、[再試行]、および[無視]の３つのボタンを表示します

    flag = 0
    
    flag = MsgBox("中止" & vbCrLf & "再試行" & vbCrLf & "無視", 2 + 32) '16:警告 32:問い合わせ 48:注意 64:情報
    If flag = 3 Then
        MsgBox "中止"
    ElseIf flag = 4 Then
        MsgBox "再試行"
    ElseIf flag = 5 Then
        MsgBox "無視"
    End If


'vbYesNoCancel   3   [はい]、[いいえ]、および[キャンセル]の３つのボタンを表示します

    flag = 0
    
    flag = MsgBox("はい" & vbCrLf & "いいえ" & vbCrLf & "キャンセル", 3 + 32) '16:警告 32:問い合わせ 48:注意 64:情報
    If flag = 6 Then
        MsgBox "はい"
    ElseIf flag = 7 Then
        MsgBox "いいえ"
    ElseIf flag = 2 Then
        MsgBox "キャンセル"
    End If

'vbYesNo 4   [はい]ボタンと[いいえ]ボタンを表示します

    flag = 0
    
    flag = MsgBox("はい" & vbCrLf & "いいえ", 4 + 64) '16:警告 32:問い合わせ 48:注意 64:情報
    If flag = 6 Then
        MsgBox "はい"
    ElseIf flag = 7 Then
        MsgBox "いいえ"
    End If




'vbRetryCancel   5   [再試行]ボタンと[キャンセル]ボタンを表示します

    flag = 0
    
    flag = MsgBox("再試行" & vbCrLf & "キャンセル", 5 + 48) '16:警告 32:問い合わせ 48:注意 64:情報
    If flag = 4 Then
        MsgBox "再試行"
    ElseIf flag = 2 Then
        MsgBox "キャンセル"
    End If


'番外編　INPUTボックス
MOJI = InputBox("質問はここ", "タイトルはここ", "デフォルトの数字はここ")


    
End Sub

プログラム説明

msgboxには、色々な種類があり、判断に迷いますが、
①ただのメッセージ
②2択の質問
③3択の質問
に分けられます。

また、ここで厄介なのが、
質問が2択であれば、返り値は1，2でいいのに、それぞれの値を持っています。

これに限っては、コピペに限ります。
是非下のコードをお使いください。

2択のメッセージ

'vbOKCancel 1 [OK]ボタンと[キャンセル]ボタンを表示します

flag = 0

flag = MsgBox("OK" & vbCrLf & "キャンセル?", 1 + 32) '16:警告 32:問い合わせ 48:注意 64:情報
If flag = 1 Then
    MsgBox "OK"
ElseIf flag = 2 Then
    MsgBox "キャンセル"
End If

'vbYesNo 4 [はい]ボタンと[いいえ]ボタンを表示します

flag = 0

flag = MsgBox("はい" & vbCrLf & "いいえ", 4 + 64) '16:警告 32:問い合わせ 48:注意 64:情報
If flag = 6 Then
    MsgBox "はい"
ElseIf flag = 7 Then
    MsgBox "いいえ"
End If

'vbRetryCancel 5 [再試行]ボタンと[キャンセル]ボタンを表示します

flag = 0

flag = MsgBox("再試行" & vbCrLf & "キャンセル", 5 + 48) '16:警告 32:問い合わせ 48:注意 64:情報
If flag = 4 Then
    MsgBox "再試行"
ElseIf flag = 2 Then
    MsgBox "キャンセル"
End If

3択のメッセージ

'vbAbortRetryIgnore 2 [中止]、[再試行]、および[無視]の３つのボタンを表示します

flag = 0

flag = MsgBox("中止" & vbCrLf & "再試行" & vbCrLf & "無視", 2 + 32) '16:警告 32:問い合わせ 48:注意 64:情報
If flag = 3 Then
    MsgBox "中止"
ElseIf flag = 4 Then
    MsgBox "再試行"
ElseIf flag = 5 Then
    MsgBox "無視"
End If

'vbYesNoCancel 3 [はい]、[いいえ]、および[キャンセル]の３つのボタンを表示します

flag = 0

flag = MsgBox("はい" & vbCrLf & "いいえ" & vbCrLf & "キャンセル", 3 + 32) '16:警告 32:問い合わせ 48:注意 64:情報
If flag = 6 Then
    MsgBox "はい"
ElseIf flag = 7 Then
    MsgBox "いいえ"
ElseIf flag = 2 Then
    MsgBox "キャンセル"
End If

ただのメッセージ

' vbOKOnly 0 [OK]ボタンのみを表示します

MsgBox ("AA")

'番外編　INPUTボックス

MOJI = InputBox("質問はここ", "タイトルはここ", "デフォルトの数字はここ")
]]> https://nujonoa.com/how-to-use-msgbox/feed/ 0