Cloud Word este, de asemenea, cunoscut sub numele de Tag Cloud in Excel, care este o reprezentare vizuală a textului în Excel în diferite culori sau formate, într-un nor de cuvinte, frecvența reprezentării muncii este definită de fontul cuvântului, aceasta se face utilizând caracteristica inteligentă de artă și forme ale excel.
Ce este Word Cloud în Excel?
Word Cloud este colecția de cuvinte de afișat sub formă de vizualizare în excel. Sper că ați văzut unele dintre cele mai bune tablouri de bord cu numere și vizualizări creative în Excel. Tablourile de bord variază de la fonturi clasice, cu culori atractive, cu niște imagini super lucruri. Unul dintre tablourile de bord ciudate pe care trebuie să le fi văzut cu „Word Cloud”. Arată ca o imagine sofisticată descărcată de software, dar nu este descărcată de oriunde, ci mai degrabă creată cu codificare Excel VBA Da!!! Ai dreptate. A fost creat prin codificare VBA și, în acest articol, vă vom arăta cum să creați un astfel de cloud de cuvinte cu Excel.
Cum se creează un Cloud Word în Excel?
Pentru a crea un nor de cuvinte în Excel, trebuie să avem date despre cuvinte și care sunt culorile de care aveam nevoie pentru acele cuvinte. Să presupunem că creați un nor de cuvinte cu 30 de formule Excel. Deci, faceți o listă de 30 de formule Excel în foaia de lucru.
Scrieți formulele de mai sus în foaia de lucru în prima coloană.
După ce scrieți numele formulelor de mai sus în coloana B, aplicați funcția RANDBETWEEN pentru toate cele 30 de formule după cum urmează și păstrați valoarea inferioară ca 1 și valoarea de sus ca 250.
Odată ce datele sunt gata, trebuie să ne îndreptăm către Editorul Visual Basic. Creați un formular de utilizator ca cel de mai jos în VBA.
Acum trebuie să configurăm forma de utilizator în VBA, aici. Pentru fiecare buton, trebuie să scriem cod. Mai jos este codul pentru fiecare buton.
Faceți dublu clic pe butonul „Culori diferite” din formularul de mai sus și adăugați codul de mai jos.
Cod:
Private Sub CommandButton1_Click () ColorCopeType = 0 Descarcă-mă 'Aceasta este pentru o altă culoare End Sub
Apoi faceți dublu clic pe butonul negru și adăugați codul de mai jos.
Cod:
Private Sub CommandButton2_Click () ColorCopeType = 1 Descarcă-mă 'Aceasta este pentru culoare neagră End Sub
În mod similar, pentru toate celelalte butoane, adăugați codurile de mai jos.
Cod:
Private Sub CommandButton3_Click () ColorCopeType = 2 Descarcă-mă 'Aceasta este pentru culoarea roșie End Sub Private Command CommandButton4_Click () ColorCopeType = 3 Descarcă-mă' Aceasta este pentru culoarea verde End Sub Private Sub CommandButton5_Click () ColorCopeType = 4 Descarcă-mă 'Aceasta este pentru culoare albastră End Sub Private Sub CommandButton6_Click () ColorCopeType = 5 Descarcă-mă 'Aceasta este pentru culoarea galbenă End Sub Private Sub CommandButton7_Click () ColorCopeType = 6 Descarcă-mă' Aceasta este pentru culoare albă End Sub
Odată ce configurăm codul, trebuie să declarăm variabila din modul de deasupra.
Acum trebuie să scriem un cod pentru a crea un nor de cuvinte, care este lung. Mai jos este codul.
Cod:
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 Ca Range, c As Range, d As Range, e As Range, f As Range, g As Range Dim z Integer, w As Integer Dim plotareah1 As Range, plotareah2 As Range, fictiv 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 Pentru fiecare Coloana A în foi („Listă de formule”). Interval („A: A”) Dacă ColumnA.Value = ""Apoi Ieșiți pentru alte cuvinte WordCount = WordCount + 1 Sfârșit dacă următoarea coloană A Selectați caz WordCount caz WordCount = 0 până la 20 WordColumn = WordCount / 5 caz WordCount = 21 până la 40 WordColumn = WordCount / 6 caz WordCount = 41 până la 40 WordColumn = WordCount / 8 caz WordCount = 80 până la 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)) Set plotarea = Sheets ("Word Cloud"). Range (Sheets ("Word Cloud"). Cells (c.Row, c.Column), Sheets ("Word Cloud"). Cells (d.Row, d.Column) ) Pentru fiecare e In plotarea e.Value = Foi ("Lista de formule"). Interval ("A1 "). Offset (x, 0). Valoare e.Font.Size = 8 + Foi (" Lista de formule "). Gama (" A1 "). Offset (x, 0). Offset (0, 1). Valoare / 4 Selectați Carcasă ColorCopeType Carcasă 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Carcasă 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Carcasă 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 Selectare finală 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 Sfârșitul SubLista formulelor "). Gama (" A1 "). Offset (x, 0). Offset (0, 1). Valoare / 4 Selectați 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 = xlCent. VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Exit For End If Next e plotarea.Columns.AutoFit End SubLista formulelor "). Gama (" A1 "). Offset (x, 0). Offset (0, 1). Valoare / 4 Selectați 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 = xlCent. VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Exit For End If Next e plotarea.Columns.AutoFit End SubValoare / 4 Selectați cazul ColorCopeType Casă 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 = "" Then Exit For End If Next e plotarea.Columns. AutoFit End SubValoare / 4 Selectați cazul ColorCopeType Casă 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 = "" Then 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 = "" Exit For End If Next e plotarea.Columns.AutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Exit For End If Next e plotarea.Columns.AutoFit End Sub
Copiați și lipiți codul de mai sus în modulul dvs. Foaia de lucru care are o listă de formule trebuie denumită „Listă de formule”. Apoi introduceți o nouă foaie de lucru în Excel și denumiți-o ca „Word Cloud”.
În foaia nou introdusă, reglați Zoom-ul la 40% și reglați înălțimea rândului la 85.
Deci, acum executați codul în VBA apăsând butonul F5, veți vedea culoarea alegând formularul de utilizator.
Alegeți culoarea conform dorinței dvs. Dacă nu doriți o singură culoare, alegeți opțiunea „Culori diferite”. Vom obține cloudul de cuvinte în foaia „Cloud Word”.
Astfel, folosind codarea VBA, putem crea Word Cloud.
