Hàm cộng các chữ số trong 1 con số

[cattien]

Các pác giúp em lập cái hàm tính tổng các chữ số trong 1 con số, rồi từ đó em lấy ra 1 số hàng đơn vị
Ví dụ: số 15.111.222.333, cộng các chữ số: 1+5+1+1+1+2+2+2+3+3+3=24, lấy số 4 là kết quả cuối cùng
Cám ơn nhé!

 

[phatnq2002]

Ðề: Hàm cộng các chữ số trong 1 con số

Các pác giúp em lập cái hàm tính tổng các chữ số trong 1 con số, rồi từ đó em lấy ra 1 số hàng đơn vị
Ví dụ: số 15.111.222.333, cộng các chữ số: 1+5+1+1+1+2+2+2+3+3+3=24, lấy số 4 là kết quả cuối cùng
Cám ơn nhé!

Function TongTheoCatTien(chuoi) As Integer
Dim res As Integer, cd As Integer, i As Integer
cd = Len(chuoi)
For i = 1 To cd
If IsNumeric(Mid(chuoi, i, 1)) Then res = res + CInt(Mid(chuoi, i, 1))
Next
res = CInt(Right(Trim(Str(res)), 1))
TongTheoCatTien = res
End Sub

 

[cattien]

Ðề: Hàm cộng các chữ số trong 1 con số

Function TongTheoCatTien(chuoi) As Integer
Dim res As Integer, cd As Integer, i As Integer
cd = Len(chuoi)
For i = 1 To cd
If IsNumeric(Mid(chuoi, i, 1)) Then res = res + CInt(Mid(chuoi, i, 1))
Next
res = CInt(Right(Trim(Str(res)), 1))
TongTheoCatTien = res
End Sub

Cái hàm trong excel mà pác

 

[Trâu_KT]

Ðề: Hàm cộng các chữ số trong 1 con số

A1 = 15.111.222.333
CT= RIGHT(SUMPRODUCT(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)))

 

[phatnq2002]

Ðề: Hàm cộng các chữ số trong 1 con số

Cái hàm trong excel mà pác

Hàm trong Excel thì ... xin thôi đi, không có đâu chú. Đây là một xử lý chuyên biệt, Excel làm gì có hàm?

Cái này nó là Excel VBA đó, tự tạo hàm mà xài.