Skip to main content

How to Convert Numbers to Words in Excel


How to Convert Numbers to Words in Excel


format Cell _(#,##0.00_);[Red](#,##0.00)


= CHOOSE(LEFT(TEXT(B3,"000000000000.00"))+1,,"One ","Two ","Three ","Four ","Five ","Six ","Seven ","Eight ","Nine ")&IF(--LEFT(TEXT(B3,"000000000000.00"))=0, ,IF(AND(--MID(TEXT(B3,"000000000000.00"),2,1)=0,--MID(TEXT(B3,"000000000000.00"),3,1)=0),"Hundred ","Hundred and "))&CHOOSE(MID(TEXT(B3,"000000000000.00"),2,1)+1,,,"Twenty ","Thirty ","Forty ","Fifty ","Sixty ","Seventy ","Eighty ","Ninety ")&IF(--MID(TEXT(B3,"000000000000.00"),2,1)<>1,CHOOSE(MID(TEXT(B3,"000000000000.00"),3,1)+1,,"One ","Two ","Three ","Four ","Five ","Six ","Seven ","Eight ","Nine "),CHOOSE(MID(TEXT(B3,"000000000000.00"),3,1)+1,"Ten ","Eleven ","Twelve ","Thirteen ","Fourteen ","Fifteen ","Sixteen ","Seventeen ","Eighteen ","Nineteen "))&IF((--LEFT(TEXT(B3,"000000000000.00"))+MID(TEXT(B3,"000000000000.00"),2,1)+MID(TEXT(B3,"000000000000.00"),3,1))=0, ,IF(AND((--MID(TEXT(B3,"000000000000.00"),4,1)+MID(TEXT(B3,"000000000000.00"),5,1)+MID(TEXT(B3,"000000000000.00"),6,1)+MID(TEXT(B3,"000000000000.00"),7,1))=0,(--MID(TEXT(B3,"000000000000.00"),8,1)+RIGHT(TEXT(B3,"000000000000.00")))>0),"Billion and ","Billion "))&CHOOSE(MID(TEXT(B3,"000000000000.00"),4,1)+1,,"One ","Two ","Three ","Four ","Five ","Six ","Seven ","Eight ","Nine ")&IF(--MID(TEXT(B3,"000000000000.00"),4,1)=0, ,IF(AND(--MID(TEXT(B3,"000000000000.00"),5,1)=0,--MID(TEXT(B3,"000000000000.00"),6,1)=0),"Hundred ","Hundred and "))&CHOOSE(MID(TEXT(B3,"000000000000.00"),5,1)+1,,,"Twenty ","Thirty ","Forty ","Fifty ","Sixty ","Seventy ","Eighty ","Ninety ")&IF(--MID(TEXT(B3,"000000000000.00"),5,1)<>1,CHOOSE(MID(TEXT(B3,"000000000000.00"),6,1)+1,,"One ","Two ","Three ","Four ","Five ","Six ","Seven ","Eight ","Nine "),CHOOSE(MID(TEXT(B3,"000000000000.00"),6,1)+1,"Ten ","Eleven ","Twelve ","Thirteen ","Fourteen ","Fifteen ","Sixteen ","Seventeen ","Eighteen ","Nineteen "))&IF((--MID(TEXT(B3,"000000000000.00"),4,1)+MID(TEXT(B3,"000000000000.00"),5,1)+MID(TEXT(B3,"000000000000.00"),6,1))=0, ,IF(OR((--MID(TEXT(B3,"000000000000.00"),7,1)+MID(TEXT(B3,"000000000000.00"),8,1)+MID(TEXT(B3,"000000000000.00"),9,1))=0,--MID(TEXT(B3,"000000000000.00"),7,1)>0),"Million ","Million and "))&CHOOSE(MID(TEXT(B3,"000000000000.00"),7,1)+1,,"One ","Two ","Three ","Four ","Five ","Six ","Seven ","Eight ","Nine ")&IF(--MID(TEXT(B3,"000000000000.00"),7,1)=0, ,IF(AND(--MID(TEXT(B3,"000000000000.00"),8,1)=0,--MID(TEXT(B3,"000000000000.00"),9,1)=0),"Hundred ","Hundred and "))&CHOOSE(MID(TEXT(B3,"000000000000.00"),8,1)+1,,,"Twenty ","Thirty ","Forty ","Fifty ","Sixty ","Seventy ","Eighty ","Ninety ")&IF(--MID(TEXT(B3,"000000000000.00"),8,1)<>1,CHOOSE(MID(TEXT(B3,"000000000000.00"),9,1)+1,,"One ","Two ","Three ","Four ","Five ","Six ","Seven ","Eight ","Nine "),CHOOSE(MID(TEXT(B3,"000000000000.00"),9,1)+1,"Ten ","Eleven ","Twelve ","Thirteen ","Fourteen ","Fifteen ","Sixteen ","Seventeen ","Eighteen ","Nineteen "))&IF((--MID(TEXT(B3,"000000000000.00"),7,1)+MID(TEXT(B3,"000000000000.00"),8,1)+MID(TEXT(B3,"000000000000.00"),9,1))=0, ,IF(OR((--MID(TEXT(B3,"000000000000.00"),10,1)+MID(TEXT(B3,"000000000000.00"),11,1)+MID(TEXT(B3,"000000000000.00"),12,1))=0,--MID(TEXT(B3,"000000000000.00"),10,1)<>0),"Thousand ","Thousand and "))&CHOOSE(MID(TEXT(B3,"000000000000.00"),10,1)+1,,"One ","Two ","Three ","Four ","Five ","Six ","Seven ","Eight ","Nine ")&IF(--MID(TEXT(B3,"000000000000.00"),10,1)=0, ,IF(AND(--MID(TEXT(B3,"000000000000.00"),11,1)=0,--MID(TEXT(B3,"000000000000.00"),12,1)=0),"Hundred ","Hundred and "))&CHOOSE(MID(TEXT(B3,"000000000000.00"),11,1)+1,,,"Twenty ","Thirty ","Forty ","Fifty ","Sixty ","Seventy ","Eighty ","Ninety ")&IF(--MID(TEXT(B3,"000000000000.00"),11,1)<>1,CHOOSE(MID(TEXT(B3,"000000000000.00"),12,1)+1,,"One ","Two ","Three ","Four ","Five ","Six ","Seven ","Eight ","Nine "),CHOOSE(MID(TEXT(B3,"000000000000.00"),12,1)+1,"Ten ","Eleven ","Twelve ","Thirteen ","Fourteen ","Fifteen ","Sixteen ","Seventeen ","Eighteen ","Nineteen "))&"Doller and Cent "&CHOOSE(MID(TEXT(B3,"000000000000.00"),14,1)+2,,"zero ","One ","Two ","Three ","Four ","Five ","Six ","Seven ","Eight ","Nine ")&CHOOSE(MID(TEXT(B3,"000000000000.00"),15,1)+2,,"zero","One","Two","Three","Four","Five","Six","Seven","Eight","Nine")& " USD Only"

Comments

Popular posts from this blog

માતાજીના છંદ - અમીચંદ

  માતાજીના છંદ - અમીચંદ    અંબા મા તારું દર્શન દુર્લભ, દર્શનથી દુઃખ ભાંગે છે, અરજ કરી માને શીશ નમાવું, ધનભાગ્ય મારું આજે છે...   લક્ષ ચોર્યાશી ફેરા ફરીને, મનસા અવતાર ધરાવ્યો છે, ગુલામ તમારો આવ્યો મુસાફર, માયામાં લપટાયો છે...   કામ, ક્રોધ, મોહ, મત્સર, માયા દુર્મતિ પર ધાયો છે, લોભ લહેર એક નદીયા વહે છે, ઉસમેં જીવ દુભાયો છે...   તુમ બીના પાર ઉતારે કોણ મા, ભક્તને કે શિર ગાજે છે, અરજ કરીને માને શીશ નમાવું, ધનભાગ્ય મારું આજે છે...   કોઈ વખત જીવ જાયે ધરમ પર, માયા પાછી લપટાવે છે, આકીન અમારું રહેતું નથી, મારું પાપ મને અથડાવે છે...   હવે ઉપાય શું કરું માતાજી, હમકું કોઈ બતાવે છે, ચાકર બેઠો ચિત્તમાં તમારો, દિલમાં બહુ ગભરાવે છે...   મારી હકીકત તું સહુ જાણે, ઘટઘટમાં તું બિરાજે છે, અરજ કરી માને શીશ નમાવું, ધનભાગ્ય મારું આજે છે...   માન નિરંજન તું દુઃખભંજન, નિરધનને ધન આપે છે, વાંઝિયા હોય તેનું મેણું ટાળી, તેને તું ફરજંદ આપે છે...   ભક્ત કરે મા ભક્તિ તમારી, તેને તું દર્શન આપે છે, જન્મોજનમનાં પાપ નિવારણ, એક પલકમાં કાપે છે...   બહુચર-

SBI ATM Card Application Form - State Bank of India

WhatsApp Send By Excel

  Excel Format MobileNo Messages 919723475111 Test 919727715979 Test1 919904432168 Test3   Code For Excel  Module   Sub WhatsAppMsg() Dim LastRow As Long Dim i As Integer Dim strip As String Dim strPhoneNumber As String Dim strMessage As String Dim strPostData As String Dim IE As Object LastRow = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To LastRow          strPhoneNumber = Sheets("Data").Cells(i, 1).Value     strMessage = Sheets("Data").Cells(i, 2).Value          'IE.navigate "whatsapp://send?phone=phone_number&text=your_message"          strPostData = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strMessage     Set IE = CreateObject("InternetExplorer.Application")     IE.navigate strPostData     Application.Wait Now() + TimeSerial(0, 0, 5)     SendKeys "~" Next i      End Sub