listobjectのオートフィルタの結果行数を取得したい。

Question

シート上にあるテーブル[basicT]をオートフィルタで絞り込んだ件数を取得したいです。
具体的にはフィルタ結果が0件か　そうでないかを判断したい。
下記のようにするとフィルタの結果が10件であろうと0件であろうと結果がどうやっても1になります。

basicT.Range.AutoFilter 1, Range("ユーザコード")
Debug.Print (basicT.Range.SpecialCells(xlCellTypeVisible).Rows.Count)

また

Debug.Print (DataBodyRange.SpecialCells(xlCellTypeVisible).Rows.Count)

とすると1件以上あると見た目どおりのレコード数を返すのですが0件だと
[実行時エラー'1004'　該当するセルが見つかりません]
となってしまいます。

解決方法をご教授いただけないでしょうか？

Answer 1

Sub test()
    Dim ws As Worksheet
    Dim i As Long
    
    Set ws = ActiveSheet
    
    With ws.ListObjects(1)
        .Range.AutoFilter 1, 1
        i = .Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
        
'        On Error resume next
'        i = .DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Count
'        On Error goto 0
    End With
    MsgBox i & "件です。"
End Sub

.SpecialCells(xlCellTypeVisible).Rows.Count
とやると、
飛び飛びに表示されている1番目のエリアの行数を数えてしまうようです。

1列に限定して、セルの数を数えてみてください。

Comments

[ryoucyan2000]

解決しました。range.countにするとすべてのセル数を返してきて使えないと思っていましが、カラムを絞ってやればよかったんですね。
ありがとうございます。