Xin trợ giúp: viết hàm tính tổng của 1 ô chứa xâu "4 6 2 6 8 9 1"

[tien9238.kk]

Mình là người mới lại chưa biết gì về Code VBA, lại đang cần gấp quá, xin các anh chị giúp mình với ạ !
Em xin mô ta lại là em có 1 cell chứa xâu chứa các số tự nhiên như sau : "4 6 2 6 8 9 1". Chuỗi có thể có nhiều hơn các số tự nhiên
Xin giúp em viết code để tính tổng các số trong chuỗi đó ạ

Em xin cám ơn và xin học hỏi !

 

[vanle33]

Mình là người mới lại chưa biết gì về Code VBA, lại đang cần gấp quá, xin các anh chị giúp mình với ạ !
Em xin mô ta lại là em có 1 cell chứa xâu chứa các số tự nhiên như sau : "4 6 2 6 8 9 1". Chuỗi có thể có nhiều hơn các số tự nhiên
Xin giúp em viết code để tính tổng các số trong chuỗi đó ạ

Em xin cám ơn và xin học hỏi !

Các số trong cell của bạn đều cách nhau bởi khoảng trắng (Space) ah?

 

[tien9238.kk]

dạ vâng anh Vanle33 ạ..
Cám ơn anh quan tâm giúp đỡ ạ

 

[vanle33]

dạ vâng anh Vanle33 ạ..
Cám ơn anh quan tâm giúp đỡ ạ

Đúng vậy thì dùng Data/Text to columns/phần Delimiters tích chọn vào Space/Next/Finish
Không có dữ liệu nên tôi hướng dẫn bạn làm như vậy.

 

[VetMini]

Ví dụ muốn làm việc ở sheet1, và cell đó là A1.

Đặt một cái name tên là Tong; worksheet name được rồi, không cần phải workbook.
Trong refer to, đặt biểu thức: =EVALUATE(SUBSTITUTE(TRIM(Sheet1!$A1), " ", "+"))
Nơi muốn tính tổng, đặt công thức =Tong
Hết

 

[nghiaphuc]

Mình là người mới lại chưa biết gì về Code VBA, lại đang cần gấp quá, xin các anh chị giúp mình với ạ !
Em xin mô ta lại là em có 1 cell chứa xâu chứa các số tự nhiên như sau : "4 6 2 6 8 9 1". Chuỗi có thể có nhiều hơn các số tự nhiên
Xin giúp em viết code để tính tổng các số trong chuỗi đó ạ

Em xin cám ơn và xin học hỏi !

Giả sử chuỗi của bạn nằm ở ô A1. Bạn sử dụng code sau để cộng:
[GPECODE=vb]Sub Test()
[B1] = Evaluate("=" & Replace(WorksheetFunction.Trim([A1]), " ", "+"))
End Sub[/GPECODE]
Tổng quát hơn thì bạn tạo hàm Tong như sau:
[GPECODE=vb]Function Tong(S As String) As Long
Tong = Evaluate("=" & Replace(WorksheetFunction.Trim(S), " ", "+"))
End Function[/GPECODE]
Sau đó, tại ô B1, bạn gõ công thức =Tong(A1)

 

[ndu96081631]

Nhớ bài toán này người ta bàn mấy chục lần trên diễn đàn rồi
Lục tìm trong máy tính, thấy có hàm này:

Function SumString(ByVal Text As String)
  With CreateObject("VBScript.RegExp")
    .Global = True: .Pattern = "\D|\B"
    SumString = Evaluate(.Replace(Text, "+") & "+0")
  End With
End Function

Chắc xài được
(cứ thấy số là.. mua)

 

[tien9238.kk]

Dạ vâng, xin cám ơn các anh ạ.
Em sẽ thử VÀ ô kê lắm.
Một lần nữa em xin cám ơn nhiều.
Em cũng đoán bài toán này có trong nhiều bài rồi, nhưng vì gấp quá em đành xin các anh chỉ tận tay luôn ạ