Xin giúp đỡ về đếm không trùng và có điều kiện (1 người xem)

[thangemso1]

Xin chào tất cả mọi người!
- Mình có 1 vấn đề xin được giúp đỡ theo như file đính kèm: Đếm số khách hàng thuộc nhóm không trùng nhau và có số dư >0, và khác rỗng
- Thêm 1 vấn đề nữa là: Mình muốn cộng 2 số này lại có được không. VD: 2/5 + 1/2= 3/7
Xin cảm ơn rất nhiều

 

[eke_rula]

Xin chào tất cả mọi người!
- Mình có 1 vấn đề xin được giúp đỡ theo như file đính kèm: Đếm số khách hàng thuộc nhóm không trùng nhau và có số dư >0, và khác rỗng
- Thêm 1 vấn đề nữa là: Mình muốn cộng 2 số này lại có được không. VD: 2/5 + 1/2= 3/7
Xin cảm ơn rất nhiều

Làm cho bạn ý 1, công thức tại G18:

G18=COUNT(1/(MATCH($B$4:$B$15,$B$4:$B$15,)*($A$4:$A$15=F18)*($D$4:$D$15>0)=(ROW($B$4:$B$15)-3)))

Bấm Ctrl+Shift+Enter rồi fill xuống!!!

 

[befaint]

Xin chào tất cả mọi người!
- Mình có 1 vấn đề xin được giúp đỡ theo như file đính kèm: Đếm số khách hàng thuộc nhóm không trùng nhau và có số dư >0, và khác rỗng
- Thêm 1 vấn đề nữa là: Mình muốn cộng 2 số này lại có được không. VD: 2/5 + 1/2= 3/7
Xin cảm ơn rất nhiều

Ý tiện thể:
Tách chuỗi thành 2 phần ngăn cách bởi "/" rồi cộng 2 phần tương ứng với nhau, sau cùng ghép 2 kết quả vừa cộng ngăn cách bởi "/".

 

[thangemso1]

Ý tiện thể:
Tách chuỗi thành 2 phần ngăn cách bởi "/" rồi cộng 2 phần tương ứng với nhau, sau cùng ghép 2 kết quả vừa cộng ngăn cách bởi "/".

Xin cảm ơn bạn befaint rất nhiều!
- Xin bạn giúp mình giải quyết vấn đề đó với: 2/3 + 1/2= 3/5

 

[befaint]

- Xin bạn giúp mình giải quyết vấn đề đó với: 2/3 + 1/2= 3/5

Chép vào 1 module:

Function ComFraction(ByVal Txt As String) As String
Txt = WorksheetFunction.Trim(Txt)
Dim aTmp, i As Long, a As Long, b As Long, tmpText As String
aTmp = Split(Txt, "+")
If UBound(aTmp) > 0 Then
    For i = LBound(aTmp) To UBound(aTmp)
        tmpText = aTmp(i)
        If InStr(tmpText, "/") Then
            a = a + CLng(Split(tmpText, "/")(0))
            b = b + CLng(Split(tmpText, "/")(1))
        End If
    Next i
End If
If a Then ComFraction = a & "/" & b
End Function

Công thức ở bảng tính:

=ComFraction("2/3 + 1/2")

 

[thangemso1]

Lần nữa xin cảm ơn bạn nh, nhưng sao mình làm lại không được bạn nhỉ, cái đoạn công thức ở bảng tính là sao bạn

 

[MeThuongNho]

Ý 2: bạn xem file đính kèm: sử dụng hàm.
Thân

 

[quocgiacan]

Xin cảm ơn bạn befaint rất nhiều!
- Xin bạn giúp mình giải quyết vấn đề đó với: 2/3 + 1/2= 3/5

Góp vui bằng công thức, xem file đính kèm.

Chúc anh em ngày thiệt vui.
p/s: làm rồi, nhưng thấy hơi kỳ kỳ 2/3 + 1/2 phải lý là 7/6 chứ làm sao bằng 3/5 được hả chủ thớt!?