Word Cloud în Excel

Cloud Word este, de asemenea, cunoscut sub numele de Cloud Cloud în 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.

Table of Contents

Toggle

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 cu care trebuie să fi văzut „Cloud Word”. 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. Acesta 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.

Sunteți liber să utilizați această imagine pe site-ul dvs. web, șabloane etc., Vă rugăm să ne furnizați un link de atribuireCum să oferiți atribuire?Link către articol de către hyperlink
De exemplu:
Sursă: Word Cloud în Excel (wallstreetmojo.com)

Cum se creează un Cloud Word în Excel?

Pentru a crea un cloud de cuvinte în Excel, trebuie să avem date despre cuvinte și care sunt culorile de care aveam nevoie pentru aceste 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
Unload Me
'This is for a different color
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
Unload Me
'This is for black color
End Sub

În mod similar, pentru toate celelalte butoane, adăugați codurile de mai jos.

Cod:

Private Sub CommandButton3_Click()
ColorCopeType = 2
Unload Me
'This is for red color
End Sub

Private Sub CommandButton4_Click()
ColorCopeType = 3
Unload Me
'This is for green color
End Sub

Private Sub CommandButton5_Click()
ColorCopeType = 4
Unload Me
'This is for blue color
End Sub

Private Sub CommandButton6_Click()
ColorCopeType = 5
Unload Me
'This is for yellow color
End Sub

Private Sub CommandButton7_Click()
ColorCopeType = 6
Unload Me
'This is for white color
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 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 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

For Each ColumnA In Sheets("Formula List").Range("A:A")
If ColumnA.Value = "" Then
Exit For
Else
WordCount = WordCount + 1
End If
Next ColumnA

Select Case WordCount
Case WordCount = 0 To 20
WordColumn = WordCount / 5
Case WordCount = 21 To 40
WordColumn = WordCount / 6
Case WordCount = 41 To 40
WordColumn = WordCount / 8
Case WordCount = 80 To 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))

For Each e In plotarea
e.Value = Sheets("Formula List").Range("A1").Offset(x, 0).Value
e.Font.Size = 8 + Sheets("Formula List").Range("A1").Offset(x, 0).Offset(0, 1).Value / 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 = "" Then
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 norul de cuvinte în foaia „Cloud Word”.

Astfel, folosind codarea VBA, putem crea Word Cloud.

Articole recomandate

Acesta a fost un ghid pentru Word Cloud în Excel. Aici vom discuta despre cum să creați un cloud de cuvinte în Excel folosind codarea VBA cu un exemplu și o foaie Excel descărcabilă. Puteți afla mai multe despre Excel din următoarele articole –

• Autofit Excel Row Height
• Tabloul de bord Excel KPI
• Calculator Excel
• Utilizați AverageIF în Excel