Vārdu mākonis ir pazīstams arī kā Tag cloud in excel, kas ir teksta vizuāls attēlojums Excel dažādās krāsās vai formātos, vārdu mākonī darba attēlojuma biežumu nosaka vārda fonts, tas tiek veikts, izmantojot viedās mākslas un formu iezīme.
Kas ir Word mākonis programmā Excel?
Vārdu mākonis ir vārdu kolekcija, kas tiek parādīta vizualizācijas veidā programmā Excel. Es ceru, ka programmā Excel esat redzējuši dažus no labākajiem informācijas paneļiem ar skaitļiem un radošām vizualizācijām. Informācijas paneļi svārstās no stilīgiem fontiem ar pievilcīgām krāsām ar dažiem super sīkumiem. Viens no savdabīgajiem informācijas paneļiem, kuru noteikti esat redzējis ar “Word Cloud”. Izskatās, ka tas ir sarežģīts programmatūras lejupielādēts attēls, taču tas nav lejupielādēts no jebkuras vietas, drīzāk izveidots ar Excel VBA kodēšanu. Jā!!! Jums ir taisnība. Tas ir izveidots, izmantojot VBA kodēšanu, un šajā rakstā mēs parādīsim, kā izveidot šādu vārdu mākoni ar Excel.
Kā izveidot Word mākoni programmā Excel?
Lai programmā Excel izveidotu vārdu mākoni, mums ir vajadzīgi vārdu dati un kādas krāsas mums vajadzīgas šiem vārdiem. Pieņemsim, ka jūs veidojat 30 Excel formulu vārdu mākoni. Tāpēc darblapā izveidojiet 30 Excel formulu sarakstu.
Pirmajā kolonnā rakstiet iepriekš minētās formulas darblapai.
Kad B kolonnā esat ierakstījis iepriekš minētos formulu nosaukumus, visām 30 formulām izmantojiet funkciju RANDBETWEEN šādi un saglabājiet apakšējo vērtību kā 1 un augšējo vērtību - 250.
Kad dati ir gatavi, mums jādodas uz Visual Basic redaktoru. VBA izveidojiet lietotāja veidlapu, piemēram, zemāk.
Tagad mums šeit ir jākonfigurē lietotāja forma VBA. Katrai pogai mums jāraksta kods. Zemāk ir katras pogas kods.
Veiciet dubultklikšķi uz pogas “Dažādas krāsas” no iepriekš minētās lietotāja veidlapas un pievienojiet zemāk esošo kodu.
Kods:
Privāta apakšnodaļa CommandButton1_Click () ColorCopeType = 0 Izlādēt mani 'Tas ir paredzēts citai krāsai Beigu apakšdaļa
Pēc tam veiciet dubultklikšķi uz pogas Melnā krāsa un pievienojiet zemāk esošo kodu.
Kods:
Privāta apakšnodaļa CommandButton2_Click () ColorCopeType = 1 Izlādēt mani 'Tas ir paredzēts melnai krāsai Beigu apakšdaļa
Līdzīgi visām pārējām pogām pievienojiet šādus kodus.
Kods:
Privāts apakšgrupas CommandButton3_Click () ColorCopeType = 2 Izkraut mani "Tas ir paredzēts sarkanai krāsai Beigt Sub Privāto apakšgrupu CommandButton4_Click () ColorCopeType = 3 Izlādēt mani" Tas ir paredzēts zaļai krāsai Beigas Sub Privātā apakšgrupa CommandButton5_Click () ColorCopeType = 4 Izlādēt mani "Tas ir paredzēts zila krāsa End Sub Private Sub CommandButton6_Click () ColorCopeType = 5 Mani izkraut 'Šis ir dzeltenai krāsai End Sub Privāts Sub CommandButton7_Click () ColorCopeType = 6 Izkraut mani' Tas ir baltai krāsai End Sub
Kad mēs esam konfigurējuši kodu, mums jādeklarē mainīgais augšējā modulī.
Tagad mums jāuzraksta kods, lai izveidotu garu vārdu mākoni. Zemāk ir kods.
Kods:
Sub word_cloud () Dim WordCloud As Range Dim x As Integer, y as Integer Dim ColumnA as Range, column B 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, manekens As Range Dim q As Integer, v As Integer Dim RedColor As Integer , GreenColor kā vesels skaitlis, BlueColor kā vesels skaitlis UserForm1.Show WordCount = -1 Iestatiet WordCloud = Sheets ("Word Cloud"). Diapazons ("B2: H7") ColumnCount = WordCloud.Columns.Count RowCount = WordCloud.Rows.Count par katru A kolonna A izklājlapās ("Formulu saraksts"). Diapazons ("A: A") Ja kolonnaA.Value = ""Pēc tam izejiet citam citam WordCount = WordCount + 1 beigas, ja nākamā kolonnaA Atlasiet lietu WordCount Case WordCount = 0 līdz 20 WordColumn = WordCount / 5 Case WordCount = 21 to 40 WordColumn = WordCount / 6 Case WordCount = 41 to 40 WordColumn = WordCount / 8 Case WordCount = 80 līdz 9999 WordColumn = WordCount / 10 End Atlasiet WordRow = WordCount / WordColumn x = 1 Iestatiet c = Sheets ("Word Cloud"). Diapazons ("A1"). Offset ((RowCount / 2 - WordRow / 2), (ColumnCount / 2 - WordColumn / 2)) Iestatiet d = Sheets ("Word Cloud"). Diapazons ("A1"). Offset ((RowCount / 2 + WordRow / 2), (ColumnCount / 2 + WordColumn / 2)) Set plotarea = Sheets ("Word Cloud"). Diapazons (Sheets ("Word Cloud"). Šūnas (c.Row, c.Column), Sheets ("Word Cloud"). Cells (d.Row, d.Column) ) Katram e plotarea e.Value = Sheets ("Formulu saraksts"). Diapazons ("A1 "). Nobīde (x, 0). Vērtība e.Font.Size = 8 + Loksnes (" Formulu saraksts "). Diapazons (" A1 "). Nobīde (x, 0). Nobīde (0, 1). Vērtība / 4 Atlasiet Case ColorCopeType lietu 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 gadījums 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 Beigas Atlasiet e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Ja e.Value = "" Tad izejiet no beigas, ja nākamā e plotarea.Columns.AutoFit Beigu apakšnodaļaFormulu saraksts "). Diapazons (" A1 "). Nobīde (x, 0). Ofsets (0, 1). Vērtība / 4 Atlasīt lielo burtu ColorCopeType gadījums 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 Ja e.Value = "" Tad izejiet no beigām Ja nākamais e plotarea.Columns.AutoFit End SubFormulu saraksts "). Diapazons (" A1 "). Nobīde (x, 0). Ofsets (0, 1). Vērtība / 4 Atlasīt lielo burtu ColorCopeType gadījums 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 Ja e.Value = "" Tad izejiet no beigām Ja nākamais e plotarea.Columns.AutoFit End SubVērtība / 4 Atlasīt korpusu 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 Beigas Atlasiet e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Tad Exit For End If Next e plotarea.Columns. AutoFit End SubVērtība / 4 Atlasīt korpusu 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 Beigas Atlasiet e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Tad Exit For End If Next e plotarea.Columns. AutoFit End SubAutoFit End SubAutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Ja e.Value = "" Tad iziet uz Beigt Ja Nākamais e plotarea.Columns.AutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Ja e.Value = "" Tad iziet uz Beigt Ja Nākamais e plotarea.Columns.AutoFit End Sub
Nokopējiet un ielīmējiet iepriekš minēto kodu savā modulī. Darblapa, kurai ir formulu saraksts, jānosauc kā “Formulu saraksts”. Pēc tam programmā Excel ievietojiet jaunu darblapu un nosauciet to par “Word Cloud”.
Nesen ievietotajā loksnē pielāgojiet tālummaiņu līdz 40% un rindas augstumu - 85.
Tātad, tagad izpildiet kodu VBA, nospiežot pogu F5, jūs redzēsiet krāsu, kas izvēlas lietotāja formu.
Izvēlieties krāsu atbilstoši savai vēlmei. Ja nevēlaties vienu krāsu, izvēlieties opciju “Dažādas krāsas”. Mēs saņemsim vārdu mākoni lapā “Word Cloud”.
Šādi izmantojot VBA kodēšanu, mēs varam izveidot Word Cloud.
