필터링 된 테이블에서 셀 값 선택

Question

테이블을 통과하여 원하는 값 ("ref")을 Col 5에서 선택하여 나머지 코드에서 사용하는 매크로가 있습니다. 내가 필요로 무엇

Dim Lobj As ListObject 

Set Lobj = SourceBk.Sheets("RefSheet2_x").ListObjects("Table1") 

For x = 1 To Lobj.DataBodyRange.Rows.Count 

    Ref = Lobj.DataBodyRange(x, 5) 

Next x 

는 그냥 가시 행 표를 필터링 할 때 (보통의 골이 켜집니다 필터링하지만, 다른 COLS에 필터를 포함한다)를에 작동하도록 코드를 실행할 수 있도록한다. 내 현재 코드는 적용한 모든 필터링을 무시하고 전체 테이블에서 작동합니다.

도움을 주셨습니다.

Answer 1

전체 행의 Hidden 속성을 확인하려고합니다. 그 줄에있는 뭔가 :

Public Sub Answer() 
    Dim Lobj As ListObject 
    Dim Ref As Variant 
    Dim x As Long 

    Set Lobj = SourceBk.Sheets("RefSheet2_x").ListObjects("Table1") 

    With Lobj 
     For x = 1 To .DataBodyRange.Rows.Count 
      If Not .DataBodyRange.Rows(x).EntireRow.Hidden Then 
       Ref = .DataBodyRange(x, 5).Value 
       '... 
      End If 
     Next 
    End With 
End Sub