Sử dụng công thức Excel đọc số thành chữ không VBA, không Addin



Sử dụng công thức Excel đọc số thành chữ không VBA, không Addin
Giải pháp đọc số thành chữ, chỉ sử dụng công thức Excel, không sử dụng code VBA, không sử dụng Addin, giúp bạn có thể yên tâm chia sẻ file, gửi file cho đồng nghiệp mà không lo lắng tới việc code VBA không chạy hoặc máy tính gửi tới chưa cài addin đọc số thành chữ.

▷ Khoá học VBA:

▷ Link tới công thức:
▷ Link tới bài viết:

▷ Theo dõi Facebook cá nhân:
▷ Blog cá nhân:

Xem thêm video học và các thủ thuật excel: https://mindovermetal.org/thu-thuat-excel/

11 Comement tại “Sử dụng công thức Excel đọc số thành chữ không VBA, không Addin”

  1. làm thế nào để viết hoa chữ cái đầu tiên được nhỉ

  2. xin bác ad giúp em chuyển ngày tháng sang số được không ạ
    ví dụ: 12/3/2009 thành chữ: ngày mười hai, tháng ba, năm hai nghìn không trăm linh chín
    02/5/2010: ngày mùng hai, tháng năm, năm hai nghìn không trăm mười
    em vô cùng cảm ơn ạ

  3. Kết thúc cuối chữ "đồng" mà thêm dấu.. thì làm thế nào bạn ơi. Ví dụ: Mười một đồng..

  4. Nguyễn Đức Thiện October 15, 2020 at 9:10 am

    Mình cop về và đọc nhưng công thức báo lỗi. Ko đc bạn ơi

  5. Cảm ơn nhiều ạ

  6. Nguyễn Quang Thuận October 15, 2020 at 9:10 am

    thấy dòng lệnh là A2, nếu tớ muôn dòng đấy là 1 dòng khác thì sửa mất công lắm, có cách nào k b

  7. Thật sự là video rất hay. Chúc bạn nhiều thành công!

  8. Mình muốn đăng ký học online tin học văn phòng ĐT Nguyễn nhưng mình chưa tạo đc TK

  9. wow

  10. ĐT Nguyễn [Học Excel Online] October 15, 2020 at 9:10 am

    =IF(OR(LEN(FLOOR(A2,1))>=13,FLOOR(A2,1)<=0)+N(T("HocExcel.Online")),"Không thể đọc số",TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CONCATENATE(
    CHOOSE(MID(TEXT(INT(A2),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(A2),REPT(0,12)),2,1)+1,"",
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),3,1)+1,"mười","mười một","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"),"hai mươi","ba mươi","bốn mươi","năm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(A2),REPT(0,12)),2,1))>1,
    CHOOSE(MID(TEXT(INT(A2),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(A2),REPT(0,12)),2,1))=0,
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),3,1)+1,"","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"),"")),IF(A2>=10^9," tỷ%%% ",""),
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),4,1)+1,IF(AND(INT(A2)>1000000000,VALUE(MID(TEXT(INT(A2),REPT(0,12)),4,3))<>0),"không trăm ",""),"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(A2),REPT(0,12)),5,1)+1,IF(AND(INT(A2)>100000000,VALUE(MID(TEXT(INT(A2),REPT(0,12)),5,2))<>0),"@@@ ",""),
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),6,1)+1,"mười","mười một","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"),"hai mươi","ba mươi","bốn mươi","năm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(A2),REPT(0,12)),5,1))>1,
    CHOOSE(MID(TEXT(INT(A2),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(A2),REPT(0,12)),5,1))=0,
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),6,1)+1,"","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"),"")),IF(VALUE(MID(TEXT(INT(A2),REPT(0,12)),4,3))>0," triệu%%% ",""),
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),7,1)+1,IF(AND(INT(A2)>1000000,VALUE(MID(TEXT(INT(A2),REPT(0,12)),7,3))<>0),"không trăm ",""),"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(A2),REPT(0,12)),8,1)+1,IF(AND(INT(A2)>100000,VALUE(MID(TEXT(INT(A2),REPT(0,12)),8,2))<>0),"@@@ ",""),
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),9,1)+1,"mười","mười một","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"),"hai mươi","ba mươi","bốn mươi","năm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(A2),REPT(0,12)),8,1))>1,
    CHOOSE(MID(TEXT(INT(A2),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(A2),REPT(0,12)),8,1))=0,
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),9,1)+1,"","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"),"")),IF(VALUE(MID(TEXT(INT(A2),REPT(0,12)),7,3))," ###"&IF(–RIGHT(A2,3)=0," ","%%% "),""),
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),10,1)+1,IF(AND(INT(A2)>1000,VALUE(MID(TEXT(INT(A2),REPT(0,12)),10,3))<>0)+N(T("HocExcel.Online")),"không trăm ",""),"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(A2),REPT(0,12)),11,1)+1,IF(AND(INT(A2)>10,VALUE(MID(TEXT(INT(A2),REPT(0,12)),11,2))<>0),"@@@ ",""),
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),12,1)+1,"mười","mười một","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"),"hai mươi","ba mươi","bốn mươi","năm mươi","sáu mươi","bảy mươi","tám mươi","chín mươi"),IF(VALUE(MID(TEXT(INT(A2),REPT(0,12)),11,1))>1,
    CHOOSE(MID(TEXT(INT(A2),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(A2),REPT(0,12)),11,1))=0,
    CHOOSE(MID(TEXT(INT(A2),REPT(0,12)),12,1)+1,"","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"),""))),"@@@","linh"),"###","ngàn"),"%%%",", ")," "," ")&" đồng"&T(N("HocExcel.Online: Có thể sửa tùy chọn @@@ linh, ### ngàn, %%% dấu phẩy, và bỏ đồng"))))

Để lại ý kiến của bạn:

Your email address will not be published. Required fields are marked *