Tính tổng 1 chuỗi số đươc ngăn cách bởi ký tự đăc biệt
- Thread starter Chien.bui
- Ngày gửi
snow25
Thành viên gạo cội
- Tham gia
- 24/7/18
- Bài viết
- 3,485
- Được thích
- 3,508
- Donate (Momo)
- Giới tính
- Nam
Tách nó ra rồi cộng lại là được à.Mà dùng VBA không bạn.
hocexcel_1991
Bắt đầu học Excel
- Tham gia
- 9/7/18
- Bài viết
- 734
- Được thích
- 1,266
Mã:
=SUMPRODUCT(--TRIM(MID(SUBSTITUTE(";"&A1,";",REPT(" ",200)),ROW(INDIRECT("1:"&1+LEN(A1)-LEN(SUBSTITUTE(A1,";",""))))*200,200)))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:
không dung VBA nha bạn , hocexcel_1991 trả lời giúp tôi rồi , cám ơn bạn
Lần chỉnh sửa cuối:
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à)
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.
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.
