Chmura słów w programie Excel | Jak stworzyć Word Cloud za pomocą Excel VBA?

Chmura słów jest również znana jako chmura tagów w programie Excel, która jest wizualną reprezentacją tekstu w programie Excel w różnych kolorach lub formatach, w chmurze słów częstotliwość reprezentacji pracy jest określona czcionką słowa, odbywa się to za pomocą inteligentna grafika i kształty w programie Excel.

Co to jest Word Cloud w programie Excel?

Word Cloud to zbiór słów do pokazania w formie wizualizacji w programie Excel. Mam nadzieję, że widziałeś jedne z najlepszych pulpitów nawigacyjnych z liczbami i kreatywnymi wizualizacjami w programie Excel. Pulpity nawigacyjne są zróżnicowane - od klasycznych czcionek o atrakcyjnych kolorach z kilkoma super zdjęciami. Jeden z osobliwych pulpitów nawigacyjnych, który musiałeś widzieć w „Word Cloud” . Wygląda jak wyrafinowany pobrany obraz oprogramowania, ale nie jest pobierany z dowolnego miejsca, a raczej utworzony za pomocą kodowania Excel VBA. Tak!!! Masz rację, został stworzony przez kodowanie VBA iw tym artykule pokażemy, jak stworzyć taką chmurę słów w programie Excel.

Jak stworzyć Word Cloud w Excelu?

Możesz pobrać ten szablon Word Cloud Excel tutaj - Szablon Word Cloud Excel

Aby utworzyć chmurę słów w programie Excel, musimy mieć dane słów i jakich kolorów potrzebujemy dla tych słów. Załóżmy, że tworzysz chmurę słów zawierającą 30 formuł programu Excel. Zrób więc listę 30 formuł programu Excel w arkuszu.

Napisz powyższe formuły do arkusza w pierwszej kolumnie.

Po zapisaniu powyższych nazw formuł w kolumnie B zastosuj funkcję RANDBETWEEN dla wszystkich 30 formuł w następujący sposób i zachowaj dolną wartość jako 1, a górną jako 250.

Gdy dane są gotowe, musimy udać się do Edytora Visual Basic. Utwórz formularz użytkownika, jak poniżej w VBA.

Teraz musimy skonfigurować formularz użytkownika w VBA, tutaj dla każdego przycisku musimy napisać kod. Poniżej znajduje się kod dla każdego przycisku.

Kliknij dwukrotnie przycisk „Różne kolory” w powyższym formularzu użytkownika i dodaj poniższy kod.

Kod:

 Private Sub CommandButton1_Click () ColorCopeType = 0 Unload Me 'To jest dla innego koloru End Sub

Następnie kliknij dwukrotnie przycisk w kolorze czarnym i dodaj poniższy kod.

Kod:

 Private Sub CommandButton2_Click () ColorCopeType = 1 Unload Me 'To jest dla koloru czarnego End Sub

Podobnie dla wszystkich pozostałych przycisków dodaj poniższe kody.

Kod:

 Private Sub CommandButton3_Click () ColorCopeType = 2 Unload Me 'To jest dla koloru czerwonego End Sub Private Sub CommandButton4_Click () ColorCopeType = 3 Unload Me' To jest dla koloru zielonego End Sub Private Sub CommandButton5_Click () ColorCopeType = 4 Unload Me 'To jest dla kolor niebieski End Sub Private Sub CommandButton6_Click () ColorCopeType = 5 Unload Me 'To jest dla koloru żółtego End Sub Private Sub CommandButton7_Click () ColorCopeType = 6 Unload Me' To jest dla koloru białego End Sub

Po skonfigurowaniu kodu musimy zadeklarować zmienną w module na górze.

Teraz musimy napisać kod, aby utworzyć chmurę słów, która jest długa. Poniżej znajduje się kod.

Kod:

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 plot area 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 Ustaw WordCloud = Arkusze („Word Cloud”). Range („B2: H7”) ColumnCount = WordCloud.Columns.Count RowCount = WordCloud.Rows.Count For Each KolumnaA W Arkuszach („Lista formuł”). Zakres („A: A”) Jeśli KolumnaA.Value = „”Następnie zamknij W innym przypadku WordCount = WordCount + 1 End If Next ColumnA Wybierz wielkość liter WordCount Case WordCount = 0 To 20 WordColumn = WordCount / 5 Case WordCount = 21 do 40 WordColumn = WordCount / 6 Case WordColumn = 41 do 40 WordColumn = WordCount / 8 Case WordCount = 80 do 9999 WordColumn = WordCount / 10 End Select WordRow = WordCount / WordColumn x = 1 Ustaw c = Arkusze („Word Cloud”). Zakres („A1”). Przesunięcie ((RowCount / 2 - WordRow / 2), (ColumnCount / 2 - WordColumn / 2)) Set d = Sheets ("Word Cloud"). Range ("A1"). Offset ((RowCount / 2 + WordRow / 2), (ColumnCount / 2 + WordColumn / 2)) Ustaw plotarea = Arkusze („Word Cloud”). Zakres (Arkusze („Word Cloud”). Komórki (c.Row, c.Column), Sheets („Word Cloud”). Cells (d.Row, d.Column) ) For Each e In plotarea e.Value = Sheets ("Formula List"). Range ("A1 "). Przesunięcie (x, 0). Wartość e.Font.Size = 8 + Arkusze (" Lista formuł "). Zakres (" A1 "). Przesunięcie (x, 0). Przesunięcie (0, 1). Wartość / 4 Wybierz wielkość liter ColorCopeType Wielkość przypadku 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 RedColor = 0 GreenColor = 0 BlueColor = 255 Przypadek 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Przypadek 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 Jeśli e.Value = "" Następnie zakończ, aby zakończyć, jeśli następny e plotarea.Columns.AutoFit Napis końcowyLista formuł ”). Zakres („ A1 ”). Przesunięcie (x, 0). Przesunięcie (0, 1). Wartość / 4 Wybierz wielkość liter ColorCopeType Przypadek 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Przypadek 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Przypadek 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Przypadek 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Koniec Wybierz e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e. VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Then Exit For End If Next e plotarea.Columns.AutoFit End SubLista formuł ”). Zakres („ A1 ”). Przesunięcie (x, 0). Przesunięcie (0, 1). Wartość / 4 Wybierz wielkość liter ColorCopeType Przypadek 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Przypadek 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Przypadek 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Przypadek 4 RedColor = 0 Zielony = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Koniec Wybierz e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e. VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Then Exit For End If Next e plotarea.Columns.AutoFit End SubWartość / 4 Wybierz wielkość liter ColorCopeType Wielkość przypadku 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 Przypadek 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Przypadek 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Przypadek 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Przypadek 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 = "" Następnie zakończ, jeśli następny e plotarea.Columns. AutoFit End SubWartość / 4 Wybierz wielkość liter ColorCopeType Wielkość przypadku 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 Przypadek 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Przypadek 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Przypadek 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Przypadek 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 = "" Następnie zakończ, jeśli następny e plotarea.Columns. AutoFit End SubAutoFit End SubAutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Then Exit For End If Next e plotarea.Columns.AutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Then Exit For End If Next e plotarea.Columns.AutoFit End Sub

Skopiuj i wklej powyższy kod do swojego modułu. Arkusz zawierający listę formuł powinien mieć nazwę „Lista formuł”. Następnie wstaw nowy arkusz do programu Excel i nazwij go „Word Cloud”.

W nowo wstawionym arkuszu dostosuj Zoom na 40% i ustaw wysokość wiersza na 85.

Więc teraz wykonaj kod w VBA, naciskając przycisk F5, zobaczysz formularz wyboru koloru.