Đổi số thành chữ không cần Macro

[148btx]

Đây là cách tôi và các đồng nghiệp vẫn thường đổi số thành chữ chỉ dùng các Fuctions trong Excel.

Vũ Văn Cương
CONSTREXIM

 

[148btx]

Thành thật xin lỗi bạn tranhoavan và các bạn khác. Bọn tôi viết cái NumberToWord này cũng mới vài tháng nên không để ý kỹ vì trong công việc hàng ngày không sử dụng đến số tiền nhỏ như vậy (tối thiểu từ tiền nghìn trở lên). Hôm nay tôi đã sửa lại rồi, bạn có thể tải lại nhé. Nếu thấy có gì không đúng, tôi sẽ sửa chữa tiếp.

 

[Nguyễn Duy Tuân]

Phải công nhận công thức bạn và đồng nghiệp của mình lập rất sáng tạo, tôi thấy trong các công thức lập số thành chữ thì của bạn là rõ ràng và ngắn gọn nhất.
Khi test thử tôi phát hiện ra các lỗi bạn sửa tiếp nhé
- Thiếu chữ "linh"
VD: 205 của bạn đọc là "Hai trăm năm đồng" bất kỳ số 0 nào đứng trước một con số >0,<10 đều bị vậy. Nếu đúng thì đọc là "Hai trăm linh năm đồng"
- Thiếu chữ "tư"
VD 254 của bạn đọc là "Hai trăm năm mươi bốn", nếu mềm hơn thì đọc là "Hai trăm năm tư đồng".
- Lỗi chính tả từ "năm" - Thiếu từ "lăm"
VD: 255 của bạn đọc là "Hai trăm năm mươi năm đồng", đúng phải là "Hai trăm năm mươi lăm đồng".
- Thiếu từ "mốt"
VD: 241 của bạn đọc là "Hai trăm bốn mươi một đồng", nên đọc là "Hai trăm bốn mươi mốt đồng"

Tóm lại bạn chú ý sự biến hóa của các con số: 0, 1, 4, 5
0: không, mươi
1: một, mốt
4: bốn, tư
5: năm, lăm
Các từ phụ trợ: linh, lẻ, chẵn
Để số tiền được động không nên áp từ "đồng" ngay mà xét xem nếu có $, có UR,...

Những lỗi trên chắc bạn chưa để soát hết tình huống. Làm cho mình và làm cho những người khác dùng là hai việc rất khác nhau. Chúc bạn sớm hoàn thiện nó.

 

[148btx]

Chuyển đổi số sang chữ tiếng Anh

Cách chuyển đổi trên của tôi quả thực chưa hoàn chỉnh lắm. Tuy nhiên đây là chương trình mở, các bạn có thể sửa theo ý mình và cùng nhau chia sẻ. Nếu có thời gian tôi sẽ xem lại.
Nhân đây tôi Upload cái File chuyển đổi số sang chữ bằng tiếng Anh để các bạn tham khảo.

 

[SA_DQ]

2úa hay, nhỉ?!

/(/hưng để làm được như TuanVNUNI chắc phải xài macro thôi;
Mình nghĩ ra cách làm ba rọi như sau:
Chỉ viết hàm chuyển đổi cụm 3 số thôi (VD: Function Baso( So ) As String )
sau đó trong ô hiển thị dùng phép cộng chuỗi, không biết có được không ta?
VD: tại ô B3 ta nhập: =Baso(210) & " nghìn " & Baso("A5") & "."
KQ: nếu ô A5 đang là 105 thì tại B3 sẽ có dòng:
hai trăm mười nghìn một trăm lẽ năm.

 

[giang409]

khó hiểu quá, làm thì đơn giản đấy nhưng khi làm trên văn bản thì lâu quá. Có ai có cách khác đơn giản hơn nữa không? Thank's

 

[ongtrungducmx25]

bạn muốn đổi như thế nào đây không thích kiểu trên thì có thể đổi ra băng VBA nhé có được không làm bằng tay thì cũng hay nhưng cũng bất lợi lắm nhé vì nó chiếm nhiều chỗ trên bảng tính

 

[Tiger62]

Đổi số thành chữ

Ngày xưa sau khi dùng VBA bị ATV tiêu diệt, tôi cũng đã dùng một giải pháp như Bạn 148BTX.

 

[phamduylong]

Tôi không bao giờ nghĩ đọc số tiếng Việt lại được viết bằng hàm Excel ! Bạn 148btx đã làm được điều này, hoan hô bạn.
Nhưng vận dụng nó vào thực tiển, tôi thấy khó khả thi vì:
- Muốn cho công thức tại ô B7 đọc được số tại ô B6, B7 cần lấy kết quả từ một loạt công thức tại các ô phụ (trong Convert number into words tôi thấy có trên 60 ô phụ có công thức phục vụ cho B7), chỉ cần 1 ô phụ công thức sai hoặc bị xóa thì B7 cho kết quả sai ngay.
- Chép công thức từ ô B6 sheet Convert number into words sang sheet khác không đọc được. Mà điều này rất cần trong thực tế.
Thân!

 

[yeudoi]

Việc dùng công thức để dịch chữ mình đã thấy file kế toán của một bạn đã làm cũng rất hay không biết có bác nào đã xem chưa (hình như có trên diễn đàn). Việc sử dụng công thức đối với các bạn không muốn dùng VBA. Còn dễ bị xóa thì các bạn nên đặt cột phụ vào một sheet và ẩn nó đi.

 

[quifish]

Mình có 1 file .XLA chuyển số thành chữ nhưng không bít xử dụng các bác chỉ giáo dùm

 

[Po_Pikachu]

Phải rồi, vì addins TienVN.rar của bạn quifish đâu có cái gì trong đó đâu! Trống trơn à. @To quifish: Bạn gửi lại file đi. Nếu bạn có sử dụng BKav mình khuyên bạn tắt chức năng "Xóa tất cả Macro" đi! Vì nó sẽ làm mất hết các code của Excel đó! Thân.

 

[nhutmp]

Phải công nhận công thức bạn và đồng nghiệp của mình lập rất sáng tạo, tôi thấy trong các công thức lập số thành chữ thì của bạn là rõ ràng và ngắn gọn nhất.
Khi test thử tôi phát hiện ra các lỗi bạn sửa tiếp nhé
- Thiếu chữ "linh"
VD: 205 của bạn đọc là "Hai trăm năm đồng" bất kỳ số 0 nào đứng trước một con số >0,<10 đều bị vậy. Nếu đúng thì đọc là "Hai trăm linh năm đồng"
- Thiếu chữ "tư"
VD 254 của bạn đọc là "Hai trăm năm mươi bốn", nếu mềm hơn thì đọc là "Hai trăm năm tư đồng".
- Lỗi chính tả từ "năm" - Thiếu từ "lăm"
VD: 255 của bạn đọc là "Hai trăm năm mươi năm đồng", đúng phải là "Hai trăm năm mươi lăm đồng".
- Thiếu từ "mốt"
VD: 241 của bạn đọc là "Hai trăm bốn mươi một đồng", nên đọc là "Hai trăm bốn mươi mốt đồng"

Tóm lại bạn chú ý sự biến hóa của các con số: 0, 1, 4, 5
0: không, mươi
1: một, mốt
4: bốn, tư
5: năm, lăm
Các từ phụ trợ: linh, lẻ, chẵn
Để số tiền được động không nên áp từ "đồng" ngay mà xét xem nếu có $, có UR,...

Những lỗi trên chắc bạn chưa để soát hết tình huống. Làm cho mình và làm cho những người khác dùng là hai việc rất khác nhau. Chúc bạn sớm hoàn thiện nó.

Mình thấy file này rất hay vì chỉ dùng công thức của excel, không phải sử dụng các add in hoặc VBA nhưng hiện tại vẫn chưa có bản hoàn chỉnh, Các bạn có thể chỉnh lại file này để mọi người có thể sử dụng cho đúng. cám ơn nhiều

 

[ndu96081631]

Mình thấy file này rất hay vì chỉ dùng công thức của excel, không phải sử dụng các add in hoặc VBA nhưng hiện tại vẫn chưa có bản hoàn chỉnh, Các bạn có thể chỉnh lại file này để mọi người có thể sử dụng cho đúng. cám ơn nhiều

Nếu muốn dùng công thức thì mời bạn xem bài này:
http://www.giaiphapexcel.com/forum/showthread.php?t=10557
Đấy mới gọi là "ĐẠI SÁT THỦ"
Ec... Ẹc...