Oblak riječi u programu Excel - Kako stvoriti Word Cloud s programom Excel VBA?

Sadržaj

Što je Word Cloud u programu Excel?

Oblak riječi poznat je i kao oblak oznaka u Excelu, što je vizualni prikaz teksta u Excelu u različitim bojama ili formatima, u oblaku riječi učestalost predstavljanja djela definira se fontom riječi, to se postiže pomoću značajka pametne umjetnosti i oblika excela.

Što je Word Cloud u programu Excel?

Word Cloud je zbirka riječi za prikaz u obliku vizualizacije u Excelu. Nadam se da ste vidjeli neke od najboljih nadzornih ploča s brojevima i kreativnim vizualizacijama u Excelu. Nadzorne se ploče kreću od otmjenih fontova s atraktivnim bojama, uz neke super slike. Jedna od neobičnih nadzornih ploča koju ste zasigurno vidjeli uz "Word Cloud". Izgleda kao sofisticirana slika preuzeta softverom, ali nije preuzeta s bilo kojeg mjesta, već je kreirana pomoću Excel VBA kodiranja. Da!!! U pravu si. Stvoren je pomoću VBA kodiranja, a u ovom ćemo vam članku pokazati kako stvoriti takav oblak riječi s excelom.

Kako stvoriti oblak riječi u Excelu?

Da bismo stvorili oblak riječi u Excelu, moramo imati podatke o riječima i koje su boje potrebne za te riječi. Pretpostavimo da stvarate oblak riječi od 30 izvrsnih formula. Stoga na radnom listu napravite popis 30 excel formula.

Zapišite gornje formule na svoj radni list u prvi stupac.

Nakon što unesete gornja imena formula u stupac B, primijenite funkciju RANDBETWEEN za svih 30 formula kako slijedi i zadržite donju vrijednost 1, a gornju vrijednost 250.

Nakon što podaci budu spremni, moramo se uputiti u Visual Basic Editor. Stvorite korisnički obrazac kao što je dolje u VBA.

Sada moramo konfigurirati korisnički obrazac u VBA, ovdje. Za svaki gumb trebamo napisati kod. Ispod je kôd svakog gumba.

Dvaput kliknite gumb "Različite boje" iz gornjeg korisničkog obrasca i dodajte donji kod.

Kodirati:

Private Sub CommandButton1_Click () ColorCopeType = 0 Unload Me 'Ovo je za drugu boju End Sub

Zatim dvaput kliknite gumb u boji crne boje i dodajte donji kod.

Kodirati:

Private Sub CommandButton2_Click () ColorCopeType = 1 Unload Me 'Ovo je za crnu boju End Sub

Slično tome, za sve ostale gumbe dodajte donje kodove.

Kodirati:

Private Sub CommandButton3_Click () ColorCopeType = 2 Unload Me 'Ovo je za crvenu boju End Sub Private Sub CommandButton4_Click () ColorCopeType = 3 Unload Me' Ovo je za zelenu boju End Sub Private Sub CommandButton5_Click () ColorCopeType = 4 Unload Me 'Ovo je za plava boja End Sub Private Sub CommandButton6_Click () ColorCopeType = 5 Unload Me 'Ovo je za žutu boju End Sub Private Sub CommandButton7_Click () ColorCopeType = 6 Unload Me' Ovo je za bijelu boju End Sub

Nakon što konfiguriramo kôd, trebamo deklarirati varijablu u modulu na vrhu.

Sada moramo napisati kod za stvaranje oblaka riječi, koji je dugačak. Ispod je kod.

Kodirati:

Sub word_cloud () Zatamni WordCloud kao raspon Dim x kao cijelo, y Kao cjelovito zatamni stupacA Kao raspon, ColumnB kao raspon Dim WordCount kao cjelovito zatamni ColumCount kao cjelovito, RowCount kao cijelo zatamni WordColumn kao cjelovito, WordRow kao cijelo zatamni plotu kao raspon, 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 za svaku Stupac A u listovima ("Popis formula"). Raspon ("A: A") Ako je StupacA.Value = ""Zatim izađite za ostalo WordCount = WordCount + 1 End If Next ColumnA Odaberite slučaj WordCount Case WordCount = 0 do 20 WordColumn = WordCount / 5 Case WordCount = 21 do 40 WordColumn = WordCount / 6 Case 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)) Postavi plotarea = Sheets ("Word Cloud"). Raspon (Sheets ("Word Cloud"). Stanice (c.Row, c.Column), Sheets ("Word Cloud"). Stanice (d.Row, d.Column) ) Za svaku e In plotarea e.Value = listovi ("Popis formula"). Raspon ("A1 "). Pomak (x, 0). Vrijednost e.Font.Size = 8 + listova (" Popis formula "). Raspon (" A1 "). Pomak (x, 0). Offset (0, 1). Vrijednost / 4 Odaberite kućište 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 Kraj odaberite e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Zatim izađite za End If Next e plotarea.Columns.AutoFit Kraj podPopis formula "). Raspon (" A1 "). Pomak (x, 0). Offset (0, 1). Vrijednost / 4 Odaberite slučaj ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 kućište 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 Slučaj 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 = "" Zatim izađite za kraj Ako je slijedeća plotarea.Columns.AutoFit End SubPopis formula "). Raspon (" A1 "). Pomak (x, 0). Offset (0, 1). Vrijednost / 4 Odaberite slučaj ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 kućište 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 Slučaj 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 = "" Zatim izađite za kraj Ako je slijedeća plotarea.Columns.AutoFit End SubVrijednost / 4 Odaberite slučaj 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 = "" Zatim izađite za End If Next e plotarea.Columns. AutoFit End SubVrijednost / 4 Odaberite slučaj 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 = "" Zatim izađite za End If Next e plotarea.Columns. AutoFit End SubAutoFit End SubAutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Zatim izađite za kraj Ako je slijedeća plotarea.Columns.AutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Zatim izađite za kraj Ako je slijedeća plotarea.Columns.AutoFit End Sub

Kopirajte i zalijepite gornji kod u svoj modul. Radni list koji ima popis formula trebao bi biti imenovan kao "Popis formula". Zatim umetnite novi radni list u Excel i nazovite ga "Word Cloud".

Na novo umetnutom listu podesite Zum na 40% i prilagodite visinu retka na 85.

Dakle, sada izvršite kod u VBA pritiskom na tipku F5, vidjet ćete kako korisnik odabire boju u obliku.