Word Cloud in Excel

Word cloud is ook bekend als Tag cloud in Excel, wat een visuele weergave is van tekst in Excel in verschillende kleuren of formaten, in een woordwolk wordt de frequentie van de weergave van werk bepaald door het lettertype van het woord, dit wordt gemaakt door gebruik te maken van het slimme kenmerk van kunst en vormen van Excel.

Wat is Word Cloud in Excel?

Word Cloud is de verzameling woorden die in Excel wordt weergegeven in de vorm van visualisatie. Ik hoop dat je enkele van de beste dashboards met cijfers en creatieve visualisaties in Excel hebt gezien. Dashboards variëren van stijlvolle lettertypen met aantrekkelijke kleuren met een aantal fantastische afbeeldingen erbij. Een van de eigenaardige dashboards die u moet hebben gezien met "Word Cloud" . Het ziet eruit als een geavanceerde, door software gedownloade afbeelding, maar het wordt nergens gedownload, maar is gemaakt met Excel VBA-codering. Ja!!! U hebt gelijk, het is gemaakt door VBA-codering en in dit artikel laten we u zien hoe u zo'n woordwolk met Excel kunt maken.

Hoe maak je een Word Cloud in Excel?

U kunt deze Word Cloud Excel-sjabloon hier downloaden - Word Cloud Excel-sjabloon

Om een ​​woordwolk in Excel te maken, hebben we gegevens van woorden nodig en wat zijn de kleuren die we voor die woorden nodig hadden. Stel dat u een woordwolk van 30 Excel-formules maakt. Maak dus een lijst van 30 Excel-formules in het werkblad.

Schrijf de bovenstaande formules naar uw werkblad in de eerste kolom.

Zodra u de bovenstaande formulenamen in kolom B hebt geschreven, past u de functie RANDBETWEEN toe voor alle 30 formules als volgt en houdt u de onderste waarde als 1 en de bovenste waarde als 250.

Zodra de gegevens klaar zijn, moeten we naar de Visual Basic Editor gaan. Maak een gebruikersformulier zoals hieronder in VBA.

Nu moeten we het gebruikersformulier in VBA configureren, hier moeten we voor elke knop code schrijven. Hieronder staat de code voor elke knop.

Dubbelklik op de knop "Verschillende kleuren" in het bovenstaande gebruikersformulier en voeg de onderstaande code toe.

Code:

 Private Sub CommandButton1_Click () ColorCopeType = 0 Unload Me 'Dit is voor een andere kleur End Sub 

Dubbelklik vervolgens op de zwart gekleurde knop en voeg de onderstaande code toe.

Code:

 Private Sub CommandButton2_Click () ColorCopeType = 1 Unload Me 'Dit is voor zwarte kleur End Sub 

Op dezelfde manier kunt u voor alle andere knoppen onderstaande codes toevoegen.

Code:

 Private Sub CommandButton3_Click () ColorCopeType = 2 Unload Me 'Dit is voor rode kleur End Sub Private Sub CommandButton4_Click () ColorCopeType = 3 Unload Me' Dit is voor groene kleur End Sub Private Sub CommandButton5_Click () ColorCopeType = 4 Unload Me 'Dit is voor blauwe kleur End Sub Private Sub CommandButton6_Click () ColorCopeType = 5 Unload Me 'Dit is voor gele kleur End Sub Private Sub CommandButton7_Click () ColorCopeType = 6 Unload Me' Dit is voor witte kleur End Sub 

Zodra we de code hebben geconfigureerd, moeten we de variabele in de module bovenaan declareren.

Nu moeten we een code schrijven om een ​​woordwolk te maken die lang is. Hieronder staat de code.

Code:

Sub word_cloud () Dim WordCloud As Range Dim x As Integer, y As Integer Dim ColumnA As Range, ColumnB As Range Dim WordCount As Integer Dim ColumCount As Integer, RowCount As Integer Dim WordColumn As Integer, WordRow As Integer Dim plotarea As Range, c As Range, 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 As Integer , GreenColor As Integer, BlueColor As Integer UserForm1.Show WordCount = -1 Set WordCloud = Sheets ("Word Cloud"). Range ("B2: H7") ColumnCount = WordCloud.Columns.Count RowCount = WordCloud.Rows.Count For Each ColumnA In Spreadsheets ("Formulelijst"). Bereik ("A: A") Als ColumnA.Value = ""Sluit dan af voor andere WordCount = WordCount + 1 End If Next ColumnA Selecteer Case WordCount Case WordCount = 0 tot 20 WordColumn = WordCount / 5 Case WordCount = 21 tot 40 WordColumn = WordCount / 6 Case WordCount = 41 tot 40 WordColumn = WordCount / 8 Case WordCount = 80 tot 9999 WordColumn = WordCount / 10 End Select WordRow = WordCount / WordColumn x = 1 Set c = Sheets ("Word Cloud"). Range ("A1"). Offset ((RowCount / 2 - WordRow / 2), (ColumnCount / 2 - WordColumn / 2)) Stel d = Sheets ("Word Cloud"). Bereik ("A1"). Offset ((RowCount / 2 + WordRow / 2), (ColumnCount / 2 + WordColumn / 2)) Stel plotarea = Sheets ("Word Cloud"). Bereik (Sheets ("Word Cloud"). Cellen (c.Row, c.Column), Sheets ("Word Cloud"). Cells (d.Row, d.Column) ) Voor elke e In plotarea e.Value = Sheets ("Formulelijst"). Bereik ("A1 "). Offset (x, 0) .Value e.Font.Size = 8 + Sheets (" Formula List "). Range (" A1 "). Offset (x, 0) .Offset (0, 1) .Value / 4 Selecteer Case ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Case 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Einde Selecteer e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Verlaat dan voor End If Next e plotarea.Columns.AutoFit Einde SubFormulelijst "). Bereik (" A1 "). Offset (x, 0) .Offset (0, 1). Waarde / 4 Selecteer casus ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Case 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Case 4 RedColor = 0 GreenColor = 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.HorizontalAlignment = xlCenter e. VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Exit For End If Next e plotarea.Columns.AutoFit End SubFormulelijst "). Bereik (" A1 "). Offset (x, 0) .Offset (0, 1). Waarde / 4 Selecteer casus ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Case 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Case 4 RedColor = 0 GreenColor = 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.HorizontalAlignment = xlCenter e. VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Exit For End If Next e plotarea.Columns.AutoFit End SubWaarde / 4 Selecteer Case ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Case 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Einde Selecteer e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Dan sluit af voor End If Next e plotarea.Columns. AutoFit End SubWaarde / 4 Selecteer Case ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Case 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Einde Selecteer e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Dan sluit u af voor End If Next e plotarea.Columns. AutoFit End SubAutoFit End SubAutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Als e.Value = "" Dan verlaten voor End If Next e plotarea.Columns.AutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Als e.Value = "" Dan verlaten voor End If Next e plotarea.Columns.AutoFit End Sub

Kopieer en plak de bovenstaande code in uw module. Het werkblad met een formulelijst moet de naam "Formulelijst" krijgen. Voeg vervolgens een nieuw werkblad in Excel in en noem het "Word Cloud".

Stel in het nieuw ingevoegde blad de zoom in op 40% en stel de rijhoogte in op 85.

Voer nu de code uit in VBA door op de F5-knop te drukken, u ziet het gebruikersformulier voor kleurkeuze.

Kies de kleur naar wens, wil je geen enkele kleur, kies dan de optie “Verschillende kleuren”. We krijgen de woordwolk op het blad "Woordwolk".

Op deze manier kunnen we met behulp van VBA-codering Word Cloud maken.