フィルタリングされたテーブルからセルの値を選択する

Question

私はテーブルを通り、残りのコードで使用されるCol 5から値が欲しい値（ "ref"）を選ぶマクロを持っています。私は必要なもの

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 

（通常はフィルター内のコル2になりますが、他の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