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ベストアンサー
- 回答日時:
以下のようにしてください。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロについて教えてください。 2 2024/12/04 10:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2024/12/03 09:10
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) エクセルのVBAコードについて教えてください。 2 2024/07/04 10:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2024/07/02 08:51
- Visual Basic(VBA) エクセルのVBAコードについて教えてください。 1 2025/02/11 15:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2024/03/27 14:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2024/07/01 09:07
- Access(アクセス) Access Error3061 パラメータが少なすぎます。4を指定してください。 3 2024/04/12 14:29
このQ&Aを見た人はこんなQ&Aも見ています
-


VBAの「To」という語句について
Visual Basic(VBA)
-


VB.net 文字列から日付型へ変更したい
Visual Basic(VBA)
-


質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Wor
Visual Basic(VBA)
-
-
4

以下のプログラムの実行結果はどうなると思いますか? その理由も教えてください。
Visual Basic(VBA)
-
5

算術演算子「¥」の意味について
Visual Basic(VBA)
-
6

Visualbasicの現状について教えてください
Visual Basic(VBA)
-
7

vbaマクロについて
Visual Basic(VBA)
-
8

エクセル タブの下のメニューを選択 実行するコード
Visual Basic(VBA)
-
9

【ExcelVBA】dictionaryの重複判断の基準(セル結合だと違う値として認識される)
Visual Basic(VBA)
-
10

VBAのループ処理について教えてください
Visual Basic(VBA)
-
11

VBA Application.Matchについての質問です
Visual Basic(VBA)
-
12

Excel VBAについて。こんな動作をさせるためにはどう書けばよいでしょうか。
Visual Basic(VBA)
-
13

VBAでユーザーフォームを指定回数繰り返して入力を行う方法
Visual Basic(VBA)
-
14

VBAでFOR NEXT分を Application.OnTimeを使って
Visual Basic(VBA)
-
15

COPYコマンドで、最後に1文字「Hex1A」が付くのはなぜ?外し方は?
その他(プログラミング・Web制作)
-
16

エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
17

えくせるのVBAコードについて教えてください。
Visual Basic(VBA)
-
18

(EXCEL超初心者)EXCELの関数(またはマクロ)で質問です。
Visual Basic(VBA)
-
19

Excelマクロで使うVBAコードをスプレッドシートのGoogle Apps Scriptに変換
Visual Basic(VBA)
-
20

改行文字「vbCrLf」とは
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
【マクロ】並び替えの範囲が、...
-
【マクロ】オートフィルター を...
-
Vba Array関数について教えてく...
-
Vba 型が一致しません(エラー1...
-
【ExcelVBA】値を変更しながら...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【ExcelVBA】5万行以上のデー...
-
VBAでセルの書式を変えずに文字...
-
【マクロ】開いているブックの...
-
Vba セルの4辺について罫線が有...
-
vb.net(vs2022)のtextboxのデザ...
-
Excel VBA 選択範囲の罫線色の...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコ...
-
WindowsのOutlook を VBA から...
-
Excel 範囲指定スクショについ...
-
【マクロ】シートの変数へ入れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【マクロ】開いているブックの...
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
エクセルのVBAコードと数式につ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】変数を使った、文字...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく...
-
【マクロ】シートの変数へ入れ...
-
ワードの図形にマクロを登録で...
-
算術演算子「¥」の意味について
おすすめ情報









