Tính tổng 1 chuỗi số đươc ngăn cách bởi ký tự đăc biệt (2 người xem)

[Chien.bui]

Hi All , mình có 1 chuỗi ký tự đươc ngăn cách bởi ký tự đăc biệt ";", hiện mình muốn tình tổng chuỗi số này thì làm sao đây các bạn
VD : 122;235;215;215;255;656 <=>122+235+215+215+255+656 = 1,698 , Cảm ơn All

 

[snow25]

Hi All , mình có 1 chuỗi ký tự đươc ngăn cách bởi ký tự đăc biệt ";", hiện mình muốn tình tổng chuỗi số này thì làm sao đây các bạn
VD : 122;235;215;215;255;656 <=>122+235+215+215+255+656 = 1,698 , Cảm ơn All

Tách nó ra rồi cộng lại là được à.Mà dùng VBA không bạn.

 

[VetMini]

Dùng Evaluate.
Và substitute ";" với "+"
Tôi chỉ mách đến thế thôi. Tôi không nói Tây bồi.

 

[hocexcel_1991]

Hi All , mình có 1 chuỗi ký tự đươc ngăn cách bởi ký tự đăc biệt ";", hiện mình muốn tình tổng chuỗi số này thì làm sao đây các bạn
VD : 122;235;215;215;255;656 <=>122+235+215+215+255+656 = 1,698 , Cảm ơn All

=SUMPRODUCT(--TRIM(MID(SUBSTITUTE(";"&A1,";",REPT(" ",200)),ROW(INDIRECT("1:"&1+LEN(A1)-LEN(SUBSTITUTE(A1,";",""))))*200,200)))

 

[Chien.bui]

chính xác là công thức mình cần, cám ơn hocexcel_1991 nhiều

Bài đã được tự động gộp: 10/4/20

Tách nó ra rồi cộng lại là được à.Mà dùng VBA không bạn.

không dung VBA nha bạn , hocexcel_1991 trả lời giúp tôi rồi , cám ơn bạn

 

[VetMini]

Tách nó ra rồi cộng lại là được à.Mà dùng VBA không bạn.

Bài này theo bạn thì dùng VBA ra sao?

(thớt tuyên bố khong cần, nhưng mình cứ trao đổi với nhau. Diễn đàn trao đổi mà)

 

[VetMini]

Tự chảnh:

1. Xảo thuật thường dùng của dân Excel căn bản (lưu ý: truyền thống có nghĩa là bái các tay viết cốt bay bướm)
Lập một hàm wrapper để có thể gọi Evaluate từ worksheet
Public Function WSEvaluateDbl(byVal expression As String) As Double
WSEvaluateDbl = Evaluate(expression)
End Function

Có hàm này rồi thì giải bài toán kia chỉ việc:
=WSEvaluateDbl(SUBSTITUTE(A1, ";", "+")
Muốn cộng trừ nhân chia gì cứ thoải mái.
Điều bất lợi chỉ là nếu có lỗi thì nó chỉ #NA chứ chẳng có kiểu lỗi khác như worksheet function thường.

2. Kỹ thuật thường dùng của dân Excel căn bản (lưu ý: đây là kỹ thuật, không phải xảo thuật như trên)
Kỹ thuật quản lý code:
- chép hàm trên vào một cái Module.
- đặt tên Module này là ThuVienTu (thư viện tư)
- export module ra một file bas
-- file này tự động sẽ có dòng đầu tiên cho biết tên module

Về sau này, khi import file bas này về Project nào đó, Module sẽ phục hồi đúng tên đã được chọn.
(tên của Module quan trọng khi project có nhiều Sub/Functions/Global Vars trùng tên)

Cứ mỗi lần cần nhét thêm một hàm thường dùng nào đó thì import file này vào, chèn cốt hàm, và export ra trở lại.
(ở đầu Module, ghi một dòng chú thích với ngày tháng của phiên bản)
' 10/04/2020: thêm hàm WSEvaluateDbl
' 04/04/2020: chỉnh code hàm CaThangTu. Chi tiết sửa...
' 01/04/2020: thêm code hàm CaThangTu

3. Kỹ thuật xưa là nhét hàm vào Personal.xlsb

Chốt: khi lập thư viện riêng thì Evaluate là một trong những hàm không thể thiếu.