ExcelのVBAコードについて教えてください。

ThisWorkbookに下記のコードを設定しており
最初のメッセージで「 MsgBox("解凍してよろしいですか？"」
「YES」をクリックすると
マクロ「Call 解凍」が実行され
次のメッセージ「 MsgBox("軽微・フラットを確認してよろしいですか？"」
が表示されて
「YES」をクリックすると
マクロ
Call 軽微
Call フラット
Call 交付用名前変更
Call 削除
が実行されます。
最初のメッセージ「 MsgBox("解凍してよろしいですか？"」で
「NO」をクリックすると
次のメッセージが表示されず、
マクロ
Call 軽微
Call フラット
Call 交付用名前変更
Call 削除
が実行されません。
最初のメッセージ「 MsgBox("解凍してよろしいですか？"」で
「NO」をクリックすると
次のメッセージが表示され、
マクロ
Call 軽微
Call フラット
Call 交付用名前変更
Call 削除
が実行される方法を教えてください。
現状のコード
Private Sub Workbook_Open()

Dim alert As VbMsgBoxResult
alert = MsgBox("解凍してよろしいですか？", vbYesNo + vbQuestion, "解凍確認")
If alert <> vbYes Then
Exit Sub
End If

Call 解凍


alert = MsgBox("軽微・フラットを確認してよろしいですか？", vbYesNo + vbQuestion, "軽微・フラット確認")
If alert <> vbYes Then
Exit Sub
End If

Call 軽微
Call フラット
Call 交付用名前変更
Call 削除



End Sub
以上となります。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2025/02/14 10:22

以下のようにしてください。

Private Sub Workbook_Open()

Dim alert As VbMsgBoxResult
alert = MsgBox("解凍してよろしいですか？", vbYesNo + vbQuestion, "解凍確認")
If alert = vbYes Then
Call 解凍
End If

alert = MsgBox("軽微・フラットを確認してよろしいですか？", vbYesNo + vbQuestion, "軽微・フラット確認")
If alert <> vbYes Then
Exit Sub
End If

Call 軽微
Call フラット
Call 交付用名前変更
Call 削除
End Sub

この回答へのお礼

回答ありがとうございます。
詳しいコードを教えていただきまして、感謝いたします。
上手くできました。

お礼日時：2025/02/14 10:26