اقتبـاس ،، =INDEX(G:G,1)+INDEX(G:G,2)+INDEX(G:G,3)+...+INDEX(G:G,19)+INDEX(G:G,20)+INDEX(G:G,21)+INDEX(G:G,22)+INDEX(G:G,23)

اقتبـاس ،،

Sub SumAfterFilter()

    Dim rng As Range

    Dim cell As Range

    Dim sum As Double

   

    Set rng = Range("G5:G23").SpecialCells(xlCellTypeVisible)

   

    For Each cell In rng

        sum = sum + cell.Value

    Next cell

   

    MsgBox "المجموع هو: " & sum

End Sub

[quote][b][color=#e82a1f]=INDEX(G:G,1)+INDEX(G:G,2)+INDEX(G:G,3)+...+INDEX(G:G,19)+INDEX(G:G,20)+INDEX(G:G,21)+INDEX(G:G,22)+INDEX(G:G,23)[/b][/color][/quote]