Đọc Số Tiền Thành Chữ

Cách đọc số tiền thành chữ. Nếu bạn dùng Add-in đôi khi sẽ bất tiện khi gửi file qua máy người khác, hoặc những vấn đề liên quan tới bảo mật nếu add in không nguồn gốc rõ ràng.

Link: Onedrive

Đọc số thành chữ

Công thức:
1.=MAP(A2:A10,LAMBDA(s,LET(a,{14,11,8,5,2},b,FIXED(s),c,{"","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"}&" ",f,LAMBDA(r,MOD(MOD(s/10^(a-r),1000),10)+1),d,IF(SEQUENCE(10)=2,HSTACK("mười ","mười "&DROP(c,,1)),VSTACK("",0,DROP(TOCOL(c),2)&"mươi")&" "&c),e,MOD(s/10^a,10),m,RIGHT(b,2),TRIM(IF(INT(s),CONCAT(INDEX(c,e+1)&IF(INT(e)," trăm ","")&INDEX(d,f(1),f(2))&IF(INT(MOD(s,10^(a+1))/10^(a-2)),{"nghìn tỷ, ","tỷ, ","triệu, ","nghìn, ",""},"")),"không ")&IF(-m," phảy "&INDEX(d,LEFT(m)+1,RIGHT(b)+1),""))&" đồng")))

2.=MAP(A2:A10,LAMBDA(s,LET(a,{14,11,8,5,2},b,FIXED(s),c,{"","một","hai","ba","bốn","năm","sáu","bảy","tám","chín"}&" ",f,LAMBDA(r,MOD(MOD(s/10^(a-r),1000),10)+1),d,IF(SEQUENCE(10)=2,HSTACK("mười ","mười "&DROP(c,,1)),VSTACK("",0,DROP(TOCOL(c),2)&"mươi")&" "&c),e,MOD(s/10^a,10),m,RIGHT(b,2),n,TRIM(IF(INT(s),CONCAT(INDEX(c,e+1)&IF(INT(e)," trăm ","")&INDEX(d,f(1),f(2))&IF(INT(MOD(s,10^(a+1))/10^(a-2)),{"nghìn tỷ ","tỷ ","triệu ","nghìn ",""},"")),"không ")&IF(-m," phảy "&INDEX(d,LEFT(m)+1,RIGHT(b)+1),""))&" đồng",UPPER(LEFT(n))&MID(n,2,9^9))))