MsgBoxの表示について

質問

ユーザーフォームのチェックボックスの選択後(複数選択可)コマンドボタンのクリックで各チェックボックスのマクロを実行するようにしていますが、下記コードだとマクロの実行後もMsgBoxが表示されてしまいますが(当たり前ですが)、これをコマンドボタンのみをクリックした場合のみMsgBoxを表示させることは可能でしょうか？お教え下さい。

Windows7・SP1 Office2010・SP2

Private Sub CommandButton1_Click()

Sheets("編集").Select

If CheckBox9 Then
Unload UserForm6
変更後編集データの保存
End If
If CheckBox10 Then
Unload UserForm6
変更前編集データの保存
End If
If CheckBox11 Then
Unload UserForm6
指定勤務有あり編集データの保存
End If
If CheckBox12 Then
Unload UserForm6
指定勤務有なし編集データの保存
End If
If CheckBox2 Then
Unload UserForm6
日付データの保存
End If
If CheckBox3 Then
Unload UserForm6
個人情報の保存
End If

MsgBox ("保存する編集データを選択してください。"), vbExclamation

End Sub

回答No.1

oka_me · ベストアンサー

チェックボックスの選択がない場合、ということで宜しいのですよね？

Private Sub～の下に

Dim chk As Boolean
chk = False

各If CheckBox○ Thenの下に
chk = True
（チェックボックスの個数分全て記述してください）

最後のMsgBoxの表示部分を
If chk = False Then
MsgBox ("保存する編集データを選択してください。"), vbExclamation
End If

でどうでしょうか。。

お礼

有難うございます。上手く出来ました。そういう考え方もあるのですね。
勉強不足でした。