【マクロ】【配列】３つのシートに、同じ作業をしたい

以下の配列の変数を利用して、３つのシートに
同じ作業をしたいです

同じ作業は、以下にあるコードの　列を折りたたむ作業です
３つのシートには、列が展開（表示）されており、折りたたむ事が出来ます

コードご存じの方orアドバイスお願いします


【宣言】
Dim allsheet As Variant

【全シート４つの内、３つのシート名を配列として設定】
allsheet = Array("あ", "い", "う")

【非表示にしたい列を折りたたむ】
ActiveSheet.Outline.ShowLevels ColumnLevels:=1

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2025/04/28 11:00

以下が、サンプルのコードです。

Public Sub 折り畳み処理()
Dim ws As Worksheet
Dim allsheet As Variant
Dim name As Variant
allsheet = Array("あ", "い", "う")
For Each name In allsheet
Set ws = Worksheets(name)
ws.Outline.ShowLevels ColumnLevels:=1
Next
End Sub

この回答へのお礼

うまくできました
ご指導、ありがとうございます

お礼日時：2025/04/29 21:24