CÁC HÀM CÔNG THỨC ĐỂ ĐỔI CON SỐ SANG CHỮ SỐ TRONG EXCEL 2003

Dù Phucwaw không phải dân IT nhưng do có chút đam mê IT và đang muốn viết một phần mềm kế toán để tặng cho một người bạn đang học kế toán nên ngồi làm chơi cái công thức này cho ai muốn làm công thức tính trong kế toán, mong các Pro chỉ giáo.
A1: NƠI ĐÁNH Ô SỐ CÓ ĐƯỢC.
A2: NƠI QUY ĐỔI CON SỐ RA CHỮ SỐ. =CONCATENATE(C28,C21,C14,C7)
B1: =IF(LEN($A$1)<>0,VALUE(RIGHT(A1,3)),"")
B2: Nhóm: từ 1đến 5
B3: Nhóm: từ 6 đến 0
B4: TH: "một","mốt".
B5: TH: "lăm","năm".
B6: Ghép trọng số
B7: Ghép toàn bộ 3 cột
B8: =IF(LEN($A$1)>3,VALUE(RIGHT((A1-B1)/1000,3)),"")
B9: Nhóm: từ 1 đến 6
B10: Nhóm: từ 6 đến 0
B11: TH: "một","mốt".
B12: TH: "lăm","năm".
B13: Ghép trọng số.
B14: Ghép toàn bộ 3 cột.
B15: =IF(LEN($A$1)>6,VALUE(RIGHT(($A$1-RIGHT(A1,6))/1000000,3)),"")
B16: Nhóm: từ 1 đến 7
B17: Nhóm: từ 6 đến 1
B18: TH: "một","mốt".
B19: TH: "lăm","năm".
B20: Ghép trọng số.
B21: Ghép toàn bộ 3 cột
B22: =IF(LEN($A$1)>9,VALUE(RIGHT(($A$1-RIGHT($A$1,9))/1000000000,3)),"")
B23: Nhóm: từ 1 đến 8
B24: Nhóm: từ 6 đến 2
B25: TH: "một","mốt".
B26: TH: "lăm","năm".
B27: Ghép trọng số.
B28: Ghép toàn bộ 3 cột
C1: =IF(LEN(B1)=3,VALUE(MID(B1,1,1)),"")
C2: =IF(C1=1,"một ",IF(C1=2,"hai ",IF(C1=3,"ba ",IF(C1=4,"bốn ",IF(C1=5,"năm ",C3)))))
C3: =IF(C1=6,"sáu ",IF(C1=7,"bảy ",IF(C1=8,"tám ",IF(C1=9,"chín ",IF(C1=0,"không ","")))))
C4: =C2
C5: =C4
C6: =IF(AND(C1<>"",C1<>0),CONCATENATE(C5,"trăm "),"")
C7: =CONCATENATE(C6,D6,E6)
C8: =IF(LEN(B8)=3,VALUE(MID(B8,1,1)),"")
C9: =IF(C8=1,"một ",IF(C8=2,"hai ",IF(C8=3,"ba ",IF(C8=4,"bốn ",IF(C8=5,"năm ",C10)))))
C10: =IF(C8=6,"sáu ",IF(C8=7,"bảy ",IF(C8=8,"tám ",IF(C8=9,"chín ",IF(C8=0,"không ","")))))
C11: =C9
C12: =C11
C13: =IF(AND(C8<>"",C8<>0),CONCATENATE(C12,"trăm ",),"")
C14: =CONCATENATE(C13,D13,E13)
C15: =IF(LEN(B15)=3,VALUE(MID(B15,1,1)),"")
C16: =IF(C15=1,"một ",IF(C15=2,"hai ",IF(C15=3,"ba ",IF(C15=4,"bốn ",IF(C15=5,"năm ",C17)))))
C17: =IF(C15=6,"sáu ",IF(C15=7,"bảy ",IF(C15=8,"tám ",IF(C15=9,"chín ",IF(C15=0,"không ","")))))
C18: =C16
C19: =C18
C20: =IF(AND(C15<>"",C15<>0),CONCATENATE(C19,"trăm "),"")
C21: =CONCATENATE(C20,D20,E20)
C22: =IF(LEN(B22)=3,VALUE(MID(B22,1,1)),"")
C23: =IF(C22=1,"một ",IF(C22=2,"hai ",IF(C22=3,"ba ",IF(C22=4,"bốn ",IF(C22=5,"năm ",C24)))))
C24: =IF(C22=6,"sáu ",IF(C22=7,"bảy ",IF(C22=8,"tám ",IF(C22=9,"chín ",IF(C22=0,"không ","")))))
C25: =C23
C26: =C25
C27: =IF(AND(C22<>"",C22<>0),CONCATENATE(C26,"trăm "),"")
C28: =CONCATENATE(C27,D27,E27)
D1: =IF(LEN(B1)=3,VALUE(MID(B1,2,1)),IF(LEN(B1)=2,VALUE(MID(B1,1,1)),""))
D2: =IF(D1=1,"mười ",IF(D1=2,"hai ",IF(D1=3,"ba ",IF(D1=4,"bốn ",IF(D1=5,"năm ",D3)))))
D3: =IF(D1=6,"sáu ",IF(D1=7,"bảy ",IF(D1=8,"tám ",IF(D1=9,"chín ",IF(D1=0,"lẻ ","")))))
D4: =IF(D1=0,IF(E1<>0,D2,""),D2)
D5: =D4
D6: =IF(D1<>"",IF(AND(D1<>0,D1<>1),CONCATENATE(D5,"mươi "),D5),"")
D7: *
D8: =IF(LEN(B8)=3,VALUE(MID(B8,2,1)),IF(LEN(B8)=2,VALUE(MID(B8,1,1)),""))
D9: =IF(D8=1,"mười ",IF(D8=2,"hai ",IF(D8=3,"ba ",IF(D8=4,"bốn ",IF(D8=5,"năm ",D10)))))
D10: =IF(D8=6,"sáu ",IF(D8=7,"bảy ",IF(D8=8,"tám ",IF(D8=9,"chín ",IF(D8=0,"lẻ ","")))))
D11: =IF(D8=0,IF(E8<>0,D9,""),D9)
D12: =D11
D13: =IF(D8<>"",IF(AND(D8<>0,D8<>1),CONCATENATE(D12,"mươi "),D12),"")
D14: *
D15: =IF(LEN(B15)=3,VALUE(MID(B15,2,1)),IF(LEN(B15)=2,VALUE(MID(B15,1,1)),""))
D16: =IF(D15=1,"mười ",IF(D15=2,"hai ",IF(D15=3,"ba ",IF(D15=4,"bốn ",IF(D15=5,"năm ",D17)))))
D17: =IF(D15=6,"sáu ",IF(D15=7,"bảy ",IF(D15=8,"tám ",IF(D15=9,"chín ",IF(D15=0,"lẻ ","")))))
D18: =IF(D15=0,IF(E15<>0,D16,""),D16)
D19: =D18
D20: =IF(D15<>"",IF(AND(D15<>0,D15<>1),CONCATENATE(D19,"mươi "),D19),"")
D21: *
D22: =IF(LEN(B22)=3,VALUE(MID(B22,2,1)),IF(LEN(B22)=2,VALUE(MID(B22,1,1)),""))
D23: =IF(D22=1,"mười ",IF(D22=2,"hai ",IF(D22=3,"ba ",IF(D22=4,"bốn ",IF(D22=5,"năm ",D24)))))
D24: =IF(D22=6,"sáu ",IF(D22=7,"bảy ",IF(D22=8,"tám ",IF(D22=9,"chín ",IF(D22=0,"lẻ ","")))))
D25: =IF(D22=0,IF(E22<>0,D23,""),D23)
D26: =D25
D27: =IF(D22<>"",IF(AND(D22<>0,D22<>1),CONCATENATE(D26,"mươi "),D26),"")
D28: *
E1: =IF(LEN(B1)=3,VALUE(MID(B1,3,1)),IF(LEN(B1)=2,VALUE(MID(B1,2,1)),IF(LEN(B1)=1,B1,"")))
E2: =IF(E1=1,"một ",IF(E1=2,"hai ",IF(E1=3,"ba ",IF(E1=4,"bốn ",IF(E1=5,"lăm ",E3)))))
E3: =IF(E1=6,"sáu ",IF(E1=7,"bảy ",IF(E1=8,"tám ",IF(E1=9,"chín ",IF(E1=0,"","")))))
E4: =IF(E1=1,IF(D1<>"",IF(AND(D1<>0,D1<>1),"mốt ","một "),"một "),E2)
E5: =IF(E1=5,IF(D1=0,"năm ",IF(D1="","năm ",E4)),E4)
E6: =IF($A$1=0,"không đồng. ",IF(E1<>"",CONCATENATE(E5,"đồng chẵn. "),""))
E7: *
E8: =IF(LEN(B8)=3,VALUE(MID(B8,3,1)),IF(LEN(B8)=2,VALUE(MID(B8,2,1)),IF(LEN(B8)=1,B8,"")))
E9: =IF(E8=1,"một ",IF(E8=2,"hai ",IF(E8=3,"ba ",IF(E8=4,"bốn ",IF(E8=5,"lăm ",E10)))))
E10: =IF(E8=6,"sáu ",IF(E8=7,"bảy ",IF(E8=8,"tám ",IF(E8=9,"chín ",IF(E8=0,"","")))))
E11: =IF(E8=1,IF(D8<>"",IF(AND(D8<>0,D8<>1),"mốt ","một "),"một "),E9)
E12: =IF(E8=5,IF(D8=0,"năm ",IF(D8="","năm ",E11)),E11)
E13: =IF(D8="",IF(AND(E8<>0,E8<>""),CONCATENATE(E12,"ngàn "),""),CONCATENATE(E12,"ngàn "))
E14: *
E15: =IF(LEN(B15)=3,VALUE(MID(B15,3,1)),IF(LEN(B15)=2,VALUE(MID(B15,2,1)),IF(LEN(B15)=1,B15,"")))
E16: =IF(E15=1,"một ",IF(E15=2,"hai ",IF(E15=3,"ba ",IF(E15=4,"bốn ",IF(E15=5,"lăm ",E17)))))
E17: =IF(E15=6,"sáu ",IF(E15=7,"bảy ",IF(E15=8,"tám ",IF(E15=9,"chín ",IF(E15=0,"","")))))
E18: =IF(E15=1,IF(D15<>"",IF(AND(D15<>0,D15<>1),"mốt ","một "),"một "),E16)
E19: =IF(E15=5,IF(D15=0,"năm ",IF(D15="","năm ",E18)),E18)
E20: =IF(D15="",IF(AND(E15<>0,E15<>""),CONCATENATE(E19,"triệu "),""),CONCATENATE(E19,"triệu "))
E21: *
E22: =IF(LEN(B22)=3,VALUE(MID(B22,3,1)),IF(LEN(B22)=2,VALUE(MID(B22,2,1)),IF(LEN(B22)=1,B22,"")))
E23: =IF(E22=1,"một ",IF(E22=2,"hai ",IF(E22=3,"ba ",IF(E22=4,"bốn ",IF(E22=5,"lăm ",E24)))))
E24: =IF(E22=6,"sáu ",IF(E22=7,"bảy ",IF(E22=8,"tám ",IF(E22=9,"chín ",IF(E22=0,"","")))))
E25: =IF(E22=1,IF(D22<>"",IF(AND(D22<>0,D22<>1),"mốt ","một "),"một "),E23)
E26: =IF(E22=5,IF(D22=0,"năm ",IF(D22="","năm ",E25)),E25)
E27: =IF(D22="",IF(AND(E22<>0,E22<>""),CONCATENATE(E26,"tỉ "),""),CONCATENATE(E26,"tỉ "))
E28: *