エクセル　マクロで　inputBox でキャンセルボタンを押すとマクロを終了させたい。

投稿者 : まめ     投稿日時 : 2022/01/28(Fri) 18:49:44     OS : Windows 10     EXCEL : Excel 2016

---

マクロで、inputBox を使っているのですが、
　メッセージBox でキャンセルボタンを押すと　マクロを終了させたいのですが、
うまくいきません。

Sheets("ﾘｱﾙﾀｲﾑ").Select



Dim kakuninA As Integer

kakuninA = MsgBox("このマクロを本当に実行しますか？ 保存する　年、月、を確認していますか？", vbYesNo, "確認")

If kakuninA = vbYes Then

Dim henkouC As Integer







henkouC = InputBox("何年のシートを保存しますか？", "何年？")

MsgBox henkouC

　　　　　　　　　　　　　　　　　ここで、キャンセルボタンを押すと
　　　　　　　　　　　　　　　　　　キャンセルされました。とメッセージを表示し、
　　　　　　　　　　　　　　　　　　マクロを終了させたいのですが。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　

If henkouC > 2021 And henkouC < 2024 Then

Dim henkouD As Integer


henkouD = InputBox("何月のシートを保存しますか？", "何月？")





MsgBox henkouD

　　　　　　　　　　　　　　　　　　　ここで、キャンセルボタンを押すと
　　　　　　　　　　　　　　　　　　キャンセルされました。とメッセージを表示し、
　　　　　　　　　　　　　　　　　　マクロを終了させたいのですが。　　　　　　



If henkouD > 0 And henkouD < 13 Then


If henkouD = 1 Or henkouD = 2 Then

henkouD = henkouD + 12

End If

投稿者 : ヘンリー     投稿日時 : 2022/01/28(Fri) 19:06:06

---

InputBoxのキャンセルが押された場合の戻り値について、
調べてみて下さい。