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

Liên hệ QC
cái này có dùng thêm code không bác "anhtuan 1066", sao mình làm trên file mới không được???
 
Cái này có dùng thêm Code không bác "anhtuan 1066", sao mình làm trên file mới không chạy như của bác??
 
cái nầy thì hay nhưng đọc không có dấu (,) gì hết bạn ơi
 
File USD này cũng chung số phận với VND.. nghĩa là ko chạy dc trên Excel2007
Tôi xin lưu ý rằng tôi dùng Portable_Office2007... nhưng ai đã cài đặt bộ Office2007 này đàng hoàng xin thử xem thế nào nhé

Đúng như Thầy nói. File đọc số bằng Names này con đã test trên phiên bản Office 207 ở công ty (có bản quyền _ đàng hoàng) thì không thấy vấn đề gì. Nhưng ở nhà phiên bản crack thì treo luôn.

Hiện Thầy đang dùng file nào thế ạ! Nếu có Thầy Up lên cho con xin nhé! Cả file sử dụng VBA + File sử dụng Name!
Trên diễn đàn giờ nhiều File quá con không biết nên chọn file nào?
Mong thầy giúp đỡ!
Cảm ơn Thầy!
 
em tò mò quá anh HOÀNG DANH282 ơi , anh phai đặt code vào chỗ nào thi khi nhập =VND nó mới hiện chứ???
 
cho mình hỏi. mình đã tải xuống rồi nhưng cài công thức cho file excel khác thi bi báo lỗi. còn áp dụng trong file mình tải xuống khi mở rộng ra các sheet vẫn được. không biết mình sai ở điểm nào.
 
cho mình hỏi. mình đã tải xuống rồi nhưng cài công thức cho file excel khác thi bi báo lỗi. còn áp dụng trong file mình tải xuống khi mở rộng ra các sheet vẫn được. không biết mình sai ở điểm nào.
Bạn mở file của bạn và file vừa tải xuống lên cùng lúc, vào file đọc số, nhấn chuột phải vào tên sheet doc so, chọn Move or Coppy > To book: bạn chọn file của bạn (mục đích: chuyển Name qua sheet của bạn). Đứng tại ô cần ra chữ, nhấn Ctrl+F3, sửa Name so : =TRIM(ô chứa số) > Enter > Colse. Gõ công thức tại ô cần ra chữ: =VND
 
Mình gửi các bạn file đọc số bằng chữ dùng Name.Ưu điểm của việc dùng Name so với công thức thường là có thể thao tác cùng một lúc cho nhiều cell khác nhau trong cùng một sheet, và chạy nhanh không kèm VBA.Các bạn xem file đã bổ sung ở bài #12 và bài #39
Bạn ơi,Mình đang dùng excel 2013 mình muốn đổi số thành chữ. Khi mình dùng add-im của bạn thì rất ok trong việc đổi số tiền việt nam đồng, nhưng khi mình muốn đổi sang đô la thì như thế nào? Bạn có thể giúp mình về vấn đề này không? VD: 1.234USD--> một ngàn hai trăm ba mươi bốn đô la. Cảm ơn bạn rất nhiều
 
Sao mình sử dụng công thức báo #NAME# vậy nhỉ?
 
Minh mo ra thi chi thay dong nao cung hien so khong dung thoi ah. Tro giup minh voi
 
Nhung ko duoc mo file chi thay hien so khong dung thoi ah. Có thể chỉ rõ hơn cho mình đc ko
 
[URL="http://www.giaiphapexcel.com/forum/member.php?29993-hoangdanh282vn"]hoangdanh282vn [/URL]cho mình hỏi về vài điều trong đọc số thành chữ với

- GetRC=SUBSTITUTE(REFTEXT(!$A$1);1;"") mình không hiểu hàm REFTEXT(!$A$1) này? trong excel k thấy hàm REFTEXT và tại sao lại có dấu ! ở công thức GetRow0=ROW(!$A$1) cũng có ?
- VT=GET.CELL(6;INDIRECT(GetRC;FALSE)) sao lại có GET.CELL vậy nhỉ ?
- Và cả hàm GET.NAME nữa


 
hoangdanh282vncho mình hỏi về vài điều trong đọc số thành chữ với

- GetRC=SUBSTITUTE(REFTEXT(!$A$1);1;"") mình không hiểu hàm REFTEXT(!$A$1) này? trong excel k thấy hàm REFTEXT và tại sao lại có dấu ! ở công thức GetRow0=ROW(!$A$1) cũng có ?
- VT=GET.CELL(6;INDIRECT(GetRC;FALSE)) sao lại có GET.CELL vậy nhỉ ?
- Và cả hàm GET.NAME nữa
Bạn gõ từ khóa Excel 4.0 Marco hoặc Marco4.0 để tìm hiểu hoặc vào đây tham khảo:
Hiện nay hiếm thấy ai sử dụng Marco4.0
 
Xin lỗi mình gửi lại file này mới đúng
--=0
File này đọc 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
 
Lần chỉnh sửa cuối:
Xin lỗi mình gửi lại file này mới đúng
--=0
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
 

File đính kèm

  • vnd.xla
    33.5 KB · Đọc: 42
Lần chỉnh sửa cuối:
iu điểm quá rõ ràng của cách này là
có thể bổ sung hàm chuyển đối số thành chữ vào file excel của ngừi iu qua dropbox, ko cần kêu nàng bật teamview để cài vntool hay vba gì sất
làm nàng bất ngờ chơi :))

quá đỉnh !
 
Cám ơn bạn.
Đúng là file đọc số VND mình quên đưa dấu ","vào trong câu. Nhưng trong file USD thì đã có. Nếu bạn quan tâm thì mình sẽ chỉnh tiếp phần này.

To Bác Anhtuan1066 : Bác cứ đưa em lên mây thì e rằng khi xuống chắc là hơi khó khăn đây. Những gì em có được là nhờ học hỏi ở Bác và các Bạn khác trên diễn đàn.Cám ơn Bác và các bạn nhiều lắm.
Mong bác sớm ra bản VND có đưa dấu "," ngăn cách vào câu đọc. Thanks
 

Dưới đây nhé các bác, ô H8 là ô cần đọc nhé.

=TRIM(IF(OR(LEN(FLOOR(H8,1))=13,FLOOR(H8,1)<=0),"Out of range",PROPER(SUBSTITUTE(CONCATENATE(CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),1,1)+1,"","một trăm ","hai trăm ","ba trăm ","bốn trăm ","năm trăm ","sáu trăm ","bảy trăm ","tám trăm ","chín trăm "),CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),2,1)+1,"",CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),3,1)+1,"mười","mười một","mười hai","ba mươi","bốn mươi","lăm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),"hai mươi","ba mươi","bốn mươi","lăm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(H8),REPT(0,12)),2,1))>1,CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),3,1)+1,""," một"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),IF(VALUE(MID(TEXT(INT(H8),REPT(0,12)),2,1))=0,CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),3,1)+1,""," một"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),"")),IF(H8>=10^9," tỷ ",""),CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),4,1)+1,"","một trăm ","hai trăm ","ba trăm ","bốn trăm ","năm trăm ","sáu trăm ","bảy trăm ","tám trăm ","chín trăm "),CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),5,1)+1,"",CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),6,1)+1,"mười","mười một","mười hai","ba mươi","bốn mươi","lăm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),"hai mươi","ba mươi","bốn mươi","lăm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(H8),REPT(0,12)),5,1))>1,CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),6,1)+1,""," một"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),IF(VALUE(MID(TEXT(INT(H8),REPT(0,12)),5,1))=0,CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),6,1)+1,""," một"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),"")),IF(VALUE(MID(TEXT(INT(H8),REPT(0,12)),4,3))>0," triệu ",""),CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),7,1)+1,"","một trăm ","hai trăm ","ba trăm ","bốn trăm ","năm trăm ","sáu trăm ","bảy trăm ","tám trăm ","chín trăm "),CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),8,1)+1,"",CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),9,1)+1,"mười","mười một","mười hai","ba mươi","bốn mươi","lăm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),"hai mươi","ba mươi","bốn mươi","lăm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(H8),REPT(0,12)),8,1))>1,CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),9,1)+1,""," một"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),IF(VALUE(MID(TEXT(INT(H8),REPT(0,12)),8,1))=0,CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),9,1)+1,""," một"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),"")),IF(VALUE(MID(TEXT(INT(H8),REPT(0,12)),7,3))," nghìn ",""),CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),10,1)+1,"","một trăm ","hai trăm ","ba trăm ","bốn trăm ","năm trăm ","sáu trăm ","bảy trăm ","tám trăm ","chín trăm "),CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),11,1)+1,"",CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),12,1)+1,"mười","mười một","mười hai","ba mươi","bốn mươi","lăm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),"hai mươi","ba mươi","bốn mươi","lăm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(H8),REPT(0,12)),11,1))>1,CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),12,1)+1,""," một"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),IF(VALUE(MID(TEXT(INT(H8),REPT(0,12)),11,1))=0,CHOOSE(MID(TEXT(INT(H8),REPT(0,12)),12,1)+1,""," một"," hai"," ba"," bốn"," lăm"," sáu"," bảy"," tám"," chín"),"")))," "," ")&IF(FLOOR(H8,1)>1," đồng"))))
 
Web KT
Back
Top Bottom