Microsoft office च्या excel मध्ये अंकाचे रूपांतर अक्षरात कसं करायचं ?

Thursday 25 February 2016

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 तयार... आहे की नाही अगदी सोपं काम.
संपुर्ण पोस्ट वाचण्यासाठी read more वर क्लीक करा ....

पध्दत:-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") If 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 करावे लागते.

**Suresh addins आणि somnath 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.यादि मधील suresh add ins / somnath addins समोरच्या चेक बॉक्सवर चेक मार्क असल्याचा खात्री करा.

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

suresh 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

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

***Somnath Add Ins

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

somnath 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()

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

सदर folder zip केलेला आहे.
file Extract करताना password विचारेल तेंव्हा password - netkari टाकून Extract करा.

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

लेखक : सोमनाथ गायकवाड

मी सोमनाथ गायकवाड,एक प्राथमिक शिक्षक म्‍हणून काम करत असताना केवळ तंत्रज्ञानाचा आवड असल्‍यामूळे शाळेत शिकवत असताना अथवा आपल्‍या दैनंदिन कामकाजात तंत्रज्ञानाचा वापर कसा करावा? या बाबत माहीती व्‍हावी या हेतुने सन २०१२ पासून या साईटच्‍या माध्‍यमातुन लेखन करत आहे.तसेच Excel मध्‍ये विविध शैक्षणिक Softwares तयार करणे आणि Photoshop व इतर तंत्रज्ञानावर आधारीत videos तयार करणे माझा छंद आहे. Read More →

14 comments:

Unknown25 February 2016 at 17:06
Very nice sir
ReplyDelete
Replies
Unknown25 February 2016 at 17:06
Very nice sir
ReplyDelete
Replies
umeshughade26 February 2016 at 05:32
Very Nice sir,
Superb information to us.
Thanks
ReplyDelete
Replies
Dilip Baviskar2 March 2016 at 15:34
छान सर
ReplyDelete
Replies
Dilip Baviskar3 March 2016 at 08:40
sir
error is
ReplyDelete
Replies
Salunke Sir17 April 2016 at 11:54
सोमनाथ सर तुमचे करी महान आहे .तुमंच्यामुळे आम्हाला नवीन तंत्रज्ञान शिकाकायला मिळते.
तुम्हाला पुढील कार्यासाठी खूप खूप शुभेच्छा.
आपला तंत्रस्नेही मित्र
सुदाम साळुंके जुन्नर पुणे
7588094067
ReplyDelete
Replies
Salunke Sir17 April 2016 at 11:56
सोमनाथ सर तुमचे कार्य महान आहे .तुमंच्यामुळे आम्हाला नवीन तंत्रज्ञान शिकाकायला मिळते.
तुम्हाला पुढील कार्यासाठी खूप खूप शुभेच्छा.
आपला तंत्रस्नेही मित्र
सुदाम साळुंके जुन्नर पुणे
7588094067
ReplyDelete
Replies
Bhaskar Gaikwad28 April 2016 at 03:17
Very good
ReplyDelete
Replies
Saradu Itwari Chiram28 May 2016 at 01:24
Very nice sir
ReplyDelete
Replies
Saradu Itwari Chiram28 May 2016 at 01:25
Very nice sir
ReplyDelete
Replies
Unknown21 August 2016 at 09:42
सर आपल्या ब्लॉग पासून नविन तंत्राज्ञान भरपुर शिकायला मिळत आहे.त्याबदल मी आपले आभार मानतो.
तसेच PC फॉरमॅटींग बाबत पण मााहीती मिळाली तर चांगले
बुटेबल पेनडाईव्ह कसा तयार करतात
ऑफीस 2010 व 2013 हे तसेच OS पण डाऊनलोड होत नाहि आहे सर
याविषयी मार्गदर्शन मिळावे हि नम्र विनंती
ReplyDelete
Replies
Unknown27 May 2017 at 22:53
Nice sir
ReplyDelete
Replies
MDLad14 September 2017 at 21:21
खूप छान माहिती मिळाली ..... computer चा वापर सोपा वाटला thanks
ReplyDelete
Replies

Add comment

Netkari (नेटकरी)

Ad 468 X 60

Thursday 25 February 2016