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

[kenshin]

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.

View more random threads:

• EMBED("Forms.ComboBox.1","")
• Chia Sheet Tổng Thành Nhiều Sheet theo điều kiện từ cột
• Macro sắp xếp các Sheet theo trình tự
• Giúp mình với
• tạo máy tính bằng vba trong excel
• Cách chuyển dữ liệu từ máy chấm công sang bảng chấm công có sẵn.
• Chỉnh Sửa Macro Tổ Hợp Giúp
• Sách Kinh nghiệm thực hành kế toán trên Excel
• Tạo một danh sách xác thực thay đổi theo sự lựa chọn từ một danh sách khác nhờ VBA
• Giúp em viết code VBA để copy nhiều sheet vào sheet tổng cộng

[hajdajgja]

Ðề: 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

[COLOR=#000000]
[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]SumNumber[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]nNumber [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Double[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]Double    Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer    [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]nNumber[/COLOR][COLOR=#007700])        [/COLOR][COLOR=#0000BB]SumNumber [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]SumNumber [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Val[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]nNumber[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]))    [/COLOR][COLOR=#0000BB]NextEnd [/COLOR][COLOR=#007700]Function[/COLOR] 

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