EXCEL VBA MsgBoxの応用編[メッセージボックス]　（テクニック）

EXCEL VBA MsgBoxの応用編[メッセージボックス]　（テクニック）

セルの値とアイコンをメッセージボックスで表示する　（Msgbox関数）

'
'******** AKIRA55.COM ******* https://akira55.com/msgBox02/
'
Sub Msgbox01()'セルの値とアイコンを表示する


    Dim I, B As Long
    
    
    For I = 2 To 6 '2行目～6行目まで繰り返します
    
        B = Range("B" & I)  'アイコン番号を取得
       
        MsgBox Range("A" & I) & "支店", B  'メッセージボックスにA列の「支店名」を「アイコン」を表示します。
    
    Next I
    
End Sub
'

セルの値をメッセージボックスで複数表示する「結合」　（Msgbox関数）

'
'******** AKIRA55.COM ******* https://akira55.com/msgBox02/
'
Sub Msgbox02() 'セル内容を結合してメッセージボックスに表示する

    Dim I, GOKEI As Long
    Dim Mes As String
    
    For I = 2 To 6 '2行目～6行目まで繰り返します
    
        Mes = Range("A" & I) & "支店の" & Range("B" & I) & "さんの売り上げは、" & Format(Range("C" & I), "#,###") & "円です。"
        
        GOKEI = GOKEI + Range("C" & I) '売上の合計金額を集計します。
        
        MsgBox Mes
    Next I
    
    MsgBox "売上の合計は、" & Format(GOKEI, "#,###") & "円です。"
    
End Sub
'

ワークシート名をメッセージボックスに表示します。【改行】（Msgbox関数）

'
'******** AKIRA55.COM ******* https://akira55.com/msgBox02/
'
Sub Msgbox03()  'ワークシート名をメッセージボックスに表示する

 
    Dim Ws As Worksheet
    Dim Msg As String

    Msg = "全てのワークシート数は、" & Worksheets.Count & "枚です。" & vbCrLf
    
    For Each Ws In Worksheets '全てのワークシートを対象（繰り返す）
 
        Msg = Msg + Ws.Name & vbCrLf    'ワークシート名を次々に結合する。「vbCrLf」は、改行

    Next Ws
    
    MsgBox Msg & "以上です"
    

End Sub
'

処理条件により、メッセージボックスアイコンを区別して表示する

'
'******** AKIRA55.COM ******* https://akira55.com/msgBox02/
'
Sub Msgbox04()  'ワークシート名をメッセージボックスに表示する


    Dim I, ICon As Long
    
    For I = 2 To 6 '2行目～6行目まで繰り返します
    
    
        Select Case Range("C" & I)
            Case Is >= 200000
                ICon = 48
            Case Is >= 150000
                ICon = 64
            Case Is >= 100000
                ICon = 32
            Case Else
                ICon = 16
        End Select
    
       MsgBox Range("A" & I) & "支店の" & Range("B" & I) & "さんの売り上げは、" & Format(Range("C" & I), "#,###") & "円です。", ICon

    Next I
    
    
End Sub
'

メッセージボックスを利用して、アンケート調査及びアンケートを回答する

'
'******** AKIRA55.COM ******* https://akira55.com/msgBox02/
'
Sub Msgbox05()  'メッセージボックスを利用してアンケートに解答する。


    Dim I As Long
    Dim Retmsg As Integer
    
    For I = 2 To 6
        
        Retmsg = MsgBox(Range("B" & I), vbYesNo)  'B列のアンケート内容を表示（Yes/NO）
        
        If Retmsg = 6 Then
                Range("C" & I) = "はい"  'Yes　C列の結果に記入
        
            Else
                Range("C" & I) = "いいえ"  'No　C列の結果に記入
        End If
        
    
    Next I
    
    
End Sub
'