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"))))
|