đọc số ra chữ

[tvl297]

giúp mình thêm đoạn code vào sheep này

 

[dhn46]

1. Đọc số ra chữ có nhiều trong diễn đàn rồi, bạn tìm là thấy
2. Thêm chữ "đồng chẵn phía sau thì bạn fomat cell > custom > gõ kiểu sau: @" đồng chẵn" > ok

 

[tvl297]

kai đấy mh biết lâu rùi. hoặc như thế này cũng được "=DocSoUni(D14)&" đồng chẵn"". nhưng mh muốn chạy luôn trên VBA.

 

[nghiaphuc]

kai đấy mh biết lâu rùi. hoặc như thế này cũng được "=DocSoUni(D14)&" đồng chẵn"". nhưng mh muốn chạy luôn trên VBA.

Bạn chỉ cần thêm câu lệnh này trước dòng End Function:

If DocSoUni <> "" Then DocSoUni = DocSoUni & " " & ChrW(273) & ChrW(7891) & "ng ch" & ChrW(7861) & "n"

 

[tvl297]

thank you! đúng thứ mh đang cần