|
ありがとうございます。
下記のように書き換え実行しました。
1点問題なのですが、sheetを基本にしているのに
'1〜4行目を非表示
Rows("1:4").Hidden = True
'A〜D列を非表示
Columns("A:D").Hidden = True
上記の部分が、アクティブシートでの実行になってしまうのは
なぜでしょうか?
教えてください。
Sub Test()
Dim c As Range
Dim i As Long
Application.ScreenUpdating = False
With Sheets("基本")
.Rows.Hidden = False 'いったんすべて表示
.Columns.Hidden = False 'いったんすべて表示
'行の非表示
For i = 9 To 126
If .Cells(i, "GR").Value = 0 Then .Rows(i).Hidden = True
Next
'1〜4行目を非表示
Rows("1:4").Hidden = True
'A〜D列を非表示
Columns("A:D").Hidden = True
For Each c In .Range("E4:GW4")
If c.Value = 1 Then c.EntireColumn.Hidden = True
Next
End With
End Sub
|
|