|
このまま動かすとひとつひとつ動かすことになるのですが、
スマートにひとつの文にする方法を教えてください。
Option Explicit
Private Sub Cmd隠す_Click()
Dim 行番号 As Long
Application.ScreenUpdating = False
'行を隠すGR列(行番号200)の総数量が0の時は行を非表示にする
For 行番号 = 9 To 126
If Cells(行番号, 200).Value = "0" Then
Cells(行番号, 1).EntireRow.Hidden = True
End If
Next 行番号
Application.ScreenUpdating = True
End Sub
Sub 行列非表示()
Sheets("基本").Select
'Dim wRow As Integer
'Dim W_Range As Range
Application.ScreenUpdating = False
'A〜D列を非表示
Columns("A:D").Hidden = True
'4行目のセル値を判断。1であれば非表示、0であれば表示
For Each W_Range In Range("E4:GW4")
With W_Range
Select Case .Value
Case 1: .Columns.Hidden = True
Case 0: .Columns.Hidden = False
End Select
End With
Next
'1〜4行目を非表示
Rows("1:4").Hidden = True
Application.ScreenUpdating = True
End Sub
|
|