Excel VBA 複数のシートの行を非表示

質問

いつもお世話になっています。
ブック内の同じフォーマットの複数のシートの行を非表示にしたいのですが、
繰り返し処理の記述方法がわかりません。
除外したいシートも数枚あり、"S"から始まるシートだけ操作したいです。
御回答よろしくお願いいたします。

回答No.1

x-1919 · ベストアンサー

Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
　　If UCase(Left(sht.Name, 1)) = "S" Then
　　　　sht.Rows(5).Hidden = True
　　End If
Next
とか

お礼

早々に回答をいただきありがとうございます。
すっきりと、素晴らしい構文をありがとうございます。
また機会がありましたら、よろしくお願いいたします。

回答No.2

chie65535

Sub Macro1()
　　'現在開いているブックのワークシートを1～最後までsnでループ
　　For sn = 1 To ActiveWorkbook.Worksheets.Count
　　　　'sn番目のシートの名前の１文字目が"S"かどうか判断
　　　　If Left(ActiveWorkbook.Worksheets.Item(sn).Name, 1) = "S" Then
　　　　　　'5～8行目を非表示にする
　　　　　　ActiveWorkbook.Worksheets.Item(sn).Rows("5:8").EntireRow.Hidden = True
　　　　End If
　　Next
End Sub

現在開いているブックのシート名が「S」で始まるシートの５～８行目を非表示にするマクロ。

お礼

早々に回答をいただきありがとうございます。
丁寧な解説も入れていただきありがとうございます。
今回は、先に回答してくださったかたをベストアンサーとさせていただきますが
また機会がありましたら、よろしくお願いいたします。