CÁch tính tổng các số trong một số!

[muldiver]

Em là mem mới post vao đây k biết đúng không mong các bác chỉ dẫn. Ví dụ: 57689 =>>5+7+6+8+9=35 vậy phải dùng hàm nào trong excel. Em xin chân thành cảm ơn.

 

[xuanthanh]

Ðề: CÁch tính tổng các số trong một số!

1/ Nhấn All+F11 rồi Insert một modul mới
2/ Chép hàm này vào

Function SumNumber(nNumber As Double) As Double
    Dim i As Integer
    For i = 1 To Len(nNumber)
        SumNumber = SumNumber + Val(Mid(nNumber, i, 1))
    Next
End Function

3/ Thực hiện : SumNumber(12345) = 15 (= 1+2+3+4+5)
Hoặc A1 = 56789, A2 = SumNumber(A1) (=35)

Thân mến