दोस्तों, अक्सर Excel हम कभी कभी ऐसे डाटा पे काम करते है जिसमे हमे किसी रुपये या नंबर को वर्ड मे बदलना होता है तो हमे खुद से उन नंबर को टेक्स्ट मे टाइप करना पड़ता है। (number to word in excel in hindi)
अगर ये एक या दो बार का काम हो तो ठीक भी है, लेकिन अगर बारबार ये काम लगातार किसी फाइल मे करना है तो ये काफी सिरदर्द भी हो सकता है।
Table of Contents
Excel में Numbers को Words में कैसे बदलें?
number to word in excel in hindi – मान लीजिए आप Excel में कोई बिल बना रहे है, और उस बिल में अमाउंट को वर्ड मे लिखना है यानि बिल का जो भी अमाउंट है उसे नंबर से वर्ड बदले, जैसे 500 को Five Hundred इस तरह और उसे प्रिन्ट करके कस्टमर को देना है, तो आपको उस बिल के अमाउन्ट को खुद से टाइप करना पड़ता है।
अब यह एक बार के लिए ठीक है, लेकिन आप लगातार कई बिल पे काम रहे है और आपको कहा गया है की बिल बनाए और उसके अमाउन्ट को टेक्स्ट यानि वर्ड मे भी लिख के प्रिन्ट करके कस्टमर को दे दे।
लेकिन अगर गलती से एक भी टायपिंग मिस्टैक या कोई गलती हो जाती है तो आपको वह काम वापस पूरी तरह से करना पड़ेगा।

और चाहे कोई भी हो, उसे एक ही काम बारबार करना पसंद नहीं होता है, यहाँ तक की मुझे भी किसी एक छोटी गलती की वजह से उसी काम को फिर करना अच्छा नहीं लगता है, इसीलिए मैं कुछ कुछ ऐसा तरीका निकाल लेता हु जिससे उसी काम को पूरी 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 को सीखना चाहते है तो वेबसाईट पे विज़िट करें।
जहां आपको 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)
- अब उस फाइल मे 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 हो जाएगा।

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

Step 3: Save Excel as XLSM
- ऊपर दिए number to word in excel in hindi के VBA कोड को Module मे Paste करने के बाद CTRL + S से इस VBA की फाइल को Save करें।
- और अभी तक की सबसे खास बात आपको अपनी Excel Save As से XLSM यानि Macro Enabled Format मे सेव करें।

Step 4: Convert number to word in excel using Numberstowords function
- अब आपका User Defined Function तैयार हो गया है अब किसी भी एक खाली सेल में, यह फार्मूला दर्ज करें =NumberstoWords(A2)। यहाँ पर A2 वह सेल है जिसमे स्थित Number को Word में बदलना चाहते हैं।
- अब आप भी सोच रहे होंगे की यह कोड करेगा क्या तो मैं इस कोड की मदत से हम Excel एक नया Function बना रहे है।

नोट: यह कोड केवल पूर्णांक संख्याओं के लिए काम करता है लेकिन 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 के एक बहुत कॉमन प्रॉब्लेम का 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 के साथ।
very useful info.. thanks for the same,.
how to convert word to number?
very useful info
please try it now
kaun sa Add in use kar rahe hai aap?