Excel VBAでフィルタ後に表示される行の数を取得するには

Question

私のExcelシートでは、フィルタを適用しています。その後、表示行を数えています。 次のコードを使用しましたが、カウントが間違っています。私がxlCellTypeVisibleを持っているとき、それは "14"レコードの代わりに "12"レコードを表示し、visibleTotal変数は "0"カウントを示します。

Dim ws As Worksheet 
Dim rng As Range 
Dim visibleTotal As Long 

'xlwkbOutput.Sheets("Sheet1") 
Set rng = xlwkbOutput.Sheets("Sheet1").Range("A1:T" & lastRow&) 

xlwkbOutput.Sheets("Sheet1").AutoFilterMode = False 
rng.AutoFilter field:=1, Criteria1:="#N/A" 

visibleTotal = Application.WorksheetFunction.Sum(rng.SpecialCells(xlCellTypeVisible)) 
' print to the immediate window 
Debug.Print visibleTotal 

Answer 1

あなたの物語を約「可視行を数える」さあなたのコードはSUM()機能

を示しながら、とにかくここAutofilter()が常にすることを念頭に置いて、あなたは両方の数値を得ることができる方法ですヘッダー行をフィルタリングし、それが

Option Explicit 

Sub main() 
    Dim visibleTotal As Long, visibleRows As Long 

    With xlwkbOutput.Sheets("Sheet1") '<-- reference your worksheet 
     .AutoFilterMode = False 
     With .Range("A1:T5") '<-- reference its relevant range 
      .AutoFilter field:=1, Criteria1:="#N/A" '<-- apply filter: first row (headers) will always be selected 
      visibleRows = Application.WorksheetFunction.Subtotal(103, .Resize(, 1)) - 1 '<-- count visible rows, excluding headers (always filtered) 
      If visibleRows > 0 Then visibleTotal = Application.WorksheetFunction.Sum(.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)) '<-- sum all visible cells, excluding headers (always filtered) 
      ' print to the immediate window 
      Debug.Print visibleTotal 
     End With 
     .AutoFilterMode = False 
    End With 
End Sub 

Answer 2

私は分かりませんが、代わりにカウント機能を使用しませんか？言いにくいですが、その行動は私には正しいようです。私たちがデータを持っていないときは、言うことは難しいです。表示されているセルのワークシートにsum関数を適用し、マクロと同じであれば返すものを確認してください。

Answer 3

多分SUBTOTAL機能を利用することができます。この関数は、値をフィルタリングしたときに非常に頻繁に使用されます。あなたは、リンクを確認することができます。この機能の詳細については

1 AVERAGE 
2 COUNT 
3 COUNTA 
4 MAX 
5 MIN 
6 PRODUCT 
7 STDEV 
8 STDEVP 
9 SUM 
10 VAR 
11 VARP 

：

' To SUM filtered rows use 9 as argument of SUBTOTAL or to COUNTA use 3 
' "- 1" is to exclude the first row, probably the header of your range; otherwise remove it 
visibleTotal = Application.WorksheetFunction.Subtotal(9, rng) - 1 

小計引数リスト：あなたはにあなたのコードを適応させることができます。

HTH;）