Đọc số bằng chữ dùng Name

[Decepticon]

Siêu hay chỉ tiếc là ko dùng được. Đã ai tìm được cách thêm dấu phẩu "," chưa ạ? Mình thử sửa mà lỗi tùm lum

Bài đã được tự động gộp: 24/6/24

File này đọc số rất hay, nhưng còn một lỗi nhỏ, ai biết thì giúp dùm, Cám ơn mọi người. Ví dụ số: 102.002.002.005
File này đọc : Một trăm lẻ hai tỷ, hai triệu, không trăm lẻ hai ngàn, không trăm lẻ năm đồng
-> Mình muốn đọc là : Một trăm lẻ hai tỷ, không trăm lẻ hai triệu, không trăm lẻ hai ngàn, không trăm lẻ năm đồng

 

[vanle33]

@Decepticon : Bạn thử sử dụng công thức =IF(ABS(J253)>=10^15;"###";IF(J253<0;"Âm ";MID("KMHBBNSBTC";LEFT(ROUND(J253;0))+1;1))&MID(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RIGHT(TEXT(J253;SUBSTITUTE("0\*0\=0\/0\*0;0\*0\=0\/0\*0";0;"0\-0\+0"));LEN(ROUND(ABS(J253);0))*2-1);"0-0+0*";"");"0-0+0/";"");"0-0+0";"");"0+0";"");"0+";" lẻ");"+0";"+");"+5";"+ lăm");"1+";" mười");"+1";"+ mốt");"_=";"_");0;" không");1;" một");2;" hai");3;" ba");4;" bốn");5;" năm");6;" sáu");7;" bảy");8;" tám");9;" chín");"+";" mươi");"-";" trăm");"*";" nghìn,");"/";" triệu,");",=";"=");"=";" tỷ,")&" ";", ";""));2-(J253<0);999))

Với J253 là cell chứa số.

Với cell A50 thì ra kết quả "Bốn trăm hai mươi lăm triệu, ba trăm năm mươi hai nghìn, ba trăm năm mươi hai"

 

[huuthang_bd]

@Decepticon : Bạn thử sử dụng công thức =IF(ABS(J253)>=10^15;"###";IF(J253<0;"Âm ";MID("KMHBBNSBTC";LEFT(ROUND(J253;0))+1;1))&MID(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RIGHT(TEXT(J253;SUBSTITUTE("0\*0\=0\/0\*0;0\*0\=0\/0\*0";0;"0\-0\+0"));LEN(ROUND(ABS(J253);0))*2-1);"0-0+0*";"");"0-0+0/";"");"0-0+0";"");"0+0";"");"0+";" lẻ");"+0";"+");"+5";"+ lăm");"1+";" mười");"+1";"+ mốt");"_=";"_");0;" không");1;" một");2;" hai");3;" ba");4;" bốn");5;" năm");6;" sáu");7;" bảy");8;" tám");9;" chín");"+";" mươi");"-";" trăm");"*";" nghìn,");"/";" triệu,");",=";"=");"=";" tỷ,")&" ";", ";""));2-(J253<0);999))

Với J253 là cell chứa số.

Với cell A50 thì ra kết quả "Bốn trăm hai mươi lăm triệu, ba trăm năm mươi hai nghìn, ba trăm năm mươi hai"

Tác giả chia sẻ không tính toán gì nhưng bạn nên trích dẫn nguồn thì hay hơn. Ít nhất là trong phạm vi diễn đàn này.

 

[vanle33]

@huuthang_bd : Công thức ở #102 tôi gửi cho người khác chứ không trong ở file gốc của tác giả. Mà bây giờ không nhớ tác giả là ai. Công thức sử dụng hiệu quả phù hợp với yêu cầu người sử dụng là được bạn nhỉ.

 

[huhumalu]

@huuthang_bd : Công thức ở #102 tôi gửi cho người khác chứ không trong ở file gốc của tác giả. Mà bây giờ không nhớ tác giả là ai. Công thức sử dụng hiệu quả phù hợp với yêu cầu người sử dụng là được bạn nhỉ.

Đây nè bạn: Công thức chuyển số thành chữ cho Excel 2007

 

[Decepticon]

Đây nè bạn: Công thức chuyển số thành chữ cho Excel 2007

Thanks bạn. Công thức ngon quá, chạy nhanh hơn pp đọc bằng name nhiều. Không biết có thể tạo name viết tắt công thức như của bác @hoangdanh282vn không bạn?