Žodžių debesis taip pat žinomas kaip „Tag cloud“ „Excel“, kuris yra vizualus teksto, pateikto „Excel“, pateikimas skirtingomis spalvomis ar formatais, žodžio debesyje darbo vaizdavimo dažnumas apibrėžiamas žodžio šriftu, tai daroma naudojant išmanioji „Excel“ meno ir formų savybė.
Kas yra „Word Cloud“ programoje „Excel“?
„Word Cloud“ yra žodžių rinkinys, kurį reikia parodyti vizualizacijos forma „Excel“. Tikiuosi, kad „Excel“ programoje matėte keletą geriausių informacijos suvestinių su skaičiais ir kūrybinėmis vizualizacijomis. Prietaisų skydai svyruoja nuo madingų šriftų su patraukliomis spalvomis ir super vaizdų. Viena iš savitų prietaisų skydelių, kuriuos matėte su „Word Cloud“. Tai atrodo kaip sudėtingas programinės įrangos atsisiųstas vaizdas, tačiau jis nėra atsisiųstas iš bet kur, o ne sukurtas naudojant „Excel VBA“ kodavimą. Taip !!! Tu teisus. Tai buvo sukurta naudojant VBA kodavimą, ir šiame straipsnyje mes jums parodysime, kaip sukurti tokį žodžių debesį su „Excel“.
Kaip sukurti „Word“ debesį programoje „Excel“?
Norėdami sukurti „Excel“ žodžių debesį, turime turėti žodžių duomenis ir kokių spalvų mums reikėjo šiems žodžiams. Tarkime, kad kuriate 30 „Excel“ formulių žodžių debesį. Taigi sudarykite 30 „Excel“ formulių sąrašą darbalapyje.
Pirmame stulpelyje užrašykite aukščiau pateiktas formules į savo darbalapį.
Parašę aukščiau nurodytus formulių pavadinimus B stulpelyje, taikykite funkciją RANDBETWEEN visoms 30 formulių taip, kad apatinė reikšmė būtų 1, o viršutinė - 250.
Kai duomenys bus paruošti, turime pereiti į „Visual Basic“ redaktorių. Sukurkite tokią vartotojo formą, kaip nurodyta toliau VBA.
Dabar turime sukonfigūruoti vartotojo formą VBA. Kiekvienam mygtukui turime parašyti kodą. Žemiau yra kiekvieno mygtuko kodas.
Dukart spustelėkite aukščiau nurodytos vartotojo formos mygtuką „Skirtingos spalvos“ ir pridėkite žemiau esantį kodą.
Kodas:
Privatus antrinis CommandButton1_Click () ColorCopeType = 0 Iškrauti mane 'Tai skirta kitai spalvai Pabaigos antrinė dalis
Tada dukart spustelėkite juodos spalvos mygtuką ir pridėkite žemiau esantį kodą.
Kodas:
„Private Sub“ CommandButton2_Click () ColorCopeType = 1 Iškraukite mane “Tai skirta juodai spalvai Pabaigos antrinė dalis
Visiems kitiems mygtukams taip pat pridėkite toliau nurodytus kodus.
Kodas:
„Private Sub CommandButton3_Click () ColorCopeType = 2 Iškrauti mane“ Tai skirta raudonai spalvai „End Sub Private Sub CommandButton4_Click () ColorCopeType = 3 Iškrauti mane“ Tai skirta žaliai spalvai „End Sub Private Sub CommandButton5_Click () ColorCopeType = 4 Iškrauti mane“ Tai skirta mėlyna spalva End Sub Private Sub CommandButton6_Click () ColorCopeType = 5 Iškrauti mane "Tai skirta geltonos spalvos End Sub Private Sub CommandButton7_Click () ColorCopeType = 6 Unload Me" Tai skirta baltai spalvai End Sub
Konfigūravę kodą, turime deklaruoti kintamąjį modulio viršuje.
Dabar turime parašyti kodą, kad sukurtume ilgą žodžių debesį. Žemiau yra kodas.
Kodas:
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, manekenas As Range Dim q As Integer, v As Integer Dim RedColor As Integer , „GreenColor“ kaip sveikasis skaičius, „BlueColor“ kaip sveikasis skaičius „UserForm1.Show WordCount = -1“ Nustatykite „WordCloud“ = „Sheets“ („Word Cloud“). Diapazonas („B2: H7“) ColumnCount = WordCloud.Columns.Count RowCount = WordCloud.Rows.Count už kiekvieną A stulpelis lentelėse („Formulių sąrašas“). Diapazonas („A: A“) Jei stulpelisA.Value = ""Tada išeikite kitur WordCount = WordCount + 1 pabaiga, jei kitas stulpelisA Pasirinkite atvejį WordCount byla WordCount = 0–20 WordColumn = WordCount / 5 atvejis WordCount = 21–40 WordColumn = WordCount / 6 atvejis WordCount = 41–40 WordColumn = WordCount / 8 atvejis WordCount = 80 iki 9999 WordColumn = WordCount / 10 End Pasirinkite WordRow = WordCount / WordColumn x = 1 Nustatykite c = Sheets ("Word Cloud"). Diapazonas ("A1"). Offset (((RowCount / 2 - WordRow / 2), (ColumnCount / 2 - WordColumn / 2)) Nustatykite d = Sheets („Word Cloud“). Diapazonas („A1“). Offset ((RowCount / 2 + WordRow / 2), (ColumnCount / 2 + WordColumn / 2)) Nustatyti plotarea = Skaičiuoklės („Žodžio debesis“). Diapazonas (Skaičiuoklės („Žodžio debesis“). Ląstelės (c.Row, c.Column), Lakštai („Word Cloud“). Ląstelės (d.Row, d.Column) ) Kiekvienam e plotarea e.Value = lakštai ("Formulių sąrašas"). Diapazonas ("A1 "). Poslinkis (x, 0). Vertė e.Font.Size = 8 + lakštai („ Formulių sąrašas “). Diapazonas („ A1 “). Poslinkis (x, 0). Poslinkis (0, 1). Vertė / 4 Pasirinkite 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 3 atvejis RedColor = 0 GreenColor = 255 BlueColor = 0 4 atvejis RedColor = 0 GreenColor = 0 BlueColor = 255 atvejis 5 RedColor = 255 GreenColor = 255 BlueColor = 100 atvejis 6 RedColor = 255 GreenColor = 255 BlueColor = 255 Pabaiga Pasirinkite e.Font.Color = RGB („RedColor“, „GreenColor“, „BlueColor“) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Exit For End If Next e plotarea.Columns.AutoFit Pabaigos antrFormulių sąrašas "). Diapazonas (" A1 "). Poslinkis (x, 0). Poslinkis (0, 1). Vertė / 4 Pasirinkite„ Case “„ ColorCopeType “atvejis 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 atvejis 5 „RedColor“ = 255 „GreenColor“ = 255 „BlueColor“ = 100 atvejis 6 „RedColor“ = 255 „GreenColor“ = 255 „BlueColor“ = 255 pabaiga Pasirinkite „e.Font.Color“ = RGB („RedColor“, „GreenColor“, „BlueColor“) e. Horizontalusis lygiavimas = xlCenter e. VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Tada Exit For End If Next e plotarea.Columns.AutoFit End SubFormulių sąrašas "). Diapazonas (" A1 "). Poslinkis (x, 0). Poslinkis (0, 1). Vertė / 4 Pasirinkite„ Case “„ ColorCopeType “atvejis 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 5 atvejis „RedColor“ = 255 „GreenColor“ = 255 „BlueColor“ = 100 atvejis 6 „RedColor“ = 255 „GreenColor“ = 255 „BlueColor“ = 255 pabaiga Pasirinkite „e.Font.Color“ = RGB („RedColor“, „GreenColor“, „BlueColor“) e. Horizontalusis lygiavimas = xlCenter e. VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Tada Exit For End If Next e plotarea.Columns.AutoFit End SubReikšmė / 4 Pasirinkite „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 Pabaiga Pasirinkite e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Tada Exit For End If Next e plotarea.Columns. AutoFit End SubReikšmė / 4 Pasirinkite „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 Pabaiga Pasirinkite e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Tada Exit For End If Next e plotarea.Columns. AutoFit End SubAutoFit End SubAutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Tada Exit For End Jei Kitas e plotarea.Columns.AutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Tada Exit For End Jei Kitas e plotarea.Columns.AutoFit End Sub
Nukopijuokite ir įklijuokite aukščiau nurodytą kodą į savo modulį. Darbalapis, kuriame yra formulių sąrašas, turėtų būti pavadintas „Formulių sąrašas“. Tada į „Excel“ įterpkite naują darbalapį ir pavadinkite jį „Word Cloud“.
Naujai įdėtame lape priartinkite mastelį iki 40%, o eilutės aukštį - 85.
Taigi, dabar vykdykite kodą VBA paspausdami mygtuką F5, pamatysite spalvą, pasirinkdami vartotojo formą.
Pasirinkite spalvą pagal savo norus. Jei nenorite vienos spalvos, tada pasirinkite parinktį „Skirtingos spalvos“. Žodžio debesis gausime lape „Žodžio debesis“.
Panašiai, naudodami VBA kodavimą, galime sukurti „Word Cloud“.
