Nhờ các bác giúp em addin chuyển đổi số tấn thành chữ

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài

hâkhnh

Thành viên mới
Tham gia
16/7/09
Bài viết
3
Được thích
0
Em đã xem trong diễn đàn có bác hướng dẫn chuyển đổi số tấn thành chữ, nhưng không thực hiện được. Bác nào có addon hoặc công thức hướng dẫn giúp em.
Số của em muốn chuyển đổi sạng như sau
Ví dụ Em có số: 1.646,23 tấn thì em muốn ghi là Một nghìn, sáu trăm bốn mươi sáu, phẩy hai mươi ba tấn
Rất mong bác nào có thể giúp được em
Em xin cảm ơn
 
Dưới đây là một hàm UDF để đọc số thành chữ

=SpellNumVN("1.646,23 tấn",snNumberIndexs(0),snSpellPercent(),snReplaceNumbers(),snCaseThousands())

Nếu bạn có một mảng số, chỉ cần nhập mảng cần đọc thành chữ. ví dụ nhập A1:A100:
=SpellNumVN(A1:A100,snNumberIndexs(0),snSpellPercent(),snReplaceNumbers(),snCaseThousands())

Bạn tham khảo thêm tại bài viết:
 

File đính kèm

  • SpellNumber.xlsm
    142.2 KB · Đọc: 6
@hâkhnh bạn tải lại tệp. Mình đã sửa một lỗi.
 
Bạn cần chép mã vào tệp của bạn mới có thể làm được.
Mở VBA với phím ALT+F11, chọn dự án của bạn, chuột phải để tạo một Module để chép mã, hoặc kéo module ở tệp tải về vào dự án của bạn.
Và lưu tệp với xlsm hoặc xlsb
 
Nếu bạn dùng Bluesofts AccHelper thì công thức như sau:
=SUBSTITUTE( VND(F3,," ","tấn",,TRUE), " và", ", phẩy")
(F3 trong công thức là tham chiếu chứa số cần đọc)
 
Web KT

Bài viết mới nhất

Back
Top Bottom