Tuesday, April 20, 2021
spot_img

एक्सेल में नंबर को वर्ड में लिखने के लिए | Excel tips to convert Number to word

एक्सेल में नंबर को वर्ड में लिखने के लिए | Excel tips to convert Number to word

अगर आप एक्सेल में कोई बिल बनाना है, और उस बिल में अमाउंट इन वर्ड्स लिखना है याने की बिल को जो भी अमाउंट है वो वर्ड में प्रिंट हो जाये तो बस निचे दिए गए स्टेप्स फॉलो कीजियेगा |
१) सबसे पहले एक एक्सेल फाइल ओपन कीजिये और उसके अंदर ALT + F11 प्रेस कीजिये |

२) इसके बाद आपके सामने एक्सेल VBA स्क्रीन आ जाएगी |

३) इस विंडो में नया MODULE  इन्सर्ट कीजिये |

४) निचे दिया गया कोड कॉपी कीजिये और उस MODULE में पेस्ट कीजिये |

Copy Below Program of VBA :

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
५) इस कोड को हमेशा एक्सेल फाइल में फिक्स बनाने के लिए निचे दिया गया वीडियो आप देख सकते है |

- Advertisement -
Avatar
Satish Dhawalehttp://learnmorepro.com
Satish Dhawale has 14 years experience as Computer Trainer. He is a Successful YouTuber having 7+ YouTube Channels. Recently He founded LEARN MORE PRO (Website) and MAZA COURSE (Android Application), Educational Platform for online computer courses with at fair and cheap price in regional Hindi And Marathi languages.

10 COMMENTS

  1. When I doing the same in PC its not working…Can You Guide me..

  2. i have saved add-ins file as NUMTOWORD"after press "=" to begin formula its not appearing any formula such as =numtoword it show #name# error

  3. Dear sir,
    your VBA code does not working properly.

    When I type the formula "=SpellNumber(343890)" then showing this type result….

    "three hundred forty-three thousand eight hundred ninety".
    So, Kindly solve this problem.

LEAVE A REPLY

Please enter your comment!
Please enter your name here

Must Read

जानिए MS Excel के Extensions बारे में

MS Excel Extension दोस्तों आज के समय में MS Excel का उपयोग हर कोई करता है चाहे वह Data Entry के लिए हो या Data...
- Advertisment -

Popular

टाइपिंग स्पीड बढ़ाने के लिए ये सात टिप्स

टाइपिंग स्पीड बढ़ाने के लिए ये सात टिप्स | Typing tips to increase speed  आजकल हर कोई कंप्यूटर में जॉब करना चाहता है ?, पर...

31 Excel Powerful Formulas

31 Excel Powerful Formulas Explain in Hindi इस ब्लॉग में वो ३१ फार्मूला है एक्सेल के जो हमे हर ऑफिस यूज़फुल होते है तो इन...

MSCIT Theory Questions Marathi – Part 3

प्रश्न १. मॉनिटरच्या स्क्रीनवरील एखाद्या प्रतिमेच्या आऊटपुटला नेहमी सॉफ्टकॉपी म्हटले जाते.       चूक       बरोबर उत्तर तपासा ! प्रश्न २. हेडफोन ही एक...

Hindi, Marathi typing ISM Software Free download

Hindi, Marathi typing ISM Software Free download अगर हिंदी  या मराठी टाइपिंग सीखना चाहते हो  इसके लिए आपको एक सॉफ्टवेयर आपने लैपटॉप या कंप्यूटर में...

Video Editing Tutorial Download Files

Video Editing Tutorial Download Files तो सभी फाइल्स डाउनलोड के लिए निचे दिए गए लिंक्स पे क्लिक कर सकते है और निचे टॉपिक्स भी दिए...
- Advertisment -

Technology

Personalize

Windows 10 के 12 Personalize Tips हिन्दी मे।

क्या आप भी अपने कंप्युटर मे विंडोज़ 10 का उपयोग करते है? जी हाँ बिल्कुल करते ही होंगे क्युकी आज के समय मे विंडोज़...
WhatsApp

बिना मोबाइल नंबर सेव किये WhatsApp पे मैसेज भेजे

दोस्तों WhatsApp आज के समय में एक ऐसा App है। जो हर कोई अपने मोबाइल में इस्तेमाल करता है। इसे चाहे दोस्तों को मैसेज...
What is Domain Name

Domain Name क्या होता है?

What is Domain Name explained in Hindi? नमस्कार दोस्तों आज के इस ब्लॉग में हम Domain क्या है और इसका उपयोग क्यों होता है? यह...
Whats-App Trick

WhatsApp Texting Tips and Tricks in Hindi

WhatsApp में किसी Text को bold कैसे करे? | How to make text bold in WhatsApp explained in Hindi? WhatsApp एक बिल्ट-इन फीचर के साथ...
Lost Mobile phone

मोबाइल खो जाने पर क्या करे?

How to find or lock lost Mobile Phone? अक्सर हमारे साथ ऐसा होता है, जब हमने अपना फोन किसी स्थान पर खो दिया है...
- Advertisment -