How to Convert Numeric Value Into Word or Indian Rupees in Excel

Hello friends, aaj iss post me mein aapko microsoft excel ki ek aisi trick ke bare me bataunga. Jiske help se aap excel worksheet me numeric ko word me convert kar sakte ho. Yani ki aap excel worksheet me kisi bhi number ko shabdo me easily badal sakte ho. How to convert numeric value into word or indian rupees in excel. Iski puri jankari ke liye iss post ko end tak padhe.

bahut se log hai jo excel ke through bill book, check, cash memo ya draft printing karte hai. Aur inpar likhi amount ko vo sabdo me manually type karte hai. Jisme unka aur bhi jyada time waste hota hai.

Isliye iss post me mein aapko ek aisi vba command ke bare me bataunga. Jiski help se aap bina koi word type kiye anko ko shabdo me badal sakte ho. to chaliye start karte hai aur janate hai ki microsoft excel me numeric ko word me kaise convert karte hai.

How to Convert Numeric Value Into Word or Indian Rupees in Excel

Microsoft excel me numbers ko shabdo me badalne ke liye aapko sirf ek vba command ki jarurat hogi. Jisse aap macro me add karke easily kisi bhi ank ko aasaani se shabdo me badal sakte ho. Kya hai ye vba command aur kaise excel worksheet me numbers ko english word me convert karte hai. Aaiye step by step janate hai.

Step 1

Sabse pehle excel worksheet ko open kare aur niche diya gaya code copy kare.

 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 amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert paise and set MyNumber to dollar 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 = "No Rupees"
Case "One"
Rupees = "One Dollar"
Case Else
Rupees = Rupees & " Rupees"
End Select
Select Case paise
Case ""
paise = " and No paise"
Case "One"
paise = " and One Cent"
Case Else
paise = " and " & paise & " paise"
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 value 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 value 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 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

 

Step 2

Ab apni excel worksheet me jaye aur niche diye steps follow kare.

  1. View tab par click kare.
  2. Macros par click kare.
  3. View Macros par click kare.
  4. Ya Alt+F8 key press kare.

 

Step 3

Ab ek dialog box open hoga isme Macro name asign karna hai.

  1. Macro name enter kare koi bhi name de sakte hai.
  2. Create button par click kare.

 

Step 4

Ab ek visual basic editor open hoga isme pehle se pehle se available code ko delete kare. Aur copy kiya hua code paste kare.

 

Step 5

Code paste karne ke baad alt+tab press kare. Aur numeric ko word me convert karne ke liye wapas excel worksheet me jaye. Yahapar mein aapko do method bataunga numbers ko shabdo me badalne ke liye.

Method 1: Cell Reference

Iss method me excel worksheet ki cell me available amount ko other cell me word me convert kar sakte hai.

  1. Excel spreadsheet me jiss cell me value hai uske samne wali cell me formula key kare. Aap chahe to kisi other column ya cell me bhi ye formula apply kar sakte hai. Formula me =spellnumber(cell add) key kare.
  2. Formula enter karne ke baad aap dekh sakte hai ki sabhi value ab word me convert ho gayi hai. Indian rupees me badal gayi hai.

Method 2: Direct Entry

Direct entry method me aap excel spreadsheet ki kisi bhi cell me direct formula me amount enter kar usse word me convert kar sakte hai.

  1. Kisi bhi cell me formula ke sath value enter kare. For example =spellnumber(add amount).
  2. Yaha par aap dekh sakte hai ki jo amount formula me enter kiya tha. Ab vo indian rupees me convert ho gayi hai.

Issi tarah se aap excel spreadsheet me inn do tariko cell reference aur direct entry formula ka use karke. Kisi bhi amount ko english word me convert kar sakte ho.

How to convert numeric value into word or indian rupees, i hope ab aap samajh hi gaye honge. Agar aapka koi saval ya sujhav ho to comment kare. Aur agar aapko ye jankari helpful lagi ho to isse social sites par share bhi jarur kare.

Video Dekhe

Ramesh Singh

Hello Dosto ! Mera Naam Ramesh Singh Hai. Main Ek Passionate Blogger Hun. Ye Website Maine Banai Hai. Is Website Par Main Longo Ko Hindi Me Jankari Deta Hun Aur Unki Help Karta Hun. Read More

4 thoughts on “How to Convert Numeric Value Into Word or Indian Rupees in Excel

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.