Excel中的词云|如何使用Excel VBA创建词云?

词云在excel中也称为标签云,它是excel中不同颜色或格式的文本的可视表示形式,在词云中,作品表示的频率由单词的字体定义,这是通过使用excel的智能艺术和形状功能。

什么是Excel中的字云?

词云是在excel中以可视化形式显示的单词集合。希望您已经在excel中看到了一些带有数字和创意可视化效果的最佳仪表板。仪表盘的范围从具有吸引人的颜色的优雅字体到一些超级图片。您必须看到的奇特仪表板之一 “词云”。它看起来像一个复杂的软件下载图像,但是它不是从任何地方下载的,而是通过Excel VBA编码创建的。是的!!!您是正确的,它是通过VBA编码创建的,在本文中,我们将向您展示如何使用excel创建这样的词云。

如何在Excel中创建词云?

您可以在此处下载此词云Excel模板–词云Excel模板

要在excel中创建词云,我们需要获取词数据以及这些词需要什么颜色。假设您正在创建30个excel公式的词云。因此,在工作表中列出30个excel公式。

将以上公式写到第一栏中的工作表中。

将以上公式名称写入B列后,请对所有30个公式应用RANDBETWEEN函数,如下所示,并将最低值保持为1,最高值保持为250。

数据准备好后,我们需要转到Visual Basic编辑器。在VBA中创建一个如下所示的用户表单。

现在我们需要在VBA中配置用户窗体,在这里我们需要为每个按钮编写代码。以下是每个按钮的代码。

双击以上用户表单中的“不同颜色”按钮,然后添加以下代码。

代码:

 Private Sub CommandButton1_Click()ColorCopeType = 0卸载我'这是另一种颜色End Sub 

然后双击黑色按钮并添加以下代码。

代码:

 Private Sub CommandButton2_Click()ColorCopeType = 1卸载我'这是黑色的End Sub 

同样,对于所有其他按钮,请添加以下代码。

代码:

 Private Sub CommandButton3_Click()ColorCopeType = 2卸载我'这是用于红色End Sub Private Sub CommandButton4_Click()ColorCopeType = 3卸载我'这是绿色End Sub Private Sub CommandButton5_Click()ColorCopeType = 4卸载我'这是针对蓝色End Sub Private Sub CommandButton6_Click()ColorCopeType = 5卸载我'这是黄色的End Sub Private Sub CommandButton7_Click()ColorCopeType = 6 Unload Me'这是用于白色End Sub的 

配置代码后,我们需要在顶部的模块中声明变量。

现在,我们需要编写代码来创建冗长的词云。下面是代码。

代码:

 Sub word_cloud()Dim WordCloud作为范围Dim x作为整数,y作为整数Dim ColumnA作为范围,ColumnB作为范围Dim WordCount作为整数Dim ColumCount作为整数,RowCount作为整数Dim WordColumn作为整数,WordRow作为整数Dim plotarea作为范围,c作为范围,d作为范围,e作为范围,f作为范围,g作为范围Dim z作为整数,w作为整数Dim plotareah1作为范围,plotareah2作为范围,虚拟作为Range Dim q作为整数,v作为Integer Dim RedColor作为整数,将GreenColor作为整数,将BlueColor作为整数UserForm1.Show WordCount = -1设置WordCloud = Sheets(“ Word Cloud”)。Range(“ B2:H7”)ColumnCount = WordCloud.Columns.Count RowCount =每个WordCloud.Rows.Count Sheets中的ColumnA(“ Formula List”)。Range(“ A:A”)如果ColumnA.Value =“”,则退出以其他WordCount = WordCount + 1结束,如果下一个ColumnA选择大小写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结束选择WordRow = WordCount / WordColumn x = 1设置c = Sheets(“字云”).Range(“ A1”)。Offset((RowCount / 2-WordRow / 2),(ColumnCount / 2-WordColumn / 2))设置d = Sheets(“字云”).Range(“ A1”)。Offset((RowCount / 2 + WordRow / 2),(ColumnCount / 2 + WordColumn / 2))设置绘图区域= Sheets(“字云”).Range(Sheets(“字云”).Cells(c.Row,c.Column),Sheets(“字云”).Cells(d.Row,d.Column))为e中的每个e 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选择案例ColorCopeType案例0 RedColor =(255 * Rnd)+ 1 GreenColor =(255 * Rnd)+ 1 BlueColor =(255 * Rnd )+ 1个案例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绿色= 255蓝色= 100情况6红色= 255绿色= 255蓝色= 255最终选择e。字体颜色= RGB(红色,绿色,蓝色)e.Horizo​​ntalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1如果e.Value =“”然后如果下一个e plotarea.Columns.AutoFit End Sub,则退出结束 

将上面的代码复制并粘贴到您的模块中。具有公式列表的工作表应命名为“公式列表”。然后在excel中插入一个新的工作表,并将其命名为“ Word Cloud”。

在新插入的图纸中,将“缩放”调整为40%,并将行高调整为85。

因此,现在通过按F5按钮在VBA中执行代码,您将看到选择用户表单的颜色。

根据需要选择颜色,如果您不希望使用单一颜色,请选择“不同颜色”选项。我们将在“词云”表中获得词云。

像这样使用VBA编码,我们可以创建词云。