Chỉnh lại Marco đổi số thành chữ!

[trinhnt1308]

Mình load chương trình đổi số thành chữ trên diễn đàn về nhưng câu chữ không đúng văn mà mình muốn.
Ví dụ: 1.236.000 thì chương trình dịch ra là: "Một triệu hai trăm ba mươi sáu ngàn đồng"
Giờ mình muốn dịch thành: "Một triệu, hai trăm ba mươi sáu nghìn đồng chẵn" thì có sửa được không?Gởi kèm file chương trình đổi số thành chữ mà mình load trên diễn đàn!
View attachment doisothanhchu.zip

 

[ndu96081631]

Mình load chương trình đổi số thành chữ trên diễn đàn về nhưng câu chữ không đúng văn mà mình muốn.
Ví dụ: 1.236.000 thì chương trình dịch ra là: "Một triệu hai trăm ba mươi sáu ngàn đồng"
Giờ mình muốn dịch thành: "Một triệu, hai trăm ba mươi sáu nghìn đồng chẵn" thì có sửa được không?Gởi kèm file chương trình đổi số thành chữ mà mình load trên diễn đàn!
View attachment 17031

Bạn cứ để nguyên thế rồi dùng hàm SUBSTITUTE chuyển chử "ngàn" thành "nghìn" cũng có sao đâu, cần gì sửa code?

 

[cadafi]

Bạn cứ để nguyên thế rồi dùng hàm SUBSTITUTE chuyển chử "ngàn" thành "nghìn" cũng có sao đâu, cần gì sửa code?

Cụ thể: Bạn có thể thi triển hàm substitute như sau:

=Substitute(VND(1000),"ngàn","nghìn") ----> Một nghìn đồng chẵn

 

[trinhnt1308]

Copy luôn công thức của bạn, kết quả vẫn thế không thay đổi.ca_dafi xem lại hộ mình với.

 

[ptm0412]

Khi gõ công thức của anh Cadafi, bạn phải gõ bằng bộ mã ABC theo font của ô chứ. bạn gõ sao mà trong công thức đọc không ra như vầy mới đúng
=SUBSTITUTE(VND(A1),"ngµn","ngh×n")

 

[trinhnt1308]

Khi gõ công thức của anh Cadafi, bạn phải gõ bằng bộ mã ABC theo font của ô chứ. bạn gõ sao mà trong công thức đọc không ra như vầy mới đúng
=SUBSTITUTE(VND(A1),"ngµn","ngh×n")

ok. Mình làm được rồi, thx bạn nhiều.