Learn More

Excel tips to convert number to word (1 to one) using VBA (हिन्दी)

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

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

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

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

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

Excel Tips – Number to Word

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

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

पहले तो मैंने भी काफी रिसर्च की और बाद मे इसे VBA की मदत से पूरा कर ही लिया। और फिर ऐसी प्रॉब्लेम काफी लोगों को आती होगी है।

इसीलिए आज के आर्टिकल मे आपको Excel मे नंबर को वर्ड (Number to Word) मे कैसे बदल सकते है उसकी Excel Tips बताने वाला हु।

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

Excel VBA Mastery Course in Hindi

और मैं बताऊँ आपको Excel तो आता है लेकिन VBA नहीं पता और VBA को सीखना चाहते है तो मेरा VBA Mastery Course, मेरी E-learning website Learnmorepro.com पे 50% डिस्काउंट के साथ चालू है तो आप भी अगर VBA को सीखना चाहते है तो वेबसाईट पे विज़िट करें या फिर मेरा Learn More App भी है जिसे Android Platform पे Google Play Store से डाउनलोड कर सकते है।

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

VBA Code to convert Number to Word in Excel | Excel Tips

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

सबसे पहले उस Excel फाइल ओपन कीजिये और जिसमे आप Number को Word मे बदलना चाहते है।

  • अब उस फाइल मे ALT + F11 Shortcut Keys कीजिये। (लेकिन एक बात ध्यान वाहे आपके Excel फाइल Developer Tab on होनी चाहिए तो ही VBA के ऑप्शन को आप एक्सेस कर सकेंगे)
    • यदि आपके Excel मे Developer Tab ON नहीं है तो नीचे स्टेप्स को फॉलो करें और पहले Developer Tab को ON करें।
    • File पे क्लिक करें
    • अब More > Options पे क्लिक करें।
    • Customize Ribbon पे क्लिक करें।
    • अब दाईं ओर आपको Main Tabs मे Developers का ऑप्शन मिल रहा होगा। उसके सामने के Check Box को टिक करें और OK पे क्लिक करें।
    • अब आपके Excel के Ribbon मे आपको Developers का Tab मिलेगा जहां से आप VBA के विकल्प को एक्सेस कर सकते है।
  • इसके बाद आपके सामने एक्सेल VBA Editor की स्क्रीन आ जाएगी।
  • इस बाई तरफ आपको Project Explorer दिख रहा होगा (अगर Project Explorer नहीं दिख रहा है तो View > Project Explorer या CTRL + R shortcut key प्रेस करें।)
  • अब हमे एक नया Module जोड़ना है जिसके लिए Insert > Module पे क्लिक करें। जिसके बाद एक नया Module हो जाएगा।
Excel Tips - Number to Word
Excel Tips – Number to Word
  • अब निचे दिए गए कोड को कॉपी कीजिये और उस 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
Excel Tips – Number to Word
  • इस कोड को Module मे Paste करने के बाद CTRL + S से इस VBA की फाइल को Save करें।
  • और अभी तक की सबसे खास बात आपको अपनी Excel Save As से XLSM यानि Macro Enabled Format मे सेव करें।
Excel-Tips-Number-to-Word
Excel-Tips-Number-to-Word
  • अब आपका User Defined Function तैयार हो गया है अब किसी भी एक खाली सेल में, यह फार्मूला दर्ज करें =NumberstoWords(A2)। यहाँ पर A2 वह सेल है जिसमे स्थित Number को Word में बदलना चाहते हैं।
  • अब आप भी सोच रहे होंगे की यह कोड करेगा क्या तो मैं इस कोड की मदत से हम Excel एक नया Function बना रहे है।
Excel-Tips-Number-to-Word
Excel-Tips-Number-to-Word

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

Download Code and Excel File

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

Telegram Channel

Watch Video: Excel Tips to Convert Number to Word Using VBA

Excel Tips To Convert Number To Word Using VBA

Conclusion: आपने क्या सीखा?

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

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

इसके अलावा अगर आप VBA को सीखना चाहते है तो जैसा कि मैंने ऊपर बताया लर्न मोर प्रो पे आप 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

5 thoughts on “Excel tips to convert number to word (1 to one) using VBA (हिन्दी)”

Leave a Comment