photosdematures.com

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

什么是Excel中的字云？

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