Oblak besed je znan tudi kot oblak oznak v Excelu, ki je vizualna predstavitev besedila v Excelu v različnih barvah ali oblikah, v besednem oblaku je pogostost predstavitve dela določena s pisavo besede, to pa naredimo z uporabo značilnost pametne umetnosti in oblik excela.
Kaj je Word Cloud v Excelu?
Word Cloud je zbirka besed za prikaz v obliki vizualizacije v Excelu. Upam, da ste v Excelu videli nekaj najboljših nadzornih plošč s številkami in kreativnimi vizualizacijami. Armaturne plošče segajo od elegantnih pisav z privlačnimi barvami in nekaj super slik. Ena izmed posebnih nadzornih plošč, ki ste jo zagotovo videli pri »Word Cloud«. Videti je kot sofisticirana slika, prenesena s programske opreme, vendar je ni mogoče prenesti nikamor, temveč ustvariti s kodo Excel VBA. Ja !!! Prav imaš. Ustvarilo ga je kodiranje VBA, v tem članku pa vam bomo pokazali, kako ustvariti takšen besedni oblak z excelom.
Kako ustvariti Wordov oblak v Excelu?
Če želimo v Excelu ustvariti besedni oblak, moramo imeti podatke o besedah in kakšne barve potrebujemo za te besede. Predpostavimo, da ustvarjate besedni oblak s 30 Excelovimi formulami. Zato na delovnem listu naredite seznam 30 formul excel.
Zgornje formule zapišite na svoj delovni list v prvi stolpec.
Ko v stolpec B vpišete zgornja imena formul, uporabite funkcijo RANDBETWEEN za vseh 30 formul, kot sledi, in naj bo spodnja vrednost 1 in zgornja vrednost 250.
Ko so podatki pripravljeni, se moramo odpraviti v urejevalnik Visual Basic. Ustvarite uporabniški obrazec, kot je spodaj v VBA.
Zdaj moramo tukaj konfigurirati uporabniški obrazec v VBA. Za vsak gumb moramo napisati kodo. Spodaj je koda vsakega gumba.
Dvokliknite gumb “Različne barve” v zgornjem uporabniškem obrazcu in dodajte spodnjo kodo.
Koda:
Private Sub CommandButton1_Click () ColorCopeType = 0 Unload Me 'To je za drugo barvo End Sub
Nato dvokliknite gumb v črni barvi in dodajte spodnjo kodo.
Koda:
Private Sub CommandButton2_Click () ColorCopeType = 1 Unload Me 'To je za črno barvo End Sub
Za vse ostale gumbe podobno dodajte spodnje kode.
Koda:
Private Sub CommandButton3_Click () ColorCopeType = 2 Unload Me 'To je za rdečo barvo End Sub Private Sub CommandButton4_Click () ColorCopeType = 3 Unload Me' To je za zeleno barvo End Sub Private Sub CommandButton5_Click () ColorCopeType = 4 Unload Me 'To je za modra barva End Sub Private Sub CommandButton6_Click () ColorCopeType = 5 Unload Me 'To je za rumeno barvo End Sub Private Sub CommandButton7_Click () ColorCopeType = 6 Unload Me' To je za belo barvo End Sub
Ko konfiguriramo kodo, moramo spremenljivko prijaviti v modulu na vrhu.
Zdaj moramo napisati kodo, da ustvarimo oblak besed, ki je dolgotrajen. Spodaj je koda.
Koda:
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 Dim RedColor As Integer , GreenColor kot celo število, BlueColor kot celo število UserForm1.Prikaži WordCount = -1 Nastavi WordCloud = Sheets ("Word Cloud"). Obseg ("B2: H7") ColumnCount = WordCloud.Columns.Count RowCount = WordCloud.Rows.Count za vsako StolpecA v listih ("Seznam formul"). Obseg ("A: A") Če je stolpecA.Value = ""Nato Izhod za drugo besedno številko = WordCount + 1 konec, če je naslednji stolpec Izberite primer WordCount Primer WordCount = 0 do 20 WordColumn = WordCount / 5 zadeva WordCount = 21 do 40 WordColumn = WordCount / 6 zadeva WordCount = 41 do 40 WordColumn = WordCount / 8 Case WordCount = 80 do 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)) Set d = Sheets ("Word Cloud"). Range ("A1"). Offset ((RowCount / 2 + WordRow / 2), (ColumnCount / 2 + WordColumn / 2)) Nastavite plotarea = Sheets ("Word Cloud"). Obseg (Sheets ("Word Cloud"). Celice (c.Row, c.Column), Sheets ("Word Cloud"). Celice (d.Row, d.Column) ) Za vsako e In plotarea e.Value = Sheets ("Formula List"). Obseg ("A1 "). Odmik (x, 0). Vrednost e.Font.Size = 8 + listi (" Seznam formul "). Obseg (" A1 "). Odmik (x, 0). Offset (0, 1). Vrednost / 4 Izberite zadevo ColorCopeType Primer 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 End e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Potem izhod za End If Next e plotarea.Columns.AutoFit Končaj podSeznam formul "). Obseg (" A1 "). Odmik (x, 0). Offset (0, 1). Vrednost / 4 Izberite zadevo ColorCopeType Primer 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 Primer 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 Če je e.Value = "" Potem izhod za konec, če je naslednji e plotarea.Columns.AutoFit End SubSeznam formul "). Obseg (" A1 "). Odmik (x, 0). Offset (0, 1). Vrednost / 4 Izberite zadevo ColorCopeType Primer 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 Primer 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 Če je e.Value = "" Potem izhod za konec, če je naslednji e plotarea.Columns.AutoFit End SubValue / 4 Select 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 End Select e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Potem izhod za End If Next e plotarea.Columns. AutoFit End SubValue / 4 Select 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 End Select e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Potem izhod za End If Next e plotarea.Columns. AutoFit End SubAutoFit End SubAutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Potem izhod za konec, če je naslednji e plotarea.Columns.AutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Če je e.Value = "" Potem izhod za konec, če je naslednji e plotarea.Columns.AutoFit End Sub
Kopirajte in prilepite zgornjo kodo v svoj modul. Delovni list s seznamom formul bi moral biti imenovan kot »Seznam formul«. Nato v Excelu vstavite nov delovni list in ga poimenujte »Word Cloud«.
Na novo vstavljenem listu prilagodite povečavo na 40% in višino vrstice na 85.
Torej, zdaj izvedite kodo v VBA s pritiskom na gumb F5, videli boste barvo, ki izbere uporabniški obrazec.
Izberite barvo po svoji želji. Če ne želite ene barve, izberite možnost »Različne barve«. Oblak besed bomo dobili na listu »Oblak besed«.
Tako lahko s kodiranjem VBA ustvarimo Word Cloud.
