Сокрытие столбцов с помощью VBA

Question

В настоящее время я пытаюсь скрыть определенные столбцы, если Row(8:8) отвечает определенным критериям. Мой цикл For Each в настоящее время не работает. Может ли кто-нибудь указать мне в правильном направлении?

Sub hide() 
' hide Macro 
' 
Dim rng As Range 

    For Each rng In Range("F:BJ").Columns 
     If Rows.Range("8") = "Test" Or Rows.Range("8") = "Test1" Then 
      Column.rng.EntireColumn.Hidden = True 
     End If 

    Next rng 
End Sub 

Answer 1

Вы можете сделать это следующим образом:

Dim rng As Range 
For Each rng In Range("F8:BJ8") 

    If rng.Value = "Test" Or rng.Value = "Test1" Then 
     rng.EntireColumn.Hidden = True 
    End If 

Next rng 

Answer 2

Предположительно, вы хотели бы, чтобы отобразить столбцы, если значение в строке 8 было изменено программно или иным образом.

Dim rng As Range 
With Worksheets("Sheet1") 
    For Each rng In .Range("F8:BJ8") 
     rng.EntireColumn.Hidden = _ 
      CBool(LCase(rng.Value) = "test" Or LCase(rng.Value) = "test1") 
    Next rng 
End With 

Answer 3

Диапазоны строк и столбцов относятся ко всей электронной таблице, если вы не указали диапазон.

Sub hideColumn() 

    Dim rng As Range 

    For Each rng In Range("F:BJ").Columns 
     If rng.Rows(8) = "Test" Or rng.Rows(8) = "Test1" Then 
      rng.EntireColumn.Hidden = True 
     End If 
    Next rng 

End Sub