Help!Cách đổi số thành chữ (1 người xem)

[dht.art]

trong phiếu thu và phiếu chi, khi ghi số tiền bằng số xong, em muốn số tiền ghi = chữ cũng thể hiện luôn. Bác nào biết chỉ giùm e với ạ.
Mail của em: dht.art@gmail.com
TKS!

 

[thepdaoson]

Muốn làm được bạn phải có file kèm theo vì phải đặt rất nhiều name ẩn.
1: docchuc: =IF(OR(sochuc="",sochuc=0),IF(AND(sodonvi<>0,LEN(so)>2),"lẻ",""),CHOOSE(sochuc,"mười","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"))
2: docchucnghin =IF(OR(sochucnghin="",sochucnghin=0),IF(AND(songhin<>0,LEN(so)>5),"lẻ",""),CHOOSE(sochucnghin,"mười","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"))
3: docchuctrieu: =IF(OR(sochuctrieu="",sochuctrieu=0),IF(AND(sotrieu<>0,LEN(so)>8),"lẻ",""),CHOOSE(sochuctrieu,"mười","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"))
4: docchucty: =IF(OR(sochucty="",sochucty=0),IF(AND(soty<>0,LEN(so)>11),"lẻ",""),CHOOSE(sochucty,"mười","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"))
5:docdonvi =IF(OR(sodonvi="",sodonvi=0),"",CHOOSE(sodonvi,IF(AND(sochuc<>"",sochuc>1),"mốt","một"),"hai","ba","bốn",IF(OR(sochuc="",sochuc=0),"năm","lăm"),"sáu","bảy","tám","chín"))
6: docnghin: =IF(AND(songhin=0,sochucnghin>0),"nghìn ",IF(OR(songhin="",songhin=0),"",CHOOSE(songhin,IF(AND(sochucnghin<>"",sochucnghin>1),"mốt","một"),"hai","ba","bốn",IF(OR(sochucnghin="",sochucnghin=0),"năm","lăm"),"sáu","bảy","tám","chín")&" nghìn "))
7: doctram =IF(OR(sotram="",AND(sodonvi=0,sochuc=0,sotram=0)),"",IF(AND(sotram=0,OR(sodonvi>0,sochuc>0))," không trăm ",CHOOSE(sotram,"một","hai","ba","bốn","năm","sáu","bảy","tám","chín")&" trăm "))
8: doctramnghin: =IF(sotramnghin="","",IF(AND(songhin=0,sochucnghin=0,sotramnghin>0),CHOOSE(sotramnghin,"một","hai","ba","bốn","năm","sáu","bảy","tám","chín")&" trăm nghìn ",dtn))
9: doc tram trieu : =IF(sotramtrieu="","",IF(AND(sotrieu=0,sochuctrieu=0,sotramtrieu>0),CHOOSE(sotramtrieu,"một","hai","ba","bốn","năm","sáu","bảy","tám","chín")&" trăm triệu ",dtt))
10: doctranty: =IF(sotramty="","",IF(AND(soty=0,sochucty=0,sotramty>0),CHOOSE(sotramty,"một","hai","ba","bốn","năm","sáu","bảy","tám","chín")&" trăm tỷ ",dtty))

vvvv

VND =IF(ISNUMBER(VALUE(so)),IF(LEN(so)>12,"số quá lớn",TRIM(doctramty&docchucty&" "&docty&doctramtrieu&docchuctrieu&" "&doctrieu&doctramnghin&docchucnghin&" "&docnghin&doctram&docchuc&" "&docdonvi&" đồng.")),"số không đúng")

sau đó sẽ đặt công thức vào ô bạn muốn được chữ. Ví dụ =IF(ROW(Axx),VND)

 

[thepdaoson]

Bạn xem file kem theo nhe.