Dear All,
For a long time, I have been searching for a command that can convert the Rupees value from a number to a text format.
For Example:
Digit Value: Rs.
Text Value: Rupees Four Thousand One Hundred Ninety-Six Only.
If you really need it, please send your email ids to my personal ID as I can't attach it here.
Thanks,
Pawan Kumar
Executive HR
[IMG]https://www.citehr.com/misc.php?do=email_dev&email=cGF3YW5fbWFsaW tub2lkYUB5YWhvby5jb20=[/IMG]
Dear All,
As per the requirement for a large number, I am attaching this file here, so please download it.
Thanks,
Pawan Kumar
From India, Delhi
Acknowledge(0)
Amend(0)
2For a long time, I have been searching for a command that can convert the Rupees value from a number to a text format.
For Example:
Digit Value: Rs.
Text Value: Rupees Four Thousand One Hundred Ninety-Six Only.
If you really need it, please send your email ids to my personal ID as I can't attach it here.
Thanks,
Pawan Kumar
Executive HR
[IMG]https://www.citehr.com/misc.php?do=email_dev&email=cGF3YW5fbWFsaW tub2lkYUB5YWhvby5jb20=[/IMG]
Dear All,
As per the requirement for a large number, I am attaching this file here, so please download it.
Thanks,
Pawan Kumar
From India, Delhi
Acknowledge(0)Amend(0)
Dear pawan i have done same research on same process but till i din’t get it , i appreciate u, keep searching and plz update me when u get that .................:huh: Regards madhu Gupta
From India, Delhi
Acknowledge(0)Amend(0)
From India, Delhi
Acknowledge(0)Amend(0)
Hi Madhu,
I have already created it. Please email me at [IMG]https://www.citehr.com/misc.php?do=email_dev&email=cGF3YW5fbWFsaW tub2lkYUB5YWhvby5jb20=[/IMG] if you really want to receive it because I have done some programming on it and don't want to share it on this site.
I would like to inform about the process:
1. Open the file received by you.
2. You will find a blank Excel file. Now, go to the File menu -> open -> open your desired file.
3. Now you will find your original Excel file.
4. Select the cell where you want the result in format.
5. Go to the formula section and select the category as user-defined (this is a new formula). Select RsWord, then click on the OK button. Now, select the number by mouse click on the Excel sheet, then click the OK button.
Hope you will find your desired result. Please don't forget to reply if you are satisfied. Also, share your comments.
Pawan Kumar
From India, Delhi
Acknowledge(0)Amend(0)
I have already created it. Please email me at [IMG]https://www.citehr.com/misc.php?do=email_dev&email=cGF3YW5fbWFsaW tub2lkYUB5YWhvby5jb20=[/IMG] if you really want to receive it because I have done some programming on it and don't want to share it on this site.
I would like to inform about the process:
1. Open the file received by you.
2. You will find a blank Excel file. Now, go to the File menu -> open -> open your desired file.
3. Now you will find your original Excel file.
4. Select the cell where you want the result in format.
5. Go to the formula section and select the category as user-defined (this is a new formula). Select RsWord, then click on the OK button. Now, select the number by mouse click on the Excel sheet, then click the OK button.
Hope you will find your desired result. Please don't forget to reply if you are satisfied. Also, share your comments.
Pawan Kumar
From India, Delhi
Acknowledge(0)Amend(0)
Dear Mr. Pavan Kumar,
I apologize for the error in the email address displayed while typing. I am now sending this email with the correct address. Please email me the software process to the address vaida17@gmail.com. Many thanks for your research, which is what is needed at this time.
From India, Mumbai
Acknowledge(0)Amend(0)
I apologize for the error in the email address displayed while typing. I am now sending this email with the correct address. Please email me the software process to the address vaida17@gmail.com. Many thanks for your research, which is what is needed at this time.
From India, Mumbai
Acknowledge(0)Amend(0)
Dear All,
There are many possibilities with Excel, and if you have a little programming knowledge, many things can be done automatically. If you need any help regarding this, please email me at vicky.tomer@gmail.com.
Regards,
Vicky
From India, Mumbai
Acknowledge(0)Amend(0)
There are many possibilities with Excel, and if you have a little programming knowledge, many things can be done automatically. If you need any help regarding this, please email me at vicky.tomer@gmail.com.
Regards,
Vicky
From India, Mumbai
Acknowledge(0)Amend(0)
Hi Pawan,
Good work! I have also written a user-defined function in Excel that does the same.
In addition to the guidelines provided above to CiteHR users, one may also note that the file provided by Mr. Pawan is an add-in that can be stored in Excel's startup folder. By storing it like that, you need not open the provided file every time. Excel will open the file in the background every time the Excel program is opened.
You just need to type the function name like:
=RsWord(1245)
=RsWord(cell address or cell link)
However, users cannot share the file with others, or the function formula in the file cannot be used in other systems as it will give an error.
If anybody wants to share the file with other users or if files are frequently exchanged between users for reporting purposes, they can copy the function written in the original add-in file to the VBA module of such an Excel file. However, one needs to enable macros to use this customized function.
Thanks and Regards,
Ramesh Shetty
From India, Bangalore
Acknowledge(0)Amend(0)
Good work! I have also written a user-defined function in Excel that does the same.
In addition to the guidelines provided above to CiteHR users, one may also note that the file provided by Mr. Pawan is an add-in that can be stored in Excel's startup folder. By storing it like that, you need not open the provided file every time. Excel will open the file in the background every time the Excel program is opened.
You just need to type the function name like:
=RsWord(1245)
=RsWord(cell address or cell link)
However, users cannot share the file with others, or the function formula in the file cannot be used in other systems as it will give an error.
If anybody wants to share the file with other users or if files are frequently exchanged between users for reporting purposes, they can copy the function written in the original add-in file to the VBA module of such an Excel file. However, one needs to enable macros to use this customized function.
Thanks and Regards,
Ramesh Shetty
From India, Bangalore
Acknowledge(0)Amend(0)
Dear all,
Please download this file and then open your file in which you want this command. Next, open my file again and enable macros. After that, type this command =ntw(cell no.). You will get the desired result.
Lokesh Sirohi.
From India, New+Delhi
Acknowledge(0)Amend(0)
Please download this file and then open your file in which you want this command. Next, open my file again and enable macros. After that, type this command =ntw(cell no.). You will get the desired result.
Lokesh Sirohi.
From India, New+Delhi
Acknowledge(0)Amend(0)
Hi Pawan!!
Thank you a lot for enhancing CiteHR users' knowledge. I would also like to know about this command. So, I'll be grateful to you if you could email me at my email address, i.e.,
.
Regards,
Akshita
From India, Chandigarh
Acknowledge(0)Amend(0)
Thank you a lot for enhancing CiteHR users' knowledge. I would also like to know about this command. So, I'll be grateful to you if you could email me at my email address, i.e.,
Regards,
Akshita
From India, Chandigarh
Acknowledge(0)Amend(0)
Dear All,
For a long time, I have been searching for a command that can convert Rupees value from a number to a text format.
For Example:
Digit Value: Rs.
Text Value: Rupees Four Thousand One Hundred Ninety-Six Only.
If you really need it, please send your email ids to my personal Id as I can't attach it here.
Thanks,
Pawan Kumar
Executive HR
Hi Pawan,
Here I am sending the code, you have to follow these steps:
1. Copy the total code
2. Open Excel
3. Press Alt + F11
4. Go to Insert and click on Module
5. Paste, save, and close the Excel
6. Reopen the same Excel application
This code = SpellNumber(numeric value cell reference number)
Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Rupees, Paise, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = "Thousand "
Place(3) = "Million "
Place(4) = "Billion "
Place(5) = "Trillion "
' String representation of the amount.
MyNumber = Trim(Str(MyNumber))
' Position of the decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert Paise and set MyNumber to Rupee amount.
If DecimalPlace > 0 Then
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupees
Case ""
Rupees = "Zero Rupees"
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupees"
End Select
Select Case Paise
Case ""
Paise = " Only"
Case "One"
Paise = " and One Paise Only"
Case Else
Paise = " and " & Paise & " Paise" & " Only "
End Select
SpellNumber = Rupees & Paise
End Function
' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If the value is between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If the value is between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve the ones place.
End If
GetTens = Result
End Function
' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
If support is needed, I am available at 9966292000.
Thanks,
Vijay Bhaskar
From India, Hyderabad
Acknowledge(0)Amend(0)
For a long time, I have been searching for a command that can convert Rupees value from a number to a text format.
For Example:
Digit Value: Rs.
Text Value: Rupees Four Thousand One Hundred Ninety-Six Only.
If you really need it, please send your email ids to my personal Id as I can't attach it here.
Thanks,
Pawan Kumar
Executive HR
Hi Pawan,
Here I am sending the code, you have to follow these steps:
1. Copy the total code
2. Open Excel
3. Press Alt + F11
4. Go to Insert and click on Module
5. Paste, save, and close the Excel
6. Reopen the same Excel application
This code = SpellNumber(numeric value cell reference number)
Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Rupees, Paise, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = "Thousand "
Place(3) = "Million "
Place(4) = "Billion "
Place(5) = "Trillion "
' String representation of the amount.
MyNumber = Trim(Str(MyNumber))
' Position of the decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert Paise and set MyNumber to Rupee amount.
If DecimalPlace > 0 Then
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupees
Case ""
Rupees = "Zero Rupees"
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupees"
End Select
Select Case Paise
Case ""
Paise = " Only"
Case "One"
Paise = " and One Paise Only"
Case Else
Paise = " and " & Paise & " Paise" & " Only "
End Select
SpellNumber = Rupees & Paise
End Function
' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If the value is between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If the value is between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve the ones place.
End If
GetTens = Result
End Function
' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
If support is needed, I am available at 9966292000.
Thanks,
Vijay Bhaskar
From India, Hyderabad
Acknowledge(0)Amend(0)
Dear all,
There is an attached file named Amtinwords.xla for converting numbers to text.
To run this program:
1. Save this program on your computer.
2. Go to a new Excel sheet, open the Tools menu, select Add-Ins, browse for Amtinwords.xla, add it, and select it. Then, close that window.
3. Open a new Excel sheet, write any number, move to the next cell, and enter =amtinwords() where you select the cell containing the number.
Hope this is helpful.
From United States
Acknowledge(0)Amend(0)
There is an attached file named Amtinwords.xla for converting numbers to text.
To run this program:
1. Save this program on your computer.
2. Go to a new Excel sheet, open the Tools menu, select Add-Ins, browse for Amtinwords.xla, add it, and select it. Then, close that window.
3. Open a new Excel sheet, write any number, move to the next cell, and enter =amtinwords() where you select the cell containing the number.
Hope this is helpful.
From United States
Acknowledge(0)Amend(0)Looking for something specific? - Join & Be Part Of Our Community and get connected with the right people who can help. Our AI-powered platform provides real-time fact-checking, peer-reviewed insights, and a vast historical knowledge base to support your search.