VBAの可視行の合計を取得

Question

グローバル範囲と可視（フィルタリングされた）範囲の合計数& sumifをフィルタリングして表示する必要があります。

AtmCurrentCount = Range("X3:X4533").SpecialCells(xlCellTypeVisible).Count 
AtmCurrentSum = ??? 

でした誰の助け：私は、フィルタリングの範囲の数を表示することができています。この部分では

AtmCount = Application.WorksheetFunction.CountIf(Range("X3:X4533"), ">0") 
AtmSum = Application.WorksheetFunction.Sum(Range("X3:X4533")) 

：次のコードで、私は世界の範囲の数& SUMIFを表示することができています私は入手する目に見える行の合計？

Answer 1

これは、あなたが望むことをします。 visibleTotalを合計の適切なデータ型に設定し、wsとrngオブジェクトをワークブックにあるものと一致するように変更します。あなたが唯一のフィルタリング範囲の一部を合計したい場合には

Sub SumVisible() 
    Dim ws As Worksheet 
    Dim rng As Range 
    Dim visibleTotal As Long 

    Set ws = ThisWorkbook.Sheets("Sheet1") 
    Set rng = ws.Range("B1:B7") 

    ws.AutoFilterMode = False 
    rng.AutoFilter field:=1, Criteria1:=5 

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

（例えば、あなたが列Aにフィルタリングするが、B列の合計をしたい）、この質問と回答を参照してください。Copy/Paste/Calculate Visible Cells from One Column of a Filtered Tableを。

Answer 2

あなただけではなく

AtmCurrentSum = application.worksheetfunction.subtotal(9, Range("X3:X4533")) 

Answer 3

SUMIFより合計をしたい場合、私はちょうどこのサイトに出くわしました。 https://www.techrepublic.com/blog/microsoft-office/how-to-sum-values-in-an-excel-filtered-list/

基本的な式である X = Application.WorksheetFunction.Subtotal（ 'コード番号'、 '範囲'） したい式 X = Application.WorksheetFunction.Subtotal（109、範囲は（X、Y ））