Computer Code

Non-VBA method for Spelling Out Integers from 1 to 999,999,999,999 [Excel]

Requirements: Number in Cell A1

Formula:

=SUBSTITUTE(CONCATENATE(CHOOSE(MID(TEXT(INT(A1),"000000000000"),1,1)+1,"","One Hundred ","Two Hundred ","Three Hundred ","Four Hundred ","Five Hundred ","Six Hundred ","Seven Hundred ","Eight Hundred ","Nine Hundred "),CHOOSE(MID(TEXT(INT(A1),"000000000000"),2,1)+1,"",CHOOSE(MID(TEXT(INT(A1),"000000000000"),3,1)+1,"Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"),"Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty","Ninety"),IF(VALUE(MID(TEXT(INT(A1),"000000000000"),2,1))>1,CHOOSE(MID(TEXT(INT(A1),"000000000000"),3,1)+1,"","-One","-Two","-Three","-Four","-Five","-Six","-Seven","-Eight","-Nine"),IF(VALUE(MID(TEXT(INT(A1),"000000000000"),2,1))=0,CHOOSE(MID(TEXT(INT(A1),"000000000000"),3,1)+1,"","One","Two","Three","Four","Five","Six","Seven","Eight","Nine"),"")),IF(A1>=1000000000," Billion ",""),CHOOSE(MID(TEXT(INT(A1),"000000000000"),4,1)+1,"","One Hundred ","Two Hundred ","Three Hundred ","Four Hundred ","Five Hundred ","Six Hundred ","Seven Hundred ","Eight Hundred ","Nine Hundred "),CHOOSE(MID(TEXT(INT(A1),"000000000000"),5,1)+1,"",CHOOSE(MID(TEXT(INT(A1),"000000000000"),6,1)+1,"Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"),"Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty","Ninety"),IF(VALUE(MID(TEXT(INT(A1),"000000000000"),5,1))>1,CHOOSE(MID(TEXT(INT(A1),"000000000000"),6,1)+1,"","-One","-Two","-Three","-Four","-Five","-Six","-Seven","-Eight","-Nine"),IF(VALUE(MID(TEXT(INT(A1),"000000000000"),5,1))=0,CHOOSE(MID(TEXT(INT(A1),"000000000000"),6,1)+1,"","One","Two","Three","Four","Five","Six","Seven","Eight","Nine"),"")),IF(VALUE(MID(TEXT(INT(A1),"000000000000"),4,3))>0," Million ",""),CHOOSE(MID(TEXT(INT(A1),"000000000000"),7,1)+1,"","One Hundred ","Two Hundred ","Three Hundred ","Four Hundred ","Five Hundred ","Six Hundred ","Seven Hundred ","Eight Hundred ","Nine Hundred "),CHOOSE(MID(TEXT(INT(A1),"000000000000"),8,1)+1,"",CHOOSE(MID(TEXT(INT(A1),"000000000000"),9,1)+1,"Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"),"Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty","Ninety"),IF(VALUE(MID(TEXT(INT(A1),"000000000000"),8,1))>1,CHOOSE(MID(TEXT(INT(A1),"000000000000"),9,1)+1,"","-One","-Two","-Three","-Four","-Five","-Six","-Seven","-Eight","-Nine"),IF(VALUE(MID(TEXT(INT(A1),"000000000000"),8,1))=0,CHOOSE(MID(TEXT(INT(A1),"000000000000"),9,1)+1,"","One","Two","Three","Four","Five","Six","Seven","Eight","Nine"),"")),IF(VALUE(MID(TEXT(INT(A1),"000000000000"),7,3))," Thousand ",""),CHOOSE(MID(TEXT(INT(A1),"000000000000"),10,1)+1,"","One Hundred ","Two Hundred ","Three Hundred ","Four Hundred ","Five Hundred ","Six Hundred ","Seven Hundred ","Eight Hundred ","Nine Hundred "),CHOOSE(MID(TEXT(INT(A1),"000000000000"),11,1)+1,"",CHOOSE(MID(TEXT(INT(A1),"000000000000"),12,1)+1,"Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"),"Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty","Ninety"),IF(VALUE(MID(TEXT(INT(A1),"000000000000"),11,1))>1,CHOOSE(MID(TEXT(INT(A1),"000000000000"),12,1)+1,"","-One","-Two","-Three","-Four","-Five","-Six","-Seven","-Eight","-Nine"),IF(VALUE(MID(TEXT(INT(A1),"000000000000"),11,1))=0,CHOOSE(MID(TEXT(INT(A1),"000000000000"),12,1)+1,"","One","Two","Three","Four","Five","Six","Seven","Eight","Nine"),"")))," "," ")

Example Spreedsheet: SpellOut_No_VBA