Em muốn làm 1 hàm VBA để sum các ô hiện (filtered) DUY NHẤT.
Em có tìm được hàm dưới đây nhưng chỉ Sum được tất cả các ô hiện. Nhờ các anh chị chỉnh sửa code cho phù hợp.
Như ví dụ đính kèm thì khi filtered 1 thì kết quả phải là 1
Xin cảm ơn anh chị.
Em có tìm được hàm dưới đây nhưng chỉ Sum được tất cả các ô hiện. Nhờ các anh chị chỉnh sửa code cho phù hợp.
Mã:
Function SumVisible(WorkRng As Range) As Double
Dim rng As Range
Dim total As Double
For Each rng In WorkRng
If rng.Rows.Hidden = False And rng.Columns.Hidden = False Then
total = total + rng.Value
End If
Next
SumVisible = total
End Function
Như ví dụ đính kèm thì khi filtered 1 thì kết quả phải là 1
Xin cảm ơn anh chị.