Learn More

How to convert number to words in excel in rupees in Hindi | Free excel file download

convert number to words in excel file download

दोस्तों, अक्सर Excel हम कभी कभी ऐसे डाटा पे काम करते है जिसमे हमे किसी रुपये या नंबर को वर्ड मे बदलना होता है तो हमे खुद से उन नंबर को टेक्स्ट मे टाइप करना पड़ता है। (number to word in excel in hindi)

अगर ये एक या दो बार का काम हो तो ठीक भी है, लेकिन अगर बारबार ये काम लगातार किसी फाइल मे करना है तो ये काफी सिरदर्द भी हो सकता है।

Excel में Numbers को Words में कैसे बदलें?

number to word in excel in hindi – मान लीजिए आप Excel में कोई बिल बना रहे है, और उस बिल में अमाउंट को वर्ड मे लिखना है यानि बिल का जो भी अमाउंट है उसे नंबर से वर्ड बदले, जैसे 500 को Five Hundred इस तरह और उसे प्रिन्ट करके कस्टमर को देना है, तो आपको उस बिल के अमाउन्ट को खुद से टाइप करना पड़ता है।

अब यह एक बार के लिए ठीक है, लेकिन आप लगातार कई बिल पे काम रहे है और आपको कहा गया है की बिल बनाए और उसके अमाउन्ट को टेक्स्ट यानि वर्ड मे भी लिख के प्रिन्ट करके कस्टमर को दे दे।

लेकिन अगर गलती से एक भी टायपिंग मिस्टैक या कोई गलती हो जाती है तो आपको वह काम वापस पूरी तरह से करना पड़ेगा।

convert number to word in excel in hindi
convert number to word in excel in hindi

और चाहे कोई भी हो, उसे एक ही काम बारबार करना पसंद नहीं होता है, यहाँ तक की मुझे भी किसी एक छोटी गलती की वजह से उसी काम को फिर करना अच्छा नहीं लगता है, इसीलिए मैं कुछ कुछ ऐसा तरीका निकाल लेता हु जिससे उसी काम को पूरी Quality के साथ एक ही बार मे कर दिया जाए।

ऐसे ही एक रीक्वेस्ट मुझे मेरे स्टूडेंट से मिली थी की Excel मे किसी नंबर को फार्मूला या किसी तरीके से वर्ड मे कैसे बदला जा सकते है?

पहले तो मैंने भी काफी रिसर्च की और बाद मे इसे VBA की मदत से पूरा कर ही लिया। और फिर ऐसी प्रॉब्लेम काफी लोगों को आती होगी है। इसीलिए आज के आर्टिकल मे आपको Excel मे नंबर को वर्ड (Number to Word) मे कैसे बदल सकते है उसकी Excel Tips बताने वाला हु।

चूंकि इस Excel Tips मे VBA का इस्तेमाल किया गया है और काफी लोग को VBA की जानकारी नहीं तो गलती होने संभावना हो सकती है तो यही कहूँगा इस आर्टिकल को ध्यान से पहले पढे फिर इसे अपने Excel मे number to word in excel in hindi के लिए ट्राइ करें।

Excel VBA Mastery Course in Hindi

और मैं बताऊँ आपको Excel तो आता है लेकिन VBA नहीं पता और VBA को सीखना चाहते है तो मेरा VBA Mastery Course, मेरी E-learning website CoursePe.com पे डिस्काउंट के साथ चालू है तो आप भी अगर VBA को सीखना चाहते है तो वेबसाईट पे विज़िट करें।

Excel VBA programming course in hindi

जहां आपको Course सेक्शन मे VBA Mastery Course मिलेगा उसे Enroll करें और Enroll करते समय वेबसाईट पे बताए गए कूपन कोड का इस्तेमाल करे जिससे आपको डिस्काउंट मिल सकता है।

Step 1 : Create new module in VBA editor

तो अब अपनी Excel शीट मे निचे दिए गए स्टेप्स फॉलो कीजिये और Number को Word मे बदले:

सबसे पहले उस Excel फाइल ओपन कीजिये और जिसमे आप Number को Word मे बदलना चाहते है। (number to word in excel in hindi)

convert number to word in excel in hindi

Step 2: Copy & paste below code in Module

अब निचे दिए गए number to word in excel in hindi कोड को कॉपी कीजिये और उस MODULE में पेस्ट कर दीजिए।

Function SpellNumber(ByVal N As Currency) As String

   Const Thousand = 1000@
   Const Million = Thousand * Thousand
   Const Billion = Thousand * Million
   Const Trillion = Thousand * Billion

   If (N = 0@) Then SpellNumber = "zero": Exit Function
   Dim Buf As String: If (N < 0@) Then Buf = "negative " Else Buf = ""
   Dim Frac As Currency: Frac = Abs(N - Fix(N))
   If (N < 0@ Or Frac <> 0@) Then N = Abs(Fix(N))
   Dim AtLeastOne As Integer: AtLeastOne = N >= 1

   If (N >= Trillion) Then
      Buf = Buf & SpellNumberDigitGroup(Int(N / Trillion)) & " trillion"
      N = N - Int(N / Trillion) * Trillion
      If (N >= 1@) Then Buf = Buf & " "
   End If


   If (N >= Billion) Then
      Buf = Buf & SpellNumberDigitGroup(Int(N / Billion)) & " billion"
      N = N - Int(N / Billion) * Billion
      If (N >= 1@) Then Buf = Buf & " "
   End If


   If (N >= Million) Then
      Buf = Buf & SpellNumberDigitGroup(N Million) & " million"
      N = N Mod Million
      If (N >= 1@) Then Buf = Buf & " "
   End If


   If (N >= Thousand) Then
      Buf = Buf & SpellNumberDigitGroup(N Thousand) & " thousand"
      N = N Mod Thousand
      If (N >= 1@) Then Buf = Buf & " "
   End If


   If (N >= 1@) Then
      Buf = Buf & SpellNumberDigitGroup(N)
   End If


   SpellNumber = Buf
End Function


Private Function SpellNumberDigitGroup(ByVal N As Integer) As String


   Const Hundred = " hundred"
   Const One = "one"
   Const Two = "two"
   Const Three = "three"
   Const Four = "four"
   Const Five = "five"
   Const Six = "six"
   Const Seven = "seven"
   Const Eight = "eight"
   Const Nine = "nine"
   Dim Buf As String: Buf = ""
   Dim Flag As Integer: Flag = False


   Select Case (N 100)
      Case 0: Buf = "": Flag = False
      Case 1: Buf = One & Hundred: Flag = True
      Case 2: Buf = Two & Hundred: Flag = True
      Case 3: Buf = Three & Hundred: Flag = True
      Case 4: Buf = Four & Hundred: Flag = True
      Case 5: Buf = Five & Hundred: Flag = True
      Case 6: Buf = Six & Hundred: Flag = True
      Case 7: Buf = Seven & Hundred: Flag = True
      Case 8: Buf = Eight & Hundred: Flag = True
      Case 9: Buf = Nine & Hundred: Flag = True
   End Select


   If (Flag <> False) Then N = N Mod 100
   If (N > 0) Then
      If (Flag <> False) Then Buf = Buf & " "
   Else
      SpellNumberDigitGroup = Buf
      Exit Function
   End If


   Select Case (N 10)
      Case 0, 1: Flag = False
      Case 2: Buf = Buf & "twenty": Flag = True
      Case 3: Buf = Buf & "thirty": Flag = True
      Case 4: Buf = Buf & "forty": Flag = True
      Case 5: Buf = Buf & "fifty": Flag = True
      Case 6: Buf = Buf & "sixty": Flag = True
      Case 7: Buf = Buf & "seventy": Flag = True
      Case 8: Buf = Buf & "eighty": Flag = True
      Case 9: Buf = Buf & "ninety": Flag = True
   End Select


   If (Flag <> False) Then N = N Mod 10
   If (N > 0) Then
      If (Flag <> False) Then Buf = Buf & "-"
   Else
      SpellNumberDigitGroup = Buf
      Exit Function
   End If


   Select Case (N)
      Case 0:
      Case 1: Buf = Buf & One
      Case 2: Buf = Buf & Two
      Case 3: Buf = Buf & Three
      Case 4: Buf = Buf & Four
      Case 5: Buf = Buf & Five
      Case 6: Buf = Buf & Six
      Case 7: Buf = Buf & Seven
      Case 8: Buf = Buf & Eight
      Case 9: Buf = Buf & Nine
      Case 10: Buf = Buf & "ten"
      Case 11: Buf = Buf & "eleven"
      Case 12: Buf = Buf & "twelve"
      Case 13: Buf = Buf & "thirteen"
      Case 14: Buf = Buf & "fourteen"
      Case 15: Buf = Buf & "fifteen"
      Case 16: Buf = Buf & "sixteen"
      Case 17: Buf = Buf & "seventeen"
      Case 18: Buf = Buf & "eighteen"
      Case 19: Buf = Buf & "nineteen"
   End Select


   SpellNumberDigitGroup = Buf


End Function
Excel Tips – Number to Word

Step 3: Save Excel as XLSM

Excel-Tips-Number-to-Word

Step 4: Convert number to word in excel using Numberstowords function

Excel-Tips-Number-to-Word

नोट: यह कोड केवल पूर्णांक संख्याओं के लिए काम करता है लेकिन Decimal Numbers (दशमलव संख्याओं) पर लागू नहीं होता है।

Download VBA Code and Excel File for Practice

यदि आप अलग से number to word in excel in hindi के VBA Code और इसकी Excel File (कोड के साथ) Download करना चाहते है तो आप हमारे Telegram Channel: Learn More India से इसे download कर सकते है।

Watch Video: Excel Tips to number to word in excel in hindi

number to word in excel in hindi

निष्कर्ष: आपने क्या सीखा?

दोस्तों, इस आर्टिकल मे हमने number to word in excel in hindi के एक बहुत कॉमन प्रॉब्लेम का VBA की मदत से सोल्यूशंस निकाल जिसमे हमने अपना खुद का एक User Defined Function बनाया।

जिससे हमने Excel मे किसी भी नम्बर को वर्ड मे आसानी से बदल सकते है। जिसके लिए मैंने number to word in excel in hindi के VBA कोड को भी दिया और साथ मे मेरे Telegram channel से आप Excel File भी download कर सकते है।

इसके अलावा अगर आप VBA को सीखना चाहते है तो जैसा कि मैंने ऊपर बताया CoursePe पे आप VBA Mastery Course को Enroll कर सकते है।

जहां लगभग 50% तक का ऑफर चल रहा है इस कोर्स मे आप VBA के Introduction से Variables, Data Types, Class, Object, Loop, IF, Userform, User Defined Function, Web Scrapping जैसी ढेर सारे टॉपिक को सीखेंगे और वो भी Practice File के साथ।

Spread the love
Exit mobile version