Em cần giúp đỡ: Cách tính tổng các con số trong dãy số

Plaza · 30/7/12

Em có 1 file số exel như sau:

Hình minh họa:

Cần tính tổng các con số ở cột A và cho kết quả tương xứng ở cột B
Như ví dụ đang tính dở ở cột B: B2 = 0+9+1+5+1+8+9+6+9+5 = 53)

Em cảm ơn nhiều !

Quang_Hải · 30/7/12

Dùng hàm tự tạo là khoẻ nhất

PHP:

Public Function tong(cell As Range) As Long
Dim i As Byte, kq As Long
For i = 1 To Len(cell)
  kq = kq + Val(Mid(cell, i, 1))
Next
tong = kq
End Function

Plaza · 30/7/12

quanghai1969 đã viết:
Dùng hàm tự tạo là khoẻ nhất

PHP:

Public Function tong(cell As Range) As Long Dim i As Byte, kq As Long For i = 1 To Len(cell) kq = kq + Val(Mid(cell, i, 1)) Next tong = kq End Function

EM gửi kèm file trên đó, bác viết giúp em cái nhé. Khoản này em mù tịt! E cảm ơn nhiều !

Quang_Hải · 30/7/12

Plaza đã viết:
EM gửi kèm file trên đó, bác viết giúp em cái nhé. Khoản này em mù tịt! E cảm ơn nhiều !

Xem cách làm trong file

mhung12005 · 30/7/12

Plaza đã viết:
Em có 1 file số exel như sau:

Hình minh họa:
View attachment 86592

Cần tính tổng các con số ở cột A và cho kết quả tương xứng ở cột B
Như ví dụ đang tính dở ở cột B: B2 = 0+9+1+5+1+8+9+6+9+5 = 53)

Em cảm ơn nhiều !

Bạn xem file đính kèm nhé.

thanhtrg · 30/7/12

Có thể dùng công thức :
=MOD(INT(A2/10^0);10)+MOD(INT(A2/10^1);10)+MOD(INT(A2/10^2);10)+MOD(INT(A2/10^3);10)+MOD(INT(A2/10^4);10)+MOD(INT(A2/10^5);10)+MOD(INT(A2/10^6);10)+MOD(INT(A2/10^7);10)+MOD(INT(A2/10^8);10)+MOD(INT(A2/10^9);10)+MOD(INT(A2/10^10);10)

ndu96081631 · 30/7/12

quanghai1969 đã viết:
Dùng hàm tự tạo là khoẻ nhất

PHP:

Public Function tong(cell As Range) As Long Dim i As Byte, kq As Long For i = 1 To Len(cell) kq = kq + Val(Mid(cell, i, 1)) Next tong = kq End Function

Đố biết có cách nào không vòng lập mà vẫn tính được?
Ẹc... Ẹc...

Ba Tê · 30/7/12

ndu96081631 đã viết:
Đố biết có cách nào không vòng lập mà vẫn tính được?
Ẹc... Ẹc...

Đọc câu đố này "nhức đầu" à nghe!

Plaza · 30/7/12

Thank các bác nhiều ạ...tất cả đều rất hay !!!!!

hoangvuluan · 30/7/12

Dùng công thức mảng này xem sao:
=SUM(--MID(A2, ROW(INDIRECT("1:" & LEN(A2))),1))

ndu96081631 · 31/7/12

Ba Tê đã viết:
Đọc câu đố này "nhức đầu" à nghe!

Gợi ý: Hãy dùng CreateObject("VBScript.RegExp") để từng ký tự cách nhau bời 1 khoảng trắng. Xong, TRIM nó 1 phát rồi biến khoảng trắng này thành dấu "+". Cuối cùng Evaluate cái là ra kết quả
Ẹc... Ẹc...

Quang_Hải · 31/7/12

ndu96081631 đã viết:
Gợi ý: Hãy dùng CreateObject("VBScript.RegExp") để từng ký tự cách nhau bời 1 khoảng trắng. Xong, TRIM nó 1 phát rồi biến khoảng trắng này thành dấu "+". Cuối cùng Evaluate cái là ra kết quả
Ẹc... Ẹc...

Em cũng đã nghĩ đến cái này rồi, chỉ có cái này là không dùng vòng lập nhưng tối qua ngồi làm hoài mà không biết làm sao đưa cái khoảng trắng vô giữa các ký tự. Anh làm 1 cái cho em học đi.

ndu96081631 · 31/7/12

quanghai1969 đã viết:
Em cũng đã nghĩ đến cái này rồi, chỉ có cái này là không dùng vòng lập nhưng tối qua ngồi làm hoài mà không biết làm sao đưa cái khoảng trắng vô giữa các ký tự. Anh làm 1 cái cho em học đi.

Đại khái vầy nè:

Mã:

Function SumDigits(ByVal Num As String) As Long
  Dim tmp As String
  tmp = Val(Replace(Num, " ", ""))
  If Len(tmp) Then
    With CreateObject("VBScript.RegExp")
      .Global = True: [COLOR=#ff0000][B].Pattern = ""[/B][/COLOR]
      tmp = Trim(.Replace(tmp, " "))
    End With
    SumDigits = Evaluate(Replace(tmp, " ", "+"))
  End If
End Function

Chổ màu đỏ là chổ đánh dấu để ta thay thế đó
Từ đây ta có thể nghĩ đến bài toán khác: Tách từng ký tự của một chuổi và cho vào mảng, đúng không (bằng cách dùng thêm Split)

Quang_Hải · 31/7/12

ndu96081631 đã viết:
Đại khái vầy nè:

Mã:

Function SumDigits(ByVal Num As String) As Long Dim tmp As String tmp = Val(Replace(Num, " ", "")) If Len(tmp) Then With CreateObject("VBScript.RegExp") .Global = True: [COLOR=#ff0000][B].Pattern = ""[/B][/COLOR] tmp = Trim(.Replace(tmp, " ")) End With SumDigits = Evaluate(Replace(tmp, " ", "+")) End If End Function

Chổ màu đỏ là chổ đánh dấu để ta thay thế đó
Từ đây ta có thể nghĩ đến bài toán khác: Tách từng ký tự của một chuổi và cho vào mảng, đúng không (bằng cách dùng thêm Split)

Thấy anh làm 1 lần thế này rồi thì mới có thể làm theo được. Quá hay.

siwtom · 1/8/12

ndu96081631 đã viết:
Gợi ý: Hãy dùng CreateObject("VBScript.RegExp") để từng ký tự cách nhau bời 1 khoảng trắng. Xong, TRIM nó 1 phát rồi biến khoảng trắng này thành dấu "+". Cuối cùng Evaluate cái là ra kết quả
Ẹc... Ẹc...

Nhấp chuột vào đây để mở rộng...

Đại khái vầy nè:

Mã:

Function SumDigits(ByVal Num As String) As Long Dim tmp As String tmp = Val(Replace(Num, " ", "")) If Len(tmp) Then With CreateObject("VBScript.RegExp") .Global = True: [COLOR=#ff0000][B].Pattern = ""[/B][/COLOR] tmp = Trim(.Replace(tmp, " ")) End With SumDigits = Evaluate(Replace(tmp, " ", "+")) End If End Function

Chổ màu đỏ là chổ đánh dấu để ta thay thế đó
Từ đây ta có thể nghĩ đến bài toán khác: Tách từng ký tự của một chuổi và cho vào mảng, đúng không (bằng cách dùng thêm Split)

Tôi nghĩ là hàm của bạn ndu:
1. Không hỗ trợ các chuỗi dài. vd. nếu ta có chuỗi "12345678987654321" thì nó có tận 17 chữ số nên sau câu lệnh tmp = Val(Replace(Num, " ", "")) ta sẽ có dạng tmp = "1,23456789876543E+16" (tổng cộng chỉ có 15 chữ số thôi). Vậy các thao tác tiếp theo sẽ sai hết.
2. Nếu chuỗi ngắn thì kết quả đúng với chuỗi có ít nhất 2 chữ số - vì vd. nếu chuỗi là "5" thì Evaluate("5") sẽ gây lỗi.
Nhưng code chưa hay lắm. Sao ta phải làm 2 bước Replace - 1 để chèn các dấu cách " ", sau đó lại thay dấu cách bằng dấu "+"? Chèn luôn dấu "+" thôi. Và không có dùng thêm hàm TRIM làm gì.
Mà dùng Pattern là "" không hay lắm. Dùng "\B\B" thì không bị chèn ở đầu và cuối.
Tôi mạn phép sửa code như sau:

Mã:

Function SumDigits(ByVal Num As String) As Long
Dim tmp As String, RegExp As Object
    Set RegExp = CreateObject("VBScript.RegExp")
    With RegExp
        .Global = True
        .pattern = "[^0-9]"
'       xóa tất cả các ký tự không là chữ số. Chỗ này thay cho hàm VAL để phục vụ chuỗi có > 15 chữ số 
        tmp = .Replace(Num, "")
        If Len(tmp) Then
'           dùng "\B\B" để không bị chèn ở đầu và cuối
            .pattern = [COLOR=#ff0000]"\B\B"
[/COLOR]            tmp = .Replace(tmp, "+")
            If Len(tmp) = 1 Then
                SumDigits = tmp
            Else
                SumDigits = Evaluate(tmp)
            End If
        End If
    End With
    Set RegExp = Nothing
End Function

toandiennuoc123 · 10/8/12

siwtom đã viết:
Tôi nghĩ là hàm của bạn ndu:
1. Không hỗ trợ các chuỗi dài. vd. nếu ta có chuỗi "12345678987654321" thì nó có tận 17 chữ số nên sau câu lệnh tmp = Val(Replace(Num, " ", "")) ta sẽ có dạng tmp = "1,23456789876543E+16" (tổng cộng chỉ có 15 chữ số thôi). Vậy các thao tác tiếp theo sẽ sai hết.
2. Nếu chuỗi ngắn thì kết quả đúng với chuỗi có ít nhất 2 chữ số - vì vd. nếu chuỗi là "5" thì Evaluate("5") sẽ gây lỗi.
Nhưng code chưa hay lắm. Sao ta phải làm 2 bước Replace - 1 để chèn các dấu cách " ", sau đó lại thay dấu cách bằng dấu "+"? Chèn luôn dấu "+" thôi. Và không có dùng thêm hàm TRIM làm gì.
Mà dùng Pattern là "" không hay lắm. Dùng "\B\B" thì không bị chèn ở đầu và cuối.
Tôi mạn phép sửa code như sau:

Mã:

Function SumDigits(ByVal Num As String) As Long Dim tmp As String, RegExp As Object Set RegExp = CreateObject("VBScript.RegExp") With RegExp .Global = True .pattern = "[^0-9]" ' xóa tất cả các ký tự không là chữ số. Chỗ này thay cho hàm VAL để phục vụ chuỗi có > 15 chữ số tmp = .Replace(Num, "") If Len(tmp) Then ' dùng "\B\B" để không bị chèn ở đầu và cuối .pattern = [COLOR=#ff0000]"\B\B" [/COLOR] tmp = .Replace(tmp, "+") If Len(tmp) = 1 Then SumDigits = tmp Else SumDigits = Evaluate(tmp) End If End If End With Set RegExp = Nothing End Function

Sao code này không chạy được nhỉ ?

TrungChinhs · 10/8/12

toandiennuoc123 đã viết:
Sao code này không chạy được nhỉ ?

Công thức tại B2 là =SumDigits(A2)

toandiennuoc123 · 10/8/12

Mã:

Function SumDigits(ByVal Num As String) As Long
Dim tmp As String, RegExp As Object
    Set RegExp = CreateObject("VBScript.RegExp")
    With RegExp
        .Global = True
        .pattern = "[^0-9]"
'       xóa tất cả các ký tự không là chữ số. Chỗ này thay cho hàm VAL để phục vụ chuỗi có > 15 chữ số 
        tmp = .Replace(Num, "")
        If Len(tmp) Then
'           dùng "\B\B" để không bị chèn ở đầu và cuối
            .pattern = [COLOR=#ff0000]"\B\B"
[/COLOR]            tmp = .Replace(tmp, "+")
            If Len(tmp) = 1 Then
                SumDigits = tmp
            Else
                SumDigits = Evaluate(tmp)
            End If
        End If
    End With
    Set RegExp = Nothing
End Function

[/QUOTE]
Tôitưởng code này tính được >15 số ?. >15 số thì chạy sai hết

ndu96081631 · 10/8/12

toandiennuoc123 đã viết:

Mã:

Function SumDigits(ByVal Num As String) As Long
Dim tmp As String, RegExp As Object
    Set RegExp = CreateObject("VBScript.RegExp")
    With RegExp
        .Global = True
        .pattern = "[^0-9]"
'       xóa tất cả các ký tự không là chữ số. Chỗ này thay cho hàm VAL để phục vụ chuỗi có > 15 chữ số 
        tmp = .Replace(Num, "")
        If Len(tmp) Then
'           dùng "\B\B" để không bị chèn ở đầu và cuối
            .pattern = [COLOR=#ff0000]"\B\B"
[/COLOR]            tmp = .Replace(tmp, "+")
            If Len(tmp) = 1 Then
                SumDigits = tmp
            Else
                SumDigits = Evaluate(tmp)
            End If
        End If
    End With
    Set RegExp = Nothing
End Function

Tôi tưởng code này tính được >15 số ?. >15 số thì chạy sai hết

Bạn thử sao mà nói SAI vậy?

toandiennuoc123 · 10/8/12

ndu96081631 đã viết:
Bạn thử sao mà nói SAI vậy?

Mời thầy xem hộ em với, không biết là sai ở đâu,? thầy xem cái file thứ 2.

Em cần giúp đỡ: Cách tính tổng các con số trong dãy số

Thành viên mới

File đính kèm

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

File đính kèm

Thành viên chậm chạm

File đính kèm

Thành viên hoạt động

Huyền thoại GPE

Cạo Rồi Khỏi Gội

Thành viên mới

Thành viên tích cực

Huyền thoại GPE

Thành viên gạo cội

Huyền thoại GPE

Thành viên gạo cội

Thành viên gắn bó

Thành viên thường trực

Thành viên tích cực

Thành viên thường trực

Huyền thoại GPE

Thành viên thường trực

File đính kèm

Đếm ngược thời gian