Microsoft office च्या excel मध्ये अंकाचे रूपांतर अक्षरात करण्याची पध्दती.

Microsoft office सॉफ्टवेयर ऑफिसच्या कामासाठी तसेच फक्त कागदी कामकाज करण्यासाठी वापरला जातो हा समज आता मागे पडला आहे. या सॉफ्टवेयरचा वापर दिवसेंदिवस इतर अन्य क्षेत्रातही वाढत आहे. यामध्ये लेटर, नोट्स, टॅक्स, सेमीनार, व्यावसायिक प्रेजेन्टेशन पासून ते थेट विद्यार्थ्याना शिकविण्यासाठी प्रभाविपणे वापर केला जात आहे. यामध्ये Excel हा अनेक आकडेमोड अथवा टेबल स्वरूपाचे फॉर्मेट्स तयार करण्यासाठी वापरला जातो यामध्ये अनेक functions आहेत त्याद्वारे अनेक गणिती क्रिया, गुंतागुंतीची आकडेमोड करणे सहज शक्य होते. उदा. If, Sum, countif, vlookup, max, min, index, date, day ..... असे अनेक functions आहेत function चा यादी केल्यास संपुर्ण पेज भरून जाईल. यामध्ये कांही function रोजच वापरावे लागतात तर कांही कधीतरी उपयोगी पडतात. एकूणच excel मधील function मुळे अवघड वाटणारे आकडेमोडही चुटकी सरशी पूर्ण करता येते.

          Excel मध्ये सर्व कांही अनेक फंक्शनच्या सहाय्याने करता येते मात्र अंक अक्षरात रूपांतर करण्यासाठी मात्र तारेवरची कसरत करावी लागते. म्हणजे function वापरून सहजा सहजी शक्य होत नाही. मग कसं करायच ?? असा प्रश्न तुम्हाला कधाचित पडला असेल नाही का ...

यासाठीच हा लेखन प्रपंच...

अगदी सोपं काम करायच आहे मित्रानो, मी खाली एक VBA कोड देणार आहे ते फक्त कॉपी करायचं आणि मी सांगतो त्या ठिकाणी पेस्ट करायचं झालं... नवीन function तयार... आहे की नाही अगदी सोपं काम.

पध्दत:-1

1. Microsoft office चा excel ओपन करा किंवा ज्या sheet मध्ये अंकाचे रूपांतर अक्षरात करायचं आहे ते शीट ओपन करा.

2. की बोर्डवरील ऑल्ट आणि F11 function key प्रेस करा. VBA एडिटर ओपन होईल. (Alt +F11)

3. insert वर क्लीक करा आणि त्यामध्ये module निवडा.

4. एक blank page ओपन होईल. आता या पेजवर खालील vba कोड कॉपी करून पेस्ट करा झालं.

5.VBA एडिटर close करा. तुम्ही सुरवातीला उघडलेला एक्सेल शीट दिसेल आता यामध्ये =spellnumber() टाइप करा. आणि कोणत्याही अंकाचे रूपांतर अक्षरात करा.

6.अत्यंत महत्त्वाचे :- हा function फक्त या file मध्येच वापरता येईल. दुसऱ्या file साठी वापरताना परत त्याच्या vba एडिटर मध्ये कोड पेस्ट करावे लागेल. सदर file save करताना मात्र file type नेहमी excel workbook म्हणून असते ते बदलून excel micro enabled workbook म्हणून save करावे लागेल.

VBA Code

Function SpellNumber(amt As Variant) As Variant Dim FIGURE As Variant Dim LENFIG As Integer Dim i As Integer Dim WORDs (19) As String Dim tens(9) As String WORDs(1) = "One" WORDs(2) = "Two" WORDs(3) = "Three" WORDs(4) = "Four" WORDs(5) = "Five" WORDs(6) = "Six" WORDs(7) = "Seven" WORDs(8) = "Eight" WORDs(9) = "Nine" WORDs(10) = "Ten" WORDs(11) = "Eleven" WORDs(12) = "Twelve" WORDs(13) = "Thirteen" WORDs(14) = "Fourteen" WORDs(15) = "Fifteen" WORDs(16) = "Sixteen" WORDs(17) = "Seventeen" WORDs(18) = "Eighteen" WORDs(19) = "Nineteen" tens(2) = "Twenty" tens(3) = "Thirty" tens(4) = "Fourty" tens(5) = "Fifty" tens(6) = "Sixty" tens(7) = "Seventy" tens(8) = "Eighty" tens(9) = "Ninety" FIGURE = amt FIGURE = Format(FIGURE, "FIXED") FIGLEN = Len(FIGURE) If FIGLEN < 12 Then FIGURE = Space(12 - FIGLEN) & FIGURE End If If Val(Left(FIGURE, 9)) > 1 Then SpellNumber = "Rupees " ElseIf Val(Left(FIGURE, 9)) = 1 Then SpellNumber = "Rupee " End If For i = 1 To 3 If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens (Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If If i = 1 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Crore " ElseIf i = 2 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Lakh " ElseIf i = 3 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & " Thousand " End If FIGURE = Mid(FIGURE, 3) Next i If Val(Left(FIGURE, 1)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 1))) + " Hundred " End If FIGURE = Mid(FIGURE, 2) If Val(Left(FIGURE, 2)) < 20 And Val (Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs(Val(Right(Left(FIGURE, 2), 1))) End If FIGURE = Mid(FIGURE, 4) If Val(FIGURE) > 0 Then SpellNumber = SpellNumber & " Paise " If Val(Left(FIGURE, 2)) < 20 And Val(Left(FIGURE, 2)) > 0 Then SpellNumber = SpellNumber & WORDs(Val(Left(FIGURE, 2))) ElseIf Val(Left(FIGURE, 2)) > 19 Then SpellNumber = SpellNumber & tens(Val(Left(FIGURE, 1))) SpellNumber = SpellNumber & WORDs (Val(Right(Left(FIGURE, 2), 1))) End If End If FIGURE = amt FIGURE = Format(FIGURE, "FIXED") I f Val(FIGURE) > 0 Then SpellNumber = SpellNumber & " Only " End If End Function

पध्दत :-2

वरील क्रिया अवघड वाटत असेल तर addins द्वारेही अंकाचे रूपांतर अक्षरात सहज करता येते. मात्र ज्या pc वर सदर add in save असेल त्याच pc वर सदर function वापरता येते. एखाद्या file मध्ये add ins द्वारे क्रिएट केलेला एखादा फॉर्मूला दुसऱ्या संगणकात वापरताना एरर येईल कारण त्या pc वर पण सदर add in save करावे लागते.

**Kamraj Addins आणि Amol add ins नावाचे अतिशय लहान size मध्ये add ins उपलब्ध आहेत. file size 16 ते 17 kb पर्यन्त आहे. त्याचा डायरेक्ट लिंक खाली देत आहे डाउनलोड करून घ्या आणि वापरा.

सदर add in कसे इनस्टॉल करायचं अथवा activate करायचं ???

1.excel file ओपन करा.

2.file वर क्लीक करा. यामध्ये option पर्याय निवडा.

3.add -ins म्हणून एक पर्याय दिसेल त्यावर क्लीक करा.

4.सर्वात शेवटी manage म्हणून एक पर्याय दिसेल त्याच्या समोर एक बॉक्स दिसेल त्यामध्ये excel add ins असल्याची खात्री करून GO वर क्लीक करा.

5.add ins ची यादी दिसेल browse बटनवर क्लीक करून डाउनलोड करून घेतलेला file म्हणजे add ins चा path द्या. ओके करा.

6.यादि मधील Kamraj add ins / Amol addins समोरच्या चेक बॉक्सवर चेक मार्क असल्याचा खात्री करा.

महत्त्वाचे:-एका ठिकाणी ठेवलेला add ins नंतर दुसरीकडे हलवू नका.

Kamraj add ins चा वापर कसं करायचं ??

या मध्ये एकूण 3 फंक्शन चा वापर केलेला आहे.

1.INR()

2.REVINR()

3.RSWORDS()

=INR() या function चा वापर असं करता येईल 

समजा C2 सेल मध्ये 11213 अंक आहे.

D2     =INR(C2) केल्यास Rs.11,213.00 असे    रूपांतर होईल.

        मात्र या मध्ये रूपांतर केल्यावर वरील अंकाचा बेरीज अथवा इतर फंक्शनचा वापर करता येत नाही. त्यासाठीच REVINR function दिलेला आहे.

E2      =REVINR(D2)+1000

उत्तर 12213 येईल.

=RSWORDS(C2)

Rupees Eleven Thousand Two Hundred thirteen only.

आहे की अतिशय साधा आणि सोपं add ins 

Kamraj addins डाउनलोड करण्यासाठी येथे click करा.

***Amol Add Ins

वरील सर्व function मध्ये अंकाचे रूपांतर Ruppes .... only या फॉर्मेटमध्ये तयार होतात. कांही वेळेला फक्त अंकाचे रूपांतर अक्षरात करायचे झाल्यास अडचण येते म्हणून मी अजुन एक add ins तयार केलेला आहे त्याचं नाव आहे Amol add ins.

Amol addins चा वापर कसं करायचं ???

1. add ins इनस्टॉल करण्यासाठी वर सांगितल्या प्रमाणे करा.

add ins इनस्टॉल केल्यानंतर 

excel sheet ओपन करून त्यामध्ये....

1.    =NumInWords()

समजा C2 मध्ये 10204 आहे

=NumInWords(C2) 

उत्तर =Ten Thousands two Hundred Four 

2.     =NumInWordRs()

=NumInWordRs(C2)

उत्तर-Rupees Ten Thousands two Hundred Four only 

या add ins मध्ये दोन function दिलेला आहे.

1. NumInWords()

2. NumInWordRs()

Amol add ins Download करण्यासाठीयेथे क्लीक करा.

सदर पोस्ट कसं वाटलं ? कॉमेंट बॉक्समध्ये लिहायला विसरु नका. तुमचं एक कॉमेंट असेच नवीन idia देईल आणि नवीन काही तरी लिहिण्याचा नक्कीच प्रेरणा मिळेल तेंव्हा आपले feedback आवश्य लिहा.