✅ सेल में चार्ट कैसे बनाएं और प्रदर्शित करें

विषय - सूची

सेल में बार चार्ट बनाने और प्रदर्शित करने के तरीके पर यह एक सरल ट्यूटोरियल है; एक तकनीक जो प्रबंधन रिपोर्ट बनाते समय बहुत अच्छी तरह से काम करती है।

कदम:

1. कॉलम A में वे मान दर्ज करें जिन्हें आप प्रदर्शित करना चाहते हैं यानी सेल A1 में मान 10 दर्ज करें, सेल A2 20 आदि में।

2. कॉलम B1 में निम्नलिखित सूत्र दर्ज करें: =REPT ("n", A1)। यह सूत्र केवल एक्सेल को सेल A1 में संख्या द्वारा " " के बीच संग्रहीत मान को दोहराने के लिए कहता है।

3. फ़ॉन्ट को "विंगडिंग्स" में बदलें।

4. कृपया संलग्न एक्सेल फाइल में उदाहरण 1 देखें।

5. क्या आप बार चार्ट की लंबाई को कम करना चाहते हैं, बस उपरोक्त सूत्र में "ए 1" को 10 से विभाजित करें या जो भी संख्या सबसे अधिक समझ में आता है। उदाहरण के तौर पर, सूत्र इस तरह दिखेगा =REPT ("n", A1/10)। संलग्न एक्सेल फ़ाइल में उदाहरण 2 देखें।

यह ध्यान दिया जाना चाहिए कि उपरोक्त सूत्र में "एन" को बदलकर आप विभिन्न छवियों को प्रदर्शित कर सकते हैं। उदाहरण के लिए, कैपिटल "J" एक मुस्कुराता हुआ चेहरा प्रदर्शित करेगा जबकि एक कैपिटल "L" एक उदास चेहरा प्रदर्शित करेगा। संलग्न एक्सेल फ़ाइल में उदाहरण 3 देखें।

नकारात्मक मूल्यों से निपटना

जब आप सकारात्मक मूल्यों के साथ काम कर रहे हों तो उपरोक्त सूत्र अच्छी तरह से काम करते हैं। हालांकि, यदि कॉलम ए में मान नकारात्मक है तो कॉलम बी में ग्राफ कई अलग-अलग प्रतीकों से बने स्ट्रिंग में बदल जाएगा जिससे वांछित प्रभाव खो जाएगा (संलग्न स्प्रेडशीट में उदाहरण 4 देखें)।

इस सीमा को दूर करने का एक तरीका IF स्टेटमेंट के माध्यम से है जैसे:

=IF(A21<0,REPT("n",ABS(A21/10)),REPT("n",A21/10))

उपरोक्त सूत्र की व्याख्या:

1. मान लें कि आप जिस मान को बार ग्राफ में दिखाने का प्रयास कर रहे हैं वह सेल A21 में स्थित है। यह मान भी ऋणात्मक है।

2. सूत्र यह कहकर शुरू होता है कि यदि A21 में मान 0 से कम है अर्थात ऋणात्मक है, तो सेल A21 में निहित निरपेक्ष मान (ABS) द्वारा "n" दोहराएं और फिर इस संख्या को 10 से विभाजित करें। निरपेक्ष मान का उपयोग करके आप हैं एक्सेल को ऋणात्मक चिह्न को अनदेखा करने और संख्या को सकारात्मक मान के रूप में मानने के लिए कहें।

3. सूत्र का अगला भाग एक्सेल को बताता है कि यदि मान 0 से अधिक है तो क्या करना चाहिए।

4. कृपया संलग्न फाइल में उदाहरण 4 देखें।

उपरोक्त में दिलचस्प जोड़ यह होगा कि ग्राफ़ के रंग को नकारात्मक मानों के लिए लाल और सकारात्मक मानों के लिए नीले रंग में बदलने के लिए सशर्त स्वरूपण का उपयोग किया जाए। अपनी कल्पना को आपका मार्गदर्शन करने दें!

निम्नलिखित ट्यूटोरियल वर्णन करेगा कि "रुझान" कॉलम के तहत उपरोक्त तालिका में प्रदर्शित एक सेल में चार्ट कैसे बनाया जाए।

चार्ट "सेल चार्ट" नामक फ़ंक्शन का उपयोग करके बनाया गया है। आप इसे एक्सेल में किसी भी अन्य मानक फ़ंक्शन यानी SUM, AVERAGE या VLOOKUP आदि की तरह दर्ज करेंगे। इस फ़ंक्शन को "उपयोगकर्ता परिभाषित फ़ंक्शन" कहा जाता है और यह Microsoft Excel के भीतर उपलब्ध एक मानक फ़ंक्शन नहीं है। इसे उपयोगकर्ता द्वारा VBA का उपयोग करके बनाया जाना चाहिए।

जब एक्सेल में प्रवेश किया जाता है, तो सेल चार्ट फ़ंक्शन इस तरह दिखता है:

सेल चार्ट फ़ंक्शन पर करीब से नज़र डालते हुए, चार्ट के लिए श्रेणी को फ़ंक्शन के पहले भाग में परिभाषित किया गया है, C3:F3 ऊपर के उदाहरण में। इसके बाद चार्ट का रंग परिभाषित किया गया है, 203 ऊपर दिए गए उदाहरण का उपयोग करते हुए।

अब वीबीए सामान के लिए

1. शीट के नाम पर राइट क्लिक करके और "कोड देखें" का चयन करके या "ALT, F11" का चयन करके VBA प्रोजेक्ट विंडो दर्ज करें।

2. दाईं ओर, अपने प्रोजेक्ट के नाम पर राइट क्लिक करें और इनसेट "मॉड्यूल" चुनें।

3. आपके द्वारा अभी बनाए गए नए मॉड्यूल में निम्नलिखित कोड को कॉपी और पेस्ट करें:

'सेल चार्ट फंक्शन सेल चार्ट (प्लॉट्स अस रेंज, कलर अस लॉन्ग) एज़ स्ट्रिंग' नामक एक नया फंक्शन बनाता है 'वेरिएबल्स को परिभाषित करता है जो बाद में कोड में उपयोग किए जाएंगे Const cMargin = 2 Dim rng As Range, arr() वैरिएंट के रूप में, i जितना लंबा, j जितना लंबा, k जितना लंबा मंद dblMin डबल, dblMax डबल, shp जैसा आकार 'निम्नलिखित चार्ट के लिए उपयोग किए जाने वाले भूखंडों की गणना करता है सेट आरएनजी = एप्लिकेशन। कॉलर शेपडिलीट आरएनजी फॉर आई = 1 टू प्लॉट्स। काउंट यदि j = 0 तब j = i अन्यथा यदि प्लॉट (, j) > प्लॉट (, i) तो j = i समाप्त होता है यदि k = 0 तो k = i अन्यथा यदि प्लॉट (, k) 
 0 फिर .Line.ForeColor.RGB = Color Else. रेंज के रूप में मंद rng, आकार के रूप में blnDelete बूलियन के रूप में rngSelect.Worksheet.Shapes में प्रत्येक shp के लिए blnDelete = गलत सेट rng = इंटरसेक्ट (रेंज (shp.TopLeftCell, shp.bottomRightCell), rngSelect) यदि नहीं rng कुछ भी नहीं है तो यदि rng पता = रेंज (shp.TopLeftCell, shp.BottomRightCell)। पता फिर blnDelete = True End यदि blnDelete है तो shp। अगला अंत उप हटाएं

4. सेव बटन पर क्लिक करें।

5. VBA प्रोजेक्ट विंडो से बाहर निकलने के लिए और एक्सेल पर वापस जाने के लिए "फाइल" मेनू के नीचे शीर्ष दाईं ओर छोटे एक्सेल आइकन पर क्लिक करें।