Information abt EXCEL formula


This query is : Resolved 

Avatar

Querist : Anonymous

Profile Image
Querist : Anonymous (Querist)
27 March 2010 CAN ANYBODY HELP!
I need a formula in EXCEL which converts the Value of Figures into Words Automatically.
Ex : If I enter 25,000/- in should convert into Words Twenty Five Thousand only.
Pls if anybody knows abt it Pls help me!!!!!!

29 March 2010 Hi,

To convert number into words : Follow below steps
1. Press Alt+F11
2. Click insert on menu bar > Module Insert
3. Copy & paste in module the following code

Function words(fig, Optional point = "Point") As String
Dim digit(14) As Integer
alpha = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
figi = Trim(StrReverse(Str(Int(Abs(fig)))))
For i = 1 To Len(figi)
digit(i) = Mid(figi, i, 1)
Next
For i = 2 To Len(figi) Step 3
If digit(i) = 1 Then
digit(i) = digit(i - 1) + 10: digit(i - 1) = 0
Else: If digit(i) > 1 Then digit(i) = digit(i) + 18
End If
Next
For i = 1 To Len(figi)
If (i Mod 3) = 0 And digit(i) > 0 Then words = "hundred " & words
If (i Mod 3) = 1 And digit(i) + digit(i + 1) + digit(i + 2) > 0 Then _
words = Choose(i / 3, "thousand ", "million ", "billion ") & words
words = Trim(alpha(digit(i)) & " " & words)
Next
If fig Int(fig) Then
figc = StrReverse(figi)
If figc = 0 Then figc = ""
figd = Trim(WorksheetFunction.Substitute(Str(Abs(fig)), figc & ".", ""))
words = Trim(words & " " & point)
For i = 1 To Len(figd)
If Val(Mid(figd, i, 1)) > 0 Then
words = words & " " & alpha(Mid(figd, i, 1))
Else: words = words & " Zero"
End If
Next
End If

4.If fig function > user defined > A1 or (relevent cell)
Or after completing step 1 to 4 use formula = words(A1)
5.Then if in CELL A1 is 10 number the result is ten.

Regards

CS Sunita Jamkhande

Avatar

Querist : Anonymous

Profile Image
Querist : Anonymous (Querist)
30 March 2010 thanks for the answer miss. But the formulae is too lenghty and i have tried it but i could not get the result. So, can u please attach the Excel sheet which contains the formulae it will be a great help to me.

31 March 2010 Please forward your email id.So that I can mail the required files.

Avatar

Querist : Anonymous

Profile Image
Querist : Anonymous (Querist)
31 March 2010 Its rahulpandit150@gmail.com thanks for the reply

05 April 2010 I already sent mail on the id mentioned by you on 1st April 2010.Please confirm your correct id.


Avatar

Querist : Anonymous

Profile Image
Querist : Anonymous (Querist)
06 April 2010 Thanks i have got in my mail i was searching for attachment on this site.



You need to be the querist or approved CAclub expert to take part in this query .
Click here to login now



Similar Resolved Queries


loading


Unanswered Queries



CCI Pro



Answer Query



Company
12 October 2026
Finance

I-Genext Consulting Private Limited

New Delhi

CA

View Details
Company
02 November 2026
Audit Executive

SRJP & Co LLP

Kochi

CA Inter

View Details
Company
ARTICLESHIP 08 October 2026
ARTICLE TRAINEE

S.B.G. & CO. CHARTERED ACCOUNTANTS

New Delhi

CA Inter

View Details
Company
Featured ARTICLESHIP 31 October 2026
CA Articleship

apricus india

Navi Mumbai

CA Inter

View Details
Company
ARTICLESHIP 17 October 2026
Articled Assistant

RRPM & Associates LLP

Chennai

CA Inter

View Details
Company
07 October 2026
Senior Account Manager

Amplio Invest

Mumbai

M.Com

View Details
Company
Featured 29 October 2026
Accounts Executive

Synergy Keystone

Chennai

B.Com

View Details
Company
30 October 2026
Asst Manager Accounts

Goodwin Pumps India Pvt Ltd

Chengalpattu

CA Inter

View Details