Nhờ giú công thức tính tổng

Chia sẻ bởi:hands

★★★★★

‹ Lọc Từ Ngày Đến Ngày trong Pivot... Xin công thức tính tổng, trùng nhau... ›

Quảng cáo

Em chào anh chị trong diễn đàn, nhờ anh chị trong diễn đàn giúp đỡ em hàm tính tổng, nếu là các số thì cộng bình thường, nếu không phải là số thì cộng các giá trị lớn nhất của từng ô phân biệt bằng dấu "/"
Em xin cám ơn!

Bạn thử dùng công thức sau:

=SUM(IF(ISNUMBER(SEARCH("/",B2:V2)),IF(--LEFT(B2:V2,SEARCH("/",B2:V2)-1)>--RIGHT(B2:V2,LEN(B2:V2)-SEARCH("/",B2:V2)),
--LEFT(B2:V2,SEARCH("/",B2:V2)-1),--RIGHT(B2:V2,LEN(B2:V2)-SEARCH("/",B2:V2))),B2:V2))

Kết thúc bằng Ctrl+Shift+Enter.

hoặc dùng UDF:

Public Function MySum(ByVal rng As Range) As Double
Dim arr As Variant, cel As Range, tmp As Variant
For Each cel In rng
    If cel.Value <> "" Then
        tmp = cel.Value
        If InStr(1, tmp, "/") > 0 Then
            arr = Split(tmp, "/")
            MySum = MySum + IIf(arr(0) > arr(1), arr(0), arr(1))
        Else
            MySum = MySum + tmp
        End If
    End If
Next cel

End Function

Cách dùng:

=MySum(B2:V2)