Word cloud er også kjent som Tag cloud in excel som er en visuell representasjon av tekst i excel i forskjellige farger eller formater. I en word cloud er frekvensen til representasjonen av arbeidet definert av fonten til ordet. den smarte kunsten og fasongene til excel.
Hva er Word Cloud i Excel?
Word Cloud er samlingen av ord som skal vises i form av visualisering i excel. Jeg håper du har sett noen av de beste dashbordene med tall og kreative visualiseringer i excel. Dashboards spenner fra stilige skrifttyper med attraktive farger med noen super ting-bilder med. Et av de særegne instrumentbordene du må ha sett med "Word Cloud." Det ser ut som et sofistikert programvare nedlastet bilde, men det lastes ikke ned hvor som helst, heller opprettet med Excel VBA-koding. Ja!!! Du er riktig. Det er opprettet av VBA-koding, og i denne artikkelen vil vi vise deg hvordan du lager en slik ordsky med Excel.
Hvordan lage en Word Cloud i Excel?
For å lage en ordsky i Excel, må vi ha data om ord og hva er fargene vi trengte for disse ordene. Anta at du oppretter en ordsky på 30 excel-formler. Så lag en liste over 30 excelformler i regnearket.
Skriv formlene ovenfor til regnearket i den første kolonnen.
Når du har skrevet ovennevnte formelnavn i kolonne B, bruker du RANDBETWEEN-funksjonen for alle de 30 formlene som følger, og hold bunnverdien som 1 og toppverdien som 250.
Når dataene er klare, må vi gå til Visual Basic Editor. Lag et brukerskjema som nedenfor i VBA.
Nå må vi konfigurere brukerformen i VBA, her. For hver knapp trenger vi å skrive kode. Nedenfor er koden for hver knapp.
Dobbeltklikk på knappen "Ulike farger" fra brukerskjemaet ovenfor og legg til koden nedenfor.
Kode:
Privat underkommandoButton1_Click () ColorCopeType = 0 Last ut meg 'Dette er for en annen farge.
Dobbeltklikk deretter på den svarte fargede knappen og legg til koden nedenfor.
Kode:
Privat underkommandoButton2_Click () ColorCopeType = 1 Last ut meg 'Dette er for svart farge Slutt sub
På samme måte legger du til kodene nedenfor for alle de andre knappene.
Kode:
Private Sub CommandButton3_Click () ColorCopeType = 2 Unload Me 'Dette er for rød farge Slutt Sub Private Sub CommandButton4_Click () ColorCopeType = 3 Unload Me' Dette er for grønn farge Slutt Sub Private Sub CommandButton5_Click () ColorCopeType = 4 Unload Me 'Dette er for blå farge Avslut sub privat underkommandoButton6_Click () ColorCopeType = 5 Unload Me 'Dette er for gul farge Avslutt sub privat underkommandoButton7_Click () ColorCopeType = 6 Last ut meg' Dette er for hvit farge Avslutt sub
Når vi har konfigurert koden, må vi deklarere variabelen i modulen på toppen.
Nå må vi skrive en kode for å lage en ordsky, som er lang. Nedenfor er koden.
Kode:
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 Som 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 KolonneA i ark ("Formel liste"). Område ("A: A") Hvis kolonne A.Value = ""Gå deretter ut for annet WordCount = WordCount + 1 Slutt hvis neste kolonneA Velg sak WordCount Case WordCount = 0 til 20 WordColumn = WordCount / 5 Case WordCount = 21 til 40 WordColumn = WordCount / 6 Case WordCount = 41 til 40 WordColumn = WordCount / 8 Case WordCount = 80 til 9999 WordColumn = WordCount / 10 End Velg WordRow = WordCount / WordColumn x = 1 Sett c = Sheets ("Word Cloud"). Område ("A1"). Offset ((RowCount / 2 - WordRow / 2), (ColumnCount / 2 - WordColumn / 2)) Sett d = Ark ("Word Cloud"). Område ("A1"). Offset ((RowCount / 2 + WordRow / 2), (ColumnCount / 2 + WordColumn / 2)) Sett plotarea = Sheets ("Word Cloud"). Range (Sheets ("Word Cloud"). Cells (c.Row, c.Column), Sheets ("Word Cloud") Cells (d.Row, d.Column) ) For hver e In plotarea e.Value = Sheets ("Formula List"). Range ("A1 "). Offset (x, 0). Verdi e.Font.Size = 8 + Sheets (" Formula List "). Range (" A1 "). Offset (x, 0). Offset (0, 1) .Value / 4 Velg etui 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 Slutt Velg e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Hvis e.Value = "" Gå deretter ut for slutt hvis neste e plotarea.Columns.AutoFit Slutt SubFormelliste "). Område (" A1 "). Offset (x, 0). Offset (0, 1). Verdi / 4 Velg sak 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 = 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 Hvis e.Value = "" Gå deretter ut for slutt hvis neste e plotarea.Columns.AutoFit End SubFormelliste "). Område (" A1 "). Offset (x, 0). Offset (0, 1). Verdi / 4 Velg sak 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 = 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 Hvis e.Value = "" Gå deretter ut for slutt hvis neste e plotarea.Columns.AutoFit End SubVerdi / 4 Velg sak 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 Sak 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 255 Slutt Velg e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Hvis e.Value = "" Gå deretter ut for slutt hvis neste e plotarea. Kolonner. AutoFit End SubVerdi / 4 Velg sak 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 Sak 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 255 Slutt Velg e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Hvis e.Value = "" Gå deretter ut for slutt hvis neste e plotarea. Kolonner. AutoFit End SubAutoFit End SubAutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Hvis e.Value = "" Gå deretter ut for slutt hvis neste e plotarea.Columns.AutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Hvis e.Value = "" Gå deretter ut for slutt hvis neste e plotarea.Columns.AutoFit End Sub
Kopier og lim inn koden ovenfor til modulen din. Regnearket som har en formelliste, skal hete "Formelliste". Deretter setter du inn et nytt regneark i Excel og navngir det som "Word Cloud."
I det nylig innsatte arket justerer du Zoom til 40% og justerer radhøyden til 85.
Så, nå utfør koden i VBA ved å trykke på F5-knappen, du vil se fargevalget brukerform.
Velg fargen etter ønske. Hvis du ikke vil ha en eneste farge, velger du alternativet "Ulike farger." Vi får ordskyen i "Word Cloud" -arket.
Som dette, ved hjelp av VBA-koding, kan vi lage Word Cloud.
