सेल कॉलम चार्ट में बनाएँ - एक्सेल टिप्स

चेक गणराज्य के एक पाठक ने प्रतिशत बताने के लिए इन-सेल चार्ट बनाने के बारे में पूछा।

यदि एक सेल में मूल्य 37% था, तो मैं नीचे से 37% सेल को एक रंग के साथ कैसे भर सकता हूं?

हमारे ग्राफिक्स डिवीजन से माला सिंह वांछित प्रभाव पैदा करने के लिए इस दिलचस्प समाधान के साथ आए थे। माला ने एक वर्कशीट बनाई जहां प्रत्येक पंक्ति वास्तव में 2 मर्ज की गई पंक्तियों से युक्त होती है। सेल B2 और B3 एक सेल में एक साथ विलय होते हैं। जब B2 में मान को बदल दिया जाता है, तो वर्कशीट फलक में VBA कोड का थोड़ा सा भाग स्वचालित रूप से पंक्ति 2 और पंक्ति 3 की ऊंचाई को समायोजित कर देगा। सेल C3 का रंग नीला और सेल C2 का रंग सफेद है। इसका प्रभाव यह है कि स्तंभ C सेल में एक कॉलम चार्ट दिखाता है। यह छवि C2 के माध्यम से कोशिकाओं C2 में नीली पट्टी की विभिन्न ऊंचाइयों को दिखाती है।

पहला कदम बी 2 और बी 3 को एक सेल में विलय करना है। आप बी 2 और बी 3 का चयन करेंगे। मेनू से, फ़ॉर्मेट, सेल चुनें। Alignment टैब पर जाएं। मर्ज कोशिकाओं के लिए बॉक्स की जाँच करें। इससे बी 2 और बी 3 बी 2 नामक एकल कोशिका के रूप में कार्य करेंगे।

सेल C2 को बिना किसी फिल के छोड़ें और सेल C3 के लिए किसी भी रंग के फिल का उपयोग करें।

इस तकनीक के लिए कोड एक नियमित मॉड्यूल में नहीं रखा गया है। यह "ईवेंट हैंडलर" कोड है और इस विशेष वर्कशीट के लिए कोड मॉड्यूल पर रखा जाना चाहिए। किसी कार्यपत्रक के लिए कोड मॉड्यूल को कैसे खोलें के दृश्य के लिए एक्सेल हैडर लेख में पथ और फ़ाइल नाम जोड़ने के लिए इवेंट मैक्रो पढ़ें।

Sheet1 के लिए कोड मॉड्यूल पर निम्नलिखित कोड दर्ज करें (या जो भी शीट आप के साथ काम कर रहे हैं)।

Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Target.Cells If cell.Column = 2 And cell.Row> 1 Then If cell.Value> 1 Or cell.Value < 0 Then cell.Select MsgBox ("Value must be between 0 and 100%") End If If IsEmpty(cell) Or cell.Value = 0 Then cell.Range("B1:B2").RowHeight = 25 'cell.Range("B2").Interior.ColorIndex = xlNone Else On Error Resume Next cell.Range("B1").RowHeight = 50 * (1 - cell.Value) With cell.Range("B2") .RowHeight = 50 * cell.Value '.Interior.Color = RGB(0, 0, 255) On Error GoTo 0 End With End If End If Next End Sub

आप स्तंभ B में कोशिकाओं के जोड़े के विलय की प्रक्रिया को दोहरा सकते हैं।

इस समाधान के लिए माला सिंह का धन्यवाद। माला किसी भी जरूरत को पूरा करने के लिए कस्टम चार्टिंग समाधान डिजाइन कर सकते हैं। उन्होंने एक्वा के लिए VBA और मैक्रोज़ में चार्टिंग अध्याय में योगदान दिया।