Word cloud е известен също като Tag cloud in excel, което е визуално представяне на текст в Excel в различни цветове или формати, в облак от думи честотата на представянето на работата се определя от шрифта на думата, това се прави с помощта на функцията на интелигентното изкуство и форми на Excel.
Какво е Word Cloud в Excel?
Word Cloud е колекцията от думи, които се показват под формата на визуализация в Excel. Надявам се, че сте виждали някои от най-добрите табла с номера и креативни визуализации в Excel. Таблата за управление варират от елегантни шрифтове с атрактивни цветове и някои супер неща с него. Едно от особените табла за управление, които трябва да сте виждали с „Word Cloud“. Изглежда като сложен софтуер, изтеглен образ, но не се изтегля от никъде, а е създаден с кодиране на Excel VBA. Да !!! Прав си. Той е създаден чрез VBA кодиране и в тази статия ще ви покажем как да създадете такъв облак от думи с Excel.
Как да създам облак на Word в Excel?
За да създадем облак от думи в Excel, трябва да разполагаме с данни за думите и какви са цветовете, които са ни необходими за тези думи. Да предположим, че създавате облак от думи с 30 формули на Excel. Така че направете списък с 30 Excel формули в работния лист.
Напишете горните формули на вашия работен лист в първата колона.
След като напишете горните имена на формули в колона B, приложете функцията RANDBETWEEN за всички 30 формули, както следва, и запазете долната стойност като 1, а горната стойност като 250.
След като данните са готови, трябва да се насочим към редактора на Visual Basic. Създайте потребителски формуляр, както е показано по-долу във VBA.
Сега трябва да конфигурираме потребителската форма във VBA, тук. За всеки бутон трябва да напишем код. По-долу е даден кодът за всеки бутон.
Щракнете двукратно върху бутона „Различни цветове“ от горния потребителски формуляр и добавете кода по-долу.
Код:
Private Sub CommandButton1_Click () ColorCopeType = 0 Unload Me 'Това е за различен цвят End Sub
След това щракнете двукратно върху черния бутон и добавете долния код.
Код:
Private Sub CommandButton2_Click () ColorCopeType = 1 Unload Me 'Това е за черен цвят End Sub
По същия начин за всички останали бутони добавете кодовете по-долу.
Код:
Private Sub CommandButton3_Click () ColorCopeType = 2 Unload Me 'Това е за червен цвят End Sub Private Sub CommandButton4_Click () ColorCopeType = 3 Unload Me' Това е за зелен цвят End Sub Private Sub CommandButton5_Click () ColorCopeType = 4 Unload Me 'Това е за син цвят End Sub Private Sub CommandButton6_Click () ColorCopeType = 5 Unload Me 'Това е за жълт цвят End Sub Private Sub CommandButton7_Click () ColorCopeType = 6 Unload Me' Това е за бял цвят End Sub
След като конфигурираме кода, трябва да декларираме променливата в модула отгоре.
Сега трябва да напишем код, за да създадем облак от думи, който е дълъг. По-долу е кодът.
Код:
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 за всеки Колона A в листове („Списък с формули“). Диапазон („A: A“) Ако ColumnA.Value = ""След това излезте за друго WordCount = WordCount + 1 End, ако следваща колона Изберете случай WordCount Case WordCount = 0 до 20 WordColumn = WordCount / 5 Case WordCount = 21 до 40 WordColumn = WordCount / 6 Case WordCount = 41 до 40 WordColumn = WordCount / 8 Case WordCount = 80 до 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"). Диапазон (Sheets ("Word Cloud"). Клетки (c.Row, c.Column), Sheets ("Word Cloud"). Клетки (d.Row, d.Column) ) За всеки e In plotarea e.Value = Sheets ("Списък с формули"). Диапазон ("A1 "). Offset (x, 0). Стойност e.Font.Size = 8 + Sheets (" Formula List "). Range (" A1 "). Offset (x, 0). Offset (0, 1) .Value / 4 Изберете калъф ColorCopeType Калъф 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 = "" Тогава излезте за End If Next e plotarea.Columns.AutoFit Крайна подСписък с формули "). Обхват (" A1 "). Отместване (x, 0). Офсет (0, 1). Стойност / 4 Избор на случай ColorCopeType Дело 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 = "" Тогава излез за край, ако следващ e plotarea.Columns.AutoFit End SubСписък с формули "). Обхват (" A1 "). Отместване (x, 0). Офсет (0, 1). Стойност / 4 Избор на случай ColorCopeType Дело 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 = "" Тогава излез за край, ако следващ e plotarea.Columns.AutoFit End SubСтойност / 4 Избиране на случай 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 = "" Тогава излезте за End If Next e plotarea.Columns. AutoFit End SubСтойност / 4 Избиране на случай 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 = "" Тогава излезте за End If Next e plotarea.Columns. AutoFit End SubAutoFit End SubAutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Тогава излезте за край, ако следващ e plotarea.Columns.AutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 If e.Value = "" Тогава излезте за край, ако следващ e plotarea.Columns.AutoFit End Sub
Копирайте и поставете горния код във вашия модул. Работният лист, който има списък с формули, трябва да бъде именуван като „Списък с формули“. След това вмъкнете нов работен лист в Excel и го наречете „Word Cloud“.
В новопоставения лист коригирайте Zoom на 40% и коригирайте височината на реда на 85.
И така, сега изпълнете кода във VBA, като натиснете бутона F5, ще видите потребителската форма за избор на цвят.
Изберете цвета според вашето желание. Ако не искате един цвят, изберете опцията „Различни цветове“. Ще получим облака с думи в листа „Облак на думи“.
По този начин, използвайки VBA кодиране, можем да създадем Word Cloud.
