photosdematures.com

Ang cloud ng salita ay kilala rin bilang Tag cloud sa excel na isang visual na representasyon ng teksto sa excel sa iba't ibang kulay o format, sa isang salitang ulap ang dalas ng representasyon ng trabaho ay tinukoy ng font ng salita, ginawa ito sa pamamagitan ng paggamit ng ang matalinong sining at hugis na tampok ng excel.

Ano ang Word Cloud sa Excel?

Ang Word Cloud ay ang koleksyon ng mga salitang ipapakita sa anyo ng pagpapakita sa excel. Inaasahan kong nakita mo ang ilan sa mga pinakamahusay na dashboard na may mga numero at malikhaing visualization sa excel. Ang mga dashboard ay mula sa pangunahing uri ng mga font na may mga kaakit-akit na kulay na may ilang mga sobrang imahe ng mga imahe kasama nito. Isa sa mga kakaibang dashboard na dapat ay nakita mo "Word Cloud". Mukha itong isang sopistikadong na-download na imahe ng software ngunit hindi ito naida-download mula sa kahit saan kahit saan nilikha sa pamamagitan ng pag-coding ng Excel VBA. Oo !!! Tama ka nilikha ito ng VBA coding at sa artikulong ito, ipapakita namin sa iyo kung paano lumikha ng isang ulap na salitang may excel.

Paano lumikha ng isang Word Cloud sa Excel?

Maaari mong i-download ang Word Cloud Excel Template na ito - Word Cloud Excel Template

Upang lumikha ng isang salitang ulap sa excel kailangan nating magkaroon ng data ng mga salita at kung ano ang mga kulay na kailangan namin para sa mga salitang iyon. Ipagpalagay na lumilikha ka ng isang salitang ulap ng 30 excel na mga formula. Kaya gumawa ng isang listahan ng 30 mga formula ng excel sa worksheet.

Isulat ang mga pormula sa itaas sa iyong worksheet sa unang haligi.

Sa sandaling isinulat mo ang mga pangalan ng pormula sa itaas sa haligi B ilapat ang pagpapaandar na RANDBETWEEN para sa lahat ng 30 na mga formula tulad ng sumusunod at panatilihin ang ibabang halaga bilang 1 at ang nangungunang halaga bilang 250.

Kapag handa na ang data kailangan naming magtungo sa Visual Basic Editor. Lumikha ng isang Form ng Gumagamit tulad ng nasa ibaba sa VBA.

Ngayon kailangan naming i-configure ang form ng gumagamit sa VBA, dito para sa bawat pindutan na kailangan namin upang magsulat ng code. Nasa ibaba ang code para sa bawat pindutan.

Mag-double click sa pindutang "Iba't ibang Kulay" mula sa form sa itaas ng gumagamit at idagdag ang code sa ibaba.

Code:

 Pribadong Sub Command Button1_Click () ColorCopeType = 0 Unload Me 'Ito ay para sa ibang kulay End Sub 

Pagkatapos Mag-double click sa pindutang Itim na kulay at idagdag ang code sa ibaba.

Code:

 Pribadong Sub Command Button2_Click () ColorCopeType = 1 I-unload Ako 'Ito ay para sa itim na kulay End Sub 

Katulad nito, para sa lahat ng iba pang mga pindutan magdagdag ng mga code sa ibaba.

Code:

 Pribadong Sub Command Button3_Click () ColorCopeType = 2 I-unload Me 'Ito ay para sa pulang kulay End Sub Private Sub Command Button4_Click () ColorCopeType = 3 Unload Me' Ito ay para sa berdeng kulay End Sub Private Sub Command Button5_Click () ColorCopeType = 4 Unload Me 'Ito ay para sa asul na kulay End Sub Pribadong Sub Command Button6_Click () ColorCopeType = 5 I-unload Ako 'Ito ay para sa dilaw na kulay End Sub Pribadong Sub Command Button7_Click () ColorCopeType = 6 I-unload Ako' Ito ay para sa puting kulay End Sub 

Kapag na-configure namin ang code kailangan namin upang ideklara ang variable sa module sa itaas.

Ngayon kailangan naming magsulat ng isang code upang lumikha ng isang ulap ng salita na mahaba. Nasa ibaba ang code.

Code:

 Sub word_cloud () Dim WordCloud Bilang Saklaw na Dim x Bilang Integer, y Bilang Integer Dim ColumnA Bilang Saklaw, ColumnB Bilang Range Dim WordCount Bilang Integer Dim ColumCount Bilang Integer, RowCount Bilang Integer Dim WordColumn Bilang Integer, WordRow Bilang Integer Dim plotarea As Range, c Bilang Saklaw, d Tulad ng Saklaw, e Bilang Saklaw, f Tulad ng Saklaw, g Bilang Saklaw Dim z Bilang Integer, w Bilang Integer Dim plotareah1 Bilang Saklaw, plotareah2 Bilang Saklaw, dummy Bilang Saklaw na Dim q Bilang Integer, v Bilang Integer Dim RedColor Bilang Integer , GreenColor Bilang Integer, BlueColor Bilang Integer UserForm1. Ipakita ang WordCount = -1 Itakda ang WordCloud = Sheets ("Word Cloud"). Saklaw ("B2: H7") ColumnCount = WordCloud.Columns.Count RowCount = WordCloud.Rows.Count Para sa bawat ColumnA In Sheets ("Lista ng Formula"). Saklaw ("A: A") Kung ColumnA.Value = "" Pagkatapos Lumabas Para sa Iba Pang WordCount = WordCount + 1 Wakas Kung Susunod na ColumnA Piliin ang 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"). Saklaw ("A1"). Offset ((RowCount / 2 - WordRow / 2), (ColumnCount / 2 - WordColumn / 2)) Itakda ang d = Sheets ("Word Cloud"). Saklaw ("A1"). Offset ((RowCount / 2 + WordRow / 2), (ColumnCount / 2 + WordColumn / 2)) Itakda ang plotarea = Sheets ("Word Cloud"). Saklaw (Sheets ("Word Cloud"). Mga Cell (c.Row, c.Column), Sheets ("Cloud Cloud"). Mga Cell (d. Row, d.Column)) Para sa Ang bawat e Sa plotarea e.Value = Sheets ("Lista ng Formula"). Saklaw ("A1"). Offset (x, 0). Halaga e.Font.Size = 8 + Sheets ("Lista ng Formula"). Saklaw (" A1 "). Offset (x, 0) .Offset (0, 1). Halaga / 4 Piliin ang Case ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd ) + 1 Kaso 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 Kung e.Value = "" Kung gayon Exit For End Kung Susunod e plotarea.Columns.AutoFit End Sub 

Kopyahin at i-paste ang code sa itaas sa iyong module. Ang worksheet na mayroong listahan ng pormula ay dapat mapangalanan bilang "Lista ng Formula". Pagkatapos ay magsingit ng isang bagong worksheet sa excel at pangalanan ito bilang "Word Cloud".

Sa bagong ipinasok na sheet ayusin ang Zoom sa 40% at ayusin ang taas ng hilera sa 85.

Kaya, ngayon ay isagawa ang code sa VBA sa pamamagitan ng pagpindot sa pindutan ng F5, makikita mo ang kulay na pumipili ng form ng gumagamit.

Piliin ang kulay alinsunod sa iyong nais, kung hindi mo nais ang isang solong kulay pagkatapos ay piliin ang pagpipiliang "Iba't ibang Kulay". Makukuha namin ang salitang ulap sa sheet na "Word Cloud".

Tulad nito gamit ang VBA coding, makakalikha kami ng Word Cloud.