범위를 통한 루핑 및 열 숨기기 VBA

Question

오늘은 매우 힘들며 VBA에서는 매우 새로운 기능입니다. 성공을위한 방법이 아닙니다. 나는 (가로) 범위의 각 셀을 반복하려고하고 셀 안의 텍스트가 거짓이면 그 열을 숨기고 싶다. 이것은 내가 지금까지있어 무엇 :

Dim rRange As Range 
Dim rCell As Range 
rRange = Worksheets("Data").Range("W7:AH7").Cells 

For Each rCell In rRange 
     If rCell.Value = "FALSE" Then rCell.Columns.EntireColumn.Hidden = True 
Next rCell 
End Sub 

내가 오류 "개체 변수 또는 설정되지 않은 블록 변수"얻을. 누군가 내가 잘못 가고 있다고 지적 할 수 있겠 니? 감사.

Answer 1

사용이

set rRange = Worksheets("Data").Range("W7:AH7").Cells 

및

If Ucase(rCell.Value) = "FALSE" Then rCell.Columns.EntireColumn.Hidden = True 

변수는 인스턴스를 생성 설정하고, "FALSE"<> "거짓", diferences을 무시 UCASE를 사용할 필요가 개체.

[]의