Latest Post

4/recent/ticker-posts

How to Convert Number to Words in Excel in Rupees Format in Hindi

एक्सेल में नंबर को शब्दों में कैसे बदलें


एक्सेल 2007 में कोई भी ऐसा डिफ़ॉल्ट फ़ंक्शन नहीं होता जो किसी नंबर को वर्ड में कन्वर्ट कर सके इसके लिए हम एक्सेल में मैक्रो के कोड का प्रयोग करते है जो किसी भी संख्या या राशि को भारतीय रुपये या किसी भी मुद्रा में शब्दों को परिवर्तित करता है। 


लेकिन इसका मतलब यह नहीं है कि हम संख्या को भारतीय रुपये में नहीं बदल सकते। हम भारतीय रुपये में संख्या को शब्दों में बदलने के लिए एक कस्टम एक्सेल फॉर्मूला बना सकते हैं। 

मैंने भारतीय रुपये के संदर्भ में संख्या को शब्दों में बदलने के लिए यह कस्टम फ़ंक्शन बनाया है। आप नीचे दी गई मैक्रो फ़ाइल डाउनलोड कर सकते हैं।

डाउनलोडसंख्या से शब्द भारतीय रुपया


मैंने नीचे दिए गए कोड का उल्लेख किया है और थोड़ा समझाया है, ताकि आप अपनी आवश्यकता के अनुसार परिवर्तन कर सकें। तो आज की इस पोस्ट में हम जानेंगे की कैसे हम किसी भी नंबर को वर्ड में कन्वर्ट कर सकते है.

 

Excel Function to Covert Number to Words in Indian Rupees


एक्सेल में आप किसी भी 10 अंक या उससे कम राशि या संख्या को शब्दों या रुपये में बदलने के लिए इस फ़ंक्शन का उपयोग करें। मैंने इस फ़ंक्शन का नाम NUM_TO_IND_RUPEE_WORD रखा है। इस फ़ंक्शन का सिंटैक्स है:

=NUM_TO_IND_RUPEE_WORD(Number)

आप कार्यशील मैक्रो फ़ाइल को नीचे डाउनलोड कर सकते हैं:

संख्या से शब्द भारतीय रुपया

अब फंक्शन का कोड नीचे दिया गया है।

यह कोड चार अलग-अलग कार्यों में विभाजित है। मुख्य कार्य NUM_TO_IND_RUPEE_WORD है। और अन्य तीन फ़ंक्शन GetHunderds (), GetTens () और GetDigits फ़ंक्शन की सहायता कर रहे हैं जो मुख्य फ़ंक्शन को स्ट्रिंग बनाने में मदद करते हैं।

Function NUM_TO_IND_RUPEE_WORD(ByVal MyNumber, Optional incRupees As Boolean = True)

 Dim Crores, Lakhs, Rupees, Paise, Temp

 Dim DecimalPlace As Long, Count As Long

 Dim myLakhs, myCrores

 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 Rupees amount.

 If DecimalPlace > 0 Then

  Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))

  MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

 End If

 

 myCrores = MyNumber \ 10000000

 myLakhs = (MyNumber - myCrores * 10000000) \ 100000

 MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000

 Count = 1

 

 Do While myCrores <> ""

  Temp = GetHundreds(Right(myCrores, 3))

  If Temp <> "" Then Crores = Temp & Place(Count) & Crores

  If Len(myCrores) > 3 Then

    myCrores = Left(myCrores, Len(myCrores) - 3)

  Else

    myCrores = ""

  End If

  Count = Count + 1

 Loop

 Count = 1

 

 Do While myLakhs <> ""

  Temp = GetHundreds(Right(myLakhs, 3))

  If Temp <> "" Then Lakhs = Temp & Place(Count) & Lakhs

  If Len(myLakhs) > 3 Then

   myLakhs = Left(myLakhs, Len(myLakhs) - 3)

  Else

   myLakhs = ""

  End If

  Count = Count + 1

 Loop

 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 Crores

  Case "": Crores = ""

  Case "One": Crores = " One Crore "

  Case Else: Crores = Crores & " Crores "

 End Select

 

 Select Case Lakhs

  Case "": Lakhs = ""

  Case "One": Lakhs = " One Lakh "

  Case Else: Lakhs = Lakhs & " Lakhs "

 End Select

 

 Select Case Rupees

  Case "": Rupees = "Zero "

  Case "One": Rupees = "One "

  Case Else:

  Rupees = Rupees

 End Select

 

 Select Case Paise

  Case "": Paise = " and Paise Zero Only "

  Case "One": Paise = " and Paise One Only "

  Case Else: Paise = " and Paise " & Paise & " Only "

 End Select

'creating the string of words to translate number into words

 NUM_TO_IND_RUPEE_WORD = IIf(incRupees, "Rupees ", "") & Crores & _ Lakhs & 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 

फ़ंक्शन का कोड लंबा है लेकिन समझने में आसान है।

इस कोड का उपयोग करने के लिए, VBE में एक मॉड्यूल डालें और इसे कॉपी पेस्ट करें। 

How to Convert Number to Words in Excel in Rupees Format in Hindi


और फ़ंक्शन सीधे शीट पर उपयोग करने के लिए तैयार है। यह संख्या को शब्दों में बदल देगा, विशेष रूप से भारतीय रुपये के प्रारूप में। जैसा की नीचे स्क्रीन शॉट में दिखाया गया है. 


How to Convert Number to Words in Excel in Rupees Format in Hindi


अंत में

आशा है की पूरी पोस्ट पढने के बाद आपको एक्सेल में किसी भी नंबर को वर्ड में बदलना आ गया होगा.

Also Read 

How to Autofill Dates in Excel Cells (एक्सेल सेल में तिथियों को ऑटोफिल कैसे करें)

How to Calculate Percentage of a Number in Excel | Excel Percentage Formula in Hindi

How to Change Date Format in Excel (एक्सेल में डेट का फॉर्मेट कैसे बदले)

How to Create Marksheet in Excel Step by Step in Hindi

How to use of AutoSum Function in Excel in Hindi (एक्सेल में संख्याओ का जोड़ कैसे करे)


एक टिप्पणी भेजें

0 टिप्पणियाँ