タイトル : エクセルの非表示シートを削除したい 投稿日 : 2022/05/18(Wed) 17:27 投稿者 : jingles
独学でvb6を始めて1年です。 エクセルの非表示シートがあったら削除するプログラムを、エクセルVBAで確認し、vb6で使えるように したかったのですが、変数の宣言がうまくいかず利用できません。 参照設定もMicrosoft DAO 3.6 object Libraryしか設定できない環境です。 Sub 非表示のワークシートをすべて削除する() If MsgBox("非表示のワークシートをすべて削除していいですか?", _ vbYesNo + vbDefaultButton2) = vbNo Then Exit Sub Application.DisplayAlerts = False Dim sh As Worksheet For Each sh In Worksheets If sh.Visible = xlSheetHidden Then sh.Delete Next Application.DisplayAlerts = True End Sub を参考にしたのですが… お詳しい方、助けていただけますか? |