एक्सेल में वर्ड क्लाउड - एक्सेल VBA के साथ वर्ड क्लाउड कैसे बनाएं?

वर्ड क्लाउड को एक्सेल में टैग क्लाउड के रूप में भी जाना जाता है जो विभिन्न रंगों या स्वरूपों में एक्सेल में पाठ का एक दृश्य प्रतिनिधित्व है, एक शब्द क्लाउड में काम के प्रतिनिधित्व की आवृत्ति शब्द के फ़ॉन्ट द्वारा परिभाषित की जाती है, इसका उपयोग करके बनाया गया है स्मार्ट आर्ट और आकार एक्सेल की सुविधा।

एक्सेल में वर्ड क्लाउड क्या है?

एक्सेल में विज़ुअलाइज़ेशन के रूप में दिखाने के लिए वर्ड क्लाउड शब्दों का संग्रह है। मुझे आशा है कि आपने एक्सेल में संख्याओं और रचनात्मक विज़ुअलाइज़ेशन के साथ कुछ बेहतरीन डैशबोर्ड देखे होंगे। डैशबोर्ड आकर्षक रंगों के साथ उत्तम दर्जे के फोंट से लेकर हैं जिसमें इसके साथ कुछ सुपर स्टफ चित्र हैं। अजीबोगरीब डैशबोर्ड में से एक जिसे आपने "वर्ड क्लाउड" के साथ देखा होगा । यह एक परिष्कृत सॉफ्टवेयर डाउनलोड की गई छवि की तरह दिखता है, लेकिन इसे एक्सेल वीबीए कोडिंग के साथ कहीं से भी डाउनलोड नहीं किया जाता है। हाँ!!! तुम सही हो। यह VBA कोडिंग द्वारा बनाया गया है, और इस लेख में, हम आपको दिखाएंगे कि एक्सेल के साथ इस तरह के शब्द क्लाउड कैसे बनाएं।

एक्सेल में वर्ड क्लाउड कैसे बनाएं?

एक्सेल में एक शब्द क्लाउड बनाने के लिए, हमें शब्दों का डेटा होना चाहिए और उन शब्दों के लिए हमें कौन से रंग चाहिए। मान लें कि आप 30 एक्सेल फॉर्मूले का एक शब्द क्लाउड बना रहे हैं। इसलिए वर्कशीट में 30 एक्सेल फॉर्मूलों की एक सूची बनाएं।

पहले कॉलम में अपनी वर्कशीट के लिए उपरोक्त सूत्र लिखें।

एक बार जब आप स्तंभ B में उपरोक्त सूत्र नाम लिखते हैं, तो निम्न सभी 30 फ़ार्मुलों के लिए RANDBETWEEN फ़ंक्शन लागू करें और नीचे के मान को 1 और शीर्ष मान को 250 के रूप में रखें।

डेटा तैयार हो जाने के बाद, हमें Visual Basic Editor की आवश्यकता होगी। VBA में नीचे की तरह एक यूजर फॉर्म बनाएं।

अब हमें यहां VBA में यूजरफॉर्म को कॉन्फ़िगर करना होगा। प्रत्येक बटन के लिए, हमें कोड लिखना होगा। नीचे प्रत्येक बटन के लिए कोड है।

उपरोक्त उपयोगकर्ता फॉर्म से "अलग-अलग रंग" बटन पर डबल क्लिक करें और नीचे कोड जोड़ें।

कोड:

निजी सब कमांडबटन 1_क्लिक करें () ColorCopeType = 0 अनलोड मी 'यह एक अलग रंग के लिए है

फिर काले रंग के बटन पर डबल क्लिक करें और नीचे कोड जोड़ें।

कोड:

निजी उप कमांडबटन 2_क्लिक करें () ColorCopeType = 1 अनलोड मी 'यह काले रंग के लिए है

इसी तरह, अन्य सभी बटन के लिए, नीचे दिए गए कोड जोड़ें।

कोड:

Private Sub CommandButton3_Click () ColorCopeType = 2 Unload Me 'यह लाल रंग के लिए है। Sub Private Sub CommandButton4_Click () ColorCopeType = 3 Unload Me' यह हरे रंग के लिए है Sub Sub CommandButton5_Click () ColorCopeType = 4 Unload Me नीला रंग अंत उप निजी उप कमांडबटन 6_ क्लिक () कलरकॉप टाइप = 5 अनलोड मी 'यह पीले रंग के लिए है।

एक बार जब हम कोड को कॉन्फ़िगर करते हैं, तो हमें शीर्ष पर मॉड्यूल में चर घोषित करने की आवश्यकता होती है।

अब हमें एक शब्द क्लाउड बनाने के लिए एक कोड लिखना होगा, जो लंबा है। नीचे कोड है।

कोड:

सब शब्द_क्लाउड () डिम वर्डक्लाउड इन रेंज डिम एक्स अस इन्टर्गर, वाई अस इन्टर्गर डिम कॉलममेंट ए रेंज, कोलमबीब अस रेंज डिम वर्डकाउंट अस इंटेगर डिम कॉलुमाउंट इंटर्जेक्टर, राउकाउंट इन इंटेगर डिम वर्डकॉलेज इंटर्जर, वर्डर अस असिम डिगर प्लॉटरिया रेंज, सी रेंज के रूप में, d As Range, e As Range, f As Range, g As Range Dim z As Integer, w As Integer Dim plotareah1 As Range, plotareah2 As Range, dummy As Range Dim q as Integer, v As Integer Dim RedColor Integer के रूप में , GreenColor Integer के रूप में, BlueColor पूर्णांक के रूप में UserForm1.Show WordCount = -1 सेट WordCloud = पत्रक ("वर्ड क्लाउड")। रेंज ("B2: H7") स्तंभ कॉलम = WordCloud .Columns.Count RowCount = WordCloud.Rows.Count प्रत्येक के लिए। कॉलम में शीट्स ("फॉर्मूला सूची")।उसके बाद एग्ज़ वर्डसाउंट = वर्डकाउंट + 1 एग्जिट के लिए बाहर निकलें यदि अगले कॉलम में केस वर्डकाउंट केस सेलेक्ट करें = 0 से 20 वर्डकॉलेज = वर्डकाउंट / 5 केस वर्डकाउंट = 21 से 40 वर्डकॉल्यूमेंट / वर्डकाउंट / 6 केस वर्डकाउंट = 41 से 40 वर्डकॉलमेंट = वर्डकाउंट / 8 केस WordCount = 80 To 9999 WordColumn = WordCount / 10 End WordRow = WordCount / WordColumn x = 1 Set c = Sheets ("Word Cloud") का चयन करें। रेंज ("A1")। ऑफसेट ((RowCount / 2 - WordRow / 2), Word। (ColumnCount / 2 - WordColumn / 2)) सेट d = पत्रक ("वर्ड क्लाउड")। रेंज ("A1")। ऑफसेट ((RowCount / 2 + WordRow / 2), (ColumnCount / 2 + WordColumn / 2) सेटटेरिया = चादरें ("वर्ड क्लाउड")। रेंज (शीट्स ("वर्ड क्लाउड")। कोशिकाएं (c.Row, c.Column), शीट्स ("वर्ड क्लाउड")। कोशिकाएं (d.Row, d.Column)। ) प्रत्येक ई के लिए प्लाटारिया ई.वेल्यू = शीट्स ("फॉर्मूला सूची")। रेंज (")A1 ")। ऑफसेट (x, 0) .Value e.Font.Size = 8 + शीट (" फॉर्म लिस्ट ")। रेंज (" A1 ")। ऑफसेट (x, 0)। ऑफसेट (0, 1) .Value / 4 केस का चयन करें कलरटेप टाइप केस 0 RedColor = (255 * Rnd) + 1 ग्रीनकोलर = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 केस 1 RedColor = 0 GreenColor = 0 BlueColor = 0 केस 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 GreenColor = 100 केस 6 RedColor = 255 ग्रीनकोलर = 255 ब्लूकोलर = 255 ब्लू कलर = एंड सिलेक्ट e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e। क्षैतिज क्षैतिजकरण = xlCenter e.VerticalAlignment = xlCenter x = x + 1 यदि e .Value = "" इसके बाद समाप्त होने के लिए बाहर निकलें यदि अगला ई प्लॉटेरिया है। अंत उपसूत्र सूची ")। श्रेणी (" A1 ")। ऑफसेट (x, 0) .Offset (0, 1) .Value / 4 का चयन करें मामला ColorCopeType Case 0 RedColor = (255 * Rnd) + GreenColor = (255 * Rnd) + 1 ब्लूक्लोर = (२५५ * रैंड) + १ केस १ रेडकॉर्नर = ० ग्रीनकोलर = ० ब्लूकॉर्नर = ० केस २ रेडक्रॉस = २५५ ग्रीनकोलर = ० केस ३ रेडक्रॉस = ० ग्रीनकोलर = २५५ ब्लूकोलर = ५ केस ४ रेडकॉलर = ० ग्रीनकोल = = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 End Select e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.oroubleAlignment = xlCenter e। वर्टिकल ऑलिग्मेंट = xlCenter x = x + 1 यदि e.Value = "" फिर समाप्ति के लिए बाहर निकलें यदि अगला ई-आलेख।सूत्र सूची ")। श्रेणी (" A1 ")। ऑफसेट (x, 0) .Offset (0, 1) .Value / 4 का चयन करें मामला ColorCopeType Case 0 RedColor = (255 * Rnd) + GreenColor = (255 * Rnd) + 1 ब्लू कलर = (२५५ * रैंड) + १ केस १ रेडक्रॉस = ० ग्रीनकोलर = ० ब्लूकोलर = ० केस २ रेडक्रॉस = २५५ ग्रीनकोलर = ० केस ३ रेडक्रॉस = ० ग्रीनकोल = ०५ ग्रीनकोलर = २५५ ब्लूकोलर = ० केस ४ रेडक्रॉस = ० ग्रीनकोलर = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 End Select e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.oroubleAlignment = xlCenter e। वर्टिकल ऑलिग्मेंट = xlCenter x = x + 1 यदि e.Value = "" फिर समाप्ति के लिए बाहर निकलें यदि अगला ई-आलेख।मान / 4 केस का चयन करें कलरटेप टाइप केस 0 RedColor = (255 * Rnd) + 1 ग्रीनकोलर = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 केस 1 RedColor = 0 GreenColor = 0 BlueColor = 0 केस 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 ग्रीनकोलर = 255 ब्लू कलर = 100 केस 6 RedColor = 255 ग्रीनकोलर = 255 ब्लूकोल = 255 अंत का चयन करें e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e। क्षैतिज क्षैतिजकरण = xlCenter e.VerticalAlignment = xlCenter x = x + 1 + e.Value = "" इसके बाद बाहर निकलें के लिए बाहर निकलें यदि अगला ई। आलेख है। ऑटोफिट एंड सबमान / 4 केस का चयन करें कलरटेप टाइप केस 0 RedColor = (255 * Rnd) + 1 ग्रीनकोलर = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 केस 1 RedColor = 0 GreenColor = 0 BlueColor = 0 केस 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 ग्रीनकोलर = 255 ब्लू कलर = 100 केस 6 RedColor = 255 ग्रीनकोलर = 255 ब्लूकोल = 255 अंत का चयन करें e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e। क्षैतिज क्षैतिजकरण = xlCenter e.VerticalAlignment = xlCenter x = x + 1 + e.Value = "" इसके बाद बाहर निकलें के लिए बाहर निकलें यदि अगला ई। आलेख है। ऑटोफिट एंड सबऑटोफिट एंड सबऑटोफिट एंड सबक्षैतिज क्षैतिजकरण = xlCenter e.VerticalAlignment = xlCenter x = x + 1 यदि e.Value = "" फिर समाप्ति के लिए बाहर निकलें यदि अगला e plotarea.Columns.utoFit अंतिम उपक्षैतिज क्षैतिजकरण = xlCenter e.VerticalAlignment = xlCenter x = x + 1 यदि e.Value = "" फिर समाप्ति के लिए बाहर निकलें यदि अगला e plotarea.Columns.utoFit अंतिम उप

उपरोक्त कोड को अपने मॉड्यूल में कॉपी और पेस्ट करें। जिस वर्कशीट में फार्मूला सूची है, उसे "फॉर्मूला सूची" नाम दिया जाना चाहिए। फिर एक्सेल में एक नई वर्कशीट डालें और इसे "वर्ड क्लाउड" नाम दें।

नई सम्मिलित शीट में, ज़ूम को 40% तक समायोजित करें और पंक्ति की ऊँचाई को 85 तक समायोजित करें।

तो, अब एफ 5 बटन दबाकर वीबीए में कोड निष्पादित करें, आपको रंग चुनने वाला उपयोगकर्ता रूप दिखाई देगा।

अपनी इच्छानुसार रंग चुनें। यदि आप एकल रंग नहीं चाहते हैं, तो विकल्प "अलग-अलग रंग" चुनें। हमें “वर्ड क्लाउड” शीट में क्लाउड शब्द मिलेगा।

इस तरह, VBA कोडिंग का उपयोग करके, हम वर्ड क्लाउड बना सकते हैं।