Word cloud je tiež známy ako Tag cloud v programe Excel, čo je vizuálne znázornenie textu v programe Excel v rôznych farbách alebo formátoch. V slovnom mraku je frekvencia znázornenia práce definovaná písmom slova. funkcia inteligentného umenia a tvarov v programe Excel.
Čo je Word Cloud v programe Excel?
Word Cloud je zbierka slov, ktoré sa majú zobraziť vo forme vizualizácie v programe Excel. Dúfam, že ste videli vynikajúce niektoré z najlepších informačných panelov s číslami a kreatívnymi vizualizáciami. Palubné dosky sa pohybujú od elegantných typov písma s atraktívnymi farbami až po super obrázky. Jeden z podivných informačných panelov, ktorý ste určite videli pri slove „Word Cloud“. Vyzerá to ako sofistikovaný obrázok stiahnutý zo softvéru, ale nestiahne sa odkiaľkoľvek, ale je vytvorený pomocou kódovania Excel VBA. Áno!!! Máte pravdu. Bol vytvorený kódovaním VBA a v tomto článku si ukážeme, ako vytvoriť takýto word cloud pomocou programu Excel.
Ako vytvoriť Word Cloud v programe Excel?
Na vytvorenie slovného mraku v programe Excel potrebujeme mať údaje o slovách a aké farby potrebujeme pre tieto slová. Predpokladajme, že vytvárate slovo mrak 30 vzorcov programu Excel. Vytvorte teda v pracovnom hárku zoznam 30 vzorcov programu Excel.
Vyššie uvedené vzorce zapíšte do svojho pracovného hárka v prvom stĺpci.
Akonáhle napíšete vyššie uvedené názvy vzorcov do stĺpca B, použite funkciu RANDBETWEEN pre všetkých 30 vzorcov nasledovne a spodnú hodnotu ako 1 a hornú hodnotu ako 250.
Keď sú údaje pripravené, musíme prejsť do editora jazyka Visual Basic. Vytvorte si užívateľský formulár ako je uvedené nižšie vo VBA.
Teraz musíme nakonfigurovať formulár používateľa vo VBA, tu. Pre každé tlačidlo musíme napísať kód. Nižšie je uvedený kód pre každé tlačidlo.
Dvakrát kliknite na tlačidlo „Rôzne farby“ vo vyššie uvedenom formulári pre používateľov a pridajte nižšie uvedený kód.
Kód:
Private Sub CommandButton1_Click () ColorCopeType = 0 Unload Me 'Toto je pre inú farbu End Sub
Potom dvakrát kliknite na čierne tlačidlo a pridajte nasledujúci kód.
Kód:
Private Sub CommandButton2_Click () ColorCopeType = 1 Unload Me 'Toto je pre čiernu farbu End Sub
Podobne pre všetky ostatné tlačidlá pridajte nasledujúce kódy.
Kód:
Private Sub CommandButton3_Click () ColorCopeType = 2 Unload Me 'This is for red color End Sub Private Sub CommandButton4_Click () ColorCopeType = 3 Unload Me' This is for green color End Sub Private Sub CommandButton5_Click () ColorCopeType = 4 Unload Me 'This is for modrá farba End Sub Private Sub CommandButton6_Click () ColorCopeType = 5 Unload Me 'Toto je pre žltú farbu End Sub Private Sub CommandButton7_Click () ColorCopeType = 6 Unload Me' To je pre bielu farbu End Sub
Po nakonfigurovaní kódu musíme deklarovať premennú v module navrchu.
Teraz musíme napísať kód, ktorý vytvorí slovo mrak, čo je zdĺhavé. Nižšie je uvedený kód.
Kód:
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 ako celé číslo, BlueColor ako celé číslo UserForm1.Show WordCount = -1 Nastaviť WordCloud = Tabuľky ("Word Cloud"). Rozsah ("B2: H7") ColumnCount = WordCloud.Columns.Count RowCount = WordCloud.Rows.Count pre každú ColumnA In Sheets ("Formula List"). Range ("A: A") If ColumnA.Value = ""Potom Skončite pre iné WordCount = WordCount + 1 Koniec Ak Nasledujúci stĺpecA Vyberte prípad WordCount prípad WordCount = 0 až 20 WordColumn = WordCount / 5 prípadov WordCount = 21 až 40 WordColumn = WordCount / 6 prípadov WordCount = 41 až 40 WordColumn = prípad WordCount / 8 WordCount = 80 až 9999 WordColumn = WordCount / 10 End Select WordRow = WordCount / WordColumn x = 1 Sada c = Tabuľky ("Word Cloud"). Rozsah ("A1"). Ofset ((RowCount / 2 - WordRow / 2), (ColumnCount / 2 - WordColumn / 2)) Set d = Sheets ("Word Cloud"). Range ("A1"). Offset ((RowCount / 2 + WordRow / 2), (ColumnCount / 2 + WordColumn / 2)) Nastaviť plotarea = Tabuľky ("Word Cloud"). Rozsah (Tabuľky ("Word Cloud"). Bunky (c.Row, c.Column), Tabuľky ("Word Cloud"). Bunky (d.Row, d.Column) ) Pre každú položku e In plotarea e.Value = Tabuľky ("Zoznam vzorcov"). Rozsah ("A1 "). Posun (x, 0) .Hodnota e.Font.Size = 8 + hárky (" Zoznam vzorcov "). Rozsah (" A1 "). Posun (x, 0). Posun (0, 1) .Hodnota / 4 Vyberte puzdro ColorCopeType puzdro 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 puzdro 1 RedColor = 0 GreenColor = 0 BlueColor = 0 puzdro 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Prípad 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Prípad 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Prípad 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Prípad 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Koniec Vyberte e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Ak e.Value = "" Potom ukončite Koniec Ak Ďalej e plotarea.Columns.AutoFit Koniec SubZoznam vzorcov "). Rozsah (" A1 "). Odsadenie (x, 0). Posun (0, 1). Hodnota / 4 Vyberte veľkosť písma ColorCopeType Prípad 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 puzdro 1 RedColor = 0 GreenColor = 0 BlueColor = 0 puzdro 2 RedColor = 255 GreenColor = 0 BlueColor = 0 puzdro 3 RedColor = 0 GreenColor = 255 BlueColor = 0 puzdro 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Prípad 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Prípad 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Koniec Vyberte 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 SubZoznam vzorcov "). Rozsah (" A1 "). Posun (x, 0). Posun (0, 1). Hodnota / 4 Vyberte veľkosť písma ColorCopeType Prípad 0 Červená farba = (255 * Rnd) + 1 Zelená farba = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 puzdro 1 RedColor = 0 GreenColor = 0 BlueColor = 0 puzdro 2 RedColor = 255 GreenColor = 0 BlueColor = 0 puzdro 3 RedColor = 0 GreenColor = 255 BlueColor = 0 puzdro 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Prípad 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Prípad 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Koniec Vyberte 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 SubHodnota / 4 Vybrať prípad ColorCopeType Prípad 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Prípad 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Prípad 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Prípad 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Prípad 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Prípad 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Prípad 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Koniec Vyberte e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Ak e.Value = "" Potom ukončite Na koniec Ak Ďalej e plotarea.Columns. AutoFit End SubHodnota / 4 Vybrať prípad ColorCopeType Prípad 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Prípad 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Prípad 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Prípad 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Prípad 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Prípad 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Prípad 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Koniec Vyberte e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Ak e.Value = "" Potom ukončite Na koniec Ak Ďalej 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
Skopírujte a prilepte vyššie uvedený kód do svojho modulu. Pracovný list so zoznamom vzorcov by mal mať názov „Zoznam vzorcov“. Potom vložte nový pracovný hárok v programe Excel a pomenujte ho ako „Word Cloud“.
V novo vloženom hárku upravte zväčšenie na 40% a upravte výšku riadku na 85.
Teraz teda vykonajte kód vo VBA stlačením tlačidla F5, uvidíte užívateľskú formu výberu farby.
Vyberte si farbu podľa vášho želania. Ak nechcete jednu farbu, vyberte možnosť „Rôzne farby“. Slovo mrak dostaneme v hárku „Word Cloud“.
Takto môžeme pomocou kódovania VBA vytvoriť Word Cloud.
