[[20221128103944]]　『シートの削除』（白音）　ページの最後に飛ぶ

『シートの削除』（白音）

シート(SheetMain)にボタン(btnStart)を配置し、
サブルーチンを呼び出しています。

Private Sub btnStart_Click()

    ModuleMain.データ取得
End Sub

サブルーチンは以下のようなマクロを作っています。
ステップ実行していくと

worksheets(1).Delete の行を実行した後処理が終了します。
エラーは発生しません。
何が間違っているのですか？

Sub データ取得()

	:
	:

    While i <= Worksheets.Count
        If Worksheets(i) Is SheetMain Then
            i = i + 1
        ElseIf Worksheets(i) Is SheetSub Then
            i = i + 1
        Else
            Worksheets(i).Delete
        End If
    Wend

	:
	:

End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 エラーは発生していないのですね？

 SheetMain、SheetSub が何なのか示されてませんが、
 これでエラーがでないということは、シートのオブジェクト名でしょうか？

 SheetMain、SheetSubがシートのオブジェクトだとすると
 オブジェクト名がSheetMain、SheetSub以外のシートを全部削除するコードになっていますが、
 >worksheets(1).Delete の行を実行した後処理が終了します。
 終了したとき、他のシートは削除されていますか？

 もし、ちゃんと削除されているなら、こういうことではないかと思います。

 VBA ステップインモードF8を押すと一気に実行される
https://answers.microsoft.com/ja-jp/msoffice/forum/all/vba/bb285825-0094-4921-8fcd-cb4f5aa80b91

 確認してみてください。
（´・ω・`） 2022/11/28(月) 11:00:35

 SheetMain、SheetSubはシート型の変数でもOKでしたね
（´・ω・`） 2022/11/28(月) 11:30:19

コメント返信：

[ 一覧(最新更新順) ]

[[20221128103944]] 『シートの削除』（白音） ページの最後に飛ぶ

[[20221128103944]]　『シートの削除』（白音）　ページの最後に飛ぶ