Viết hàm tính số thùng khi biết các tổng khối lượng

[syquan]

Các cao thủ giúp giùm nha!
Viết hàm bằng VB để tạo macro trong Excel
Có bài toán như sau: Tính số thùng khi biết tổng các khối lượng
VD:
Tổng khối lượng 10.2+11.5 --> có 2 thùng
Tổng khối lượng 10.2*2+11+11.3*3 --> có 6 thùng
Tổng khối lượng 12 --> có 1 thùng

 

[ChanhTQ@]

Bạn fải quy định khối lượng tối đa & tối thiểu của 1 thùng chứ nhỉ?!

 

[huuthang_bd]

Các cao thủ giúp giùm nha!
Viết hàm bằng VB để tạo macro trong Excel
Có bài toán như sau: Tính số thùng khi biết tổng các khối lượng
VD:
Tổng khối lượng 10.2+11.5 --> có 2 thùng
Tổng khối lượng 10.2*2+11+11.3*3 --> có 6 thùng
Tổng khối lượng 12 --> có 1 thùng

Dùng tạm cái này vậy:

Function TongThung(Str As String) As Long
    Dim i As Long
    Str = Replace(Str, " ", "") & "+"
    TongThung = Len(Str) - Len(Replace(Str, "+", ""))
    Do Until InStr(i + 1, Str, "*") = 0
        i = InStr(i + 1, Str, "*")
        TongThung = TongThung + Mid(Str, i + 1, InStr(i, Str, "+") - i) - 1
    Loop
End Function