एक्सेल मे नम्बर को वर्ड्स मे बदले 5 बेहद आसान स्टेप मे | How To Convert Number To Words In Excel In Rupees

एक्सेल मे नम्बर को वर्ड मे बदलना एक बहुत ही आसान काम है परन्तु जिन को पता नही है उन्हे यह काम बहुत ही मुश्किल लगता है पर यह बहुत आसान काम है आप को सिर्फ और सिर्फ एक वीबिए कोड को पेस्ट करना है एक्सेल फाइल मे और उस फाईल को सेव कर लेना है Excel macro enabled  workbook टाईप मे और आपका एक्सेल फाइल तैयार है नम्बर्स को वर्ड मे बदलने के लिए ।  तो आइए जानते हैं इस प्रोसेस को पूरी डिटेल से 

इस प्रक्रिया को पूरा करने के लिए और इसे अच्छे से समझने के लिए इस को हम पाँच चरण मे बाँटकर व्याख्यान करते हैं- 

First steps 

प्रथम चरण: प्रथम चरण मे  आपको निचे दिए गए  पूरी VBA Code को  सलेक्ट कर कॉपी कर लेना है  और कुछ नही करना है आपका प्रथम चरण का काम पूरा हो जाएगा 

Public Function RupeeFormat(SNum As String)
'Updateby Extendoffice
Dim xDPInt As Integer
Dim xArrPlace As Variant
Dim xRStr_Paisas As String
Dim xNumStr As String
Dim xF As Integer
Dim xTemp As String
Dim xStrTemp As String
Dim xRStr As String
Dim xLp As Integer
xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")
On Error Resume Next
If SNum = "" Then
  RupeeFormat = ""
  Exit Function
End If
xNumStr = Trim(str(SNum))
If xNumStr = "" Then
  RupeeFormat = ""
  Exit Function
End If

xRStr = ""
xLp = 0
If (xNumStr > 999999999.99) Then
    RupeeFormat = "Digit excced Maximum limit"
    Exit Function
End If
xDPInt = InStr(xNumStr, ".")
If xDPInt > 0 Then
    If (Len(xNumStr) - xDPInt) = 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))
    ElseIf (Len(xNumStr) - xDPInt) > 1 Then
       xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))
    End If
        xNumStr = Trim(Left(xNumStr, xDPInt - 1))
    End If
    xF = 1
    Do While xNumStr <> ""
        If (xF >= 2) Then
            xTemp = Right(xNumStr, 2)
        Else
            If (Len(xNumStr) = 2) Then
                xTemp = Right(xNumStr, 2)
            ElseIf (Len(xNumStr) = 1) Then
                xTemp = Right(xNumStr, 1)
            Else
                xTemp = Right(xNumStr, 3)
            End If
        End If
        xStrTemp = ""
        If Val(xTemp) > 99 Then
            xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)
            If Right(Trim(xStrTemp), 3) <> "Lac" Then
            xLp = xLp + 1
            End If
        ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then
            xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))
        ElseIf Val(xTemp) < 10 Then
            xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))
        End If
        If xStrTemp <> "" Then
            xRStr = xStrTemp & xArrPlace(xF) & xRStr
        End If
        If xF = 2 Then
            If Len(xNumStr) = 1 Then
                xNumStr = ""
            Else
                xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            End If
       ElseIf xF = 3 Then
            If Len(xNumStr) >= 3 Then
                 xNumStr = Left(xNumStr, Len(xNumStr) - 2)
            Else
                xNumStr = ""
            End If
        ElseIf xF = 4 Then
          xNumStr = ""
    Else
        If Len(xNumStr) <= 2 Then
        xNumStr = ""
    Else
        xNumStr = Left(xNumStr, Len(xNumStr) - 3)
        End If
    End If
        xF = xF + 1
Loop
    If xRStr = "" Then
       xRStr = "No Rupees"
    Else
       xRStr = " Rupees " & xRStr
    End If
    If xRStr_Paisas <> "" Then
       xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"
    End If
    RupeeFormat = xRStr & xRStr_Paisas & " Only"
    End Function
Function RupeeFormat_GetH(xStrH As String, xLp As Integer)
Dim xRStr As String
If Val(xStrH) < 1 Then
    RupeeFormat_GetH = ""
    Exit Function
Else
   xStrH = Right("000" & xStrH, 3)
   If Mid(xStrH, 1, 1) <> "0" Then
        If (xLp > 0) Then
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "
        Else
         xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "
        End If
    End If
    If Mid(xStrH, 2, 1) <> "0" Then
        xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))
    Else
        xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))
    End If
End If
    RupeeFormat_GetH = xRStr
End Function
Function RupeeFormat_GetT(xTStr As String)
    Dim xTArr1 As Variant
    Dim xTArr2 As Variant
    Dim xRStr As String
    xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    Result = ""
    If Val(Left(xTStr, 1)) = 1 Then
        xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))
    Else
        If Val(Left(xTStr, 1)) > 0 Then
            xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)
        End If
        xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))
    End If
      RupeeFormat_GetT = xRStr
End Function
Function RupeeFormat_GetD(xDStr As String)
Dim xArr_1() As Variant
    xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")
    If Val(xDStr) > 0 Then
        RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)
    Else
        RupeeFormat_GetD = ""
    End If
End Function 

Second steps 

दूसरा चरण: दूसरे चरण मे आप को Microsoft excel ओपन करना इस के लिए आप को कीबोर्ड से windows 🪟 key के साथ R बटन प्रेस करना है और Run command मे excel टाईप कर एण्तर प्रेस करना है तो एक्सेल फाइल खुल जाएगा 

Third steps 

तीसरा चरण: तीसरे चरण मे एक्सेल मे visual basic ओपन करने के लिए आप को ALT+F11 कीज प्रेस करना है   और Insert tab के अंतर्गत module मे आप को vba code पेस्ट कर देना है जो कोड आप ने प्रथम चरण मे कॉपी किया था ।  

Fourth steps 

चौथा चरण : चौथे चरण मे आप को एक्सेल फाइल को सेव कर लेना है  डेस्कटॉप पर  । सेव करने के लिए फाइल पर क्लिक कर  save as मे फाइल का कोई भी नाम देकर excel macro enabled workbook format मे सेव करना है और यदि आप दूसरी कोई भी format मे सेव करते हैं तो यह फॉर्मूला काम नही करेगा इस लिए सिर्फ excel macro enabled workbook format मे सेव करे । 

 Must Read 📚

अगर आप कम्प्यूटर से ज्यादा इंट्रेस्टेड हैं तो ये भी जरूर पढ़े और अपने कम्प्यूटर ज्ञान को बढ़ाए 

• कम्प्यूटर क्या है ? सम्पूर्ण जानकरी 
• कम्प्यूटर मॉनीटर क्या है और इस के प्रकार 
• कीबोर्ड क्या है ? यह कैसे काम करता है । 
• कम्प्यूटर या लैपटॉप मे पासवर्ड कैसे लगाए 
• पीडीएफ फाइल मे पासवर्ड कैसे लगाए 
• रिमोट डेस्कटॉप कनेक्शन क्या है और यह कैसे काम करता है 
• कम्प्यूटर मेमोरी युनिट क्या है ? 
• एडिटेबल पीडीएफ फाइल कैसे बनाए 
• कम्प्यूटर मे टास्कबार क्या होता है ? 
• विन्डोज सेवन और एट मे स्क्रिन शॉट कैसे ले 

Fifth steps 

पांचवा चरण: पांचवे चरण मे आप को फॉर्मला लगाना है जिस अंक को हमे वर्ड मे कन्वर्ट करना है उस अंक को फॉर्मूले मे round bracket के अंदर लिखना है । फॉर्मूला को किसी भी सेल मे टाईप करे =RupeeFormat()

नीचे उदाहरण देखे

10 को वर्ड मे कन्वर्ट करने के लिए टाईप करे =RupeeFormat(10)

120 को वर्ड मे कन्वर्ट करने के लिए टाईप करे =RupeeFormat(120)

585 को वर्ड मे कन्वर्ट करने के लिए टाईप करे =RupeeFormat(585)

980 को वर्ड मे कन्वर्ट करने के लिए टाईप करे =RupeeFormat(980)

1256 को वर्ड मे कन्वर्ट करने के लिए टाईप करे =RupeeFormat(1256)

1965 को वर्ड मे कन्वर्ट करने के लिए टाईप करे =RupeeFormat(1965)

2056 को वर्ड मे कन्वर्ट करने के लिए टाईप करे =RupeeFormat(2056)

45870 को वर्ड मे कन्वर्ट करने के लिए टाईप करे =RupeeFormat(45870)

608934 को वर्ड मे कन्वर्ट करने के लिए टाईप करे =RupeeFormat(608934)

1099560को वर्ड मे कन्वर्ट करने के लिए टाईप करे =RupeeFormat(1099560)

अगर किसी सेल मे लिखी हुई संख्या को वर्ड मे बदलना है तो फॉर्मूला मे  bracket के अंदर उस सेल को सलेक्ट करना है या सेल का नाम टाईप करना है  ।

Number TO Word

 अच्छे से समझने के लिए निचे दिए गए विडिओ जरूर देखे