excel云 用Excel软件制作可视化的标签云，简单到没朋友！

前言:

用Excel软件制作可视化标签云，简单到没有朋友！

废话少说，先看效果图:

用Excel软件制作可视化标签云

功能描述:

选择任意两列数据，第一列为标签，第二列为数值；您可以选择任意行；

单击创建按钮自动创建标记云。字体越大，价格越高。

用字号显示价格，换个角度看世界！

1.开发工具选项卡- Visual Basic -插入模块并编写代码；

Sub createCloud()

该程序基于列表格式、标签的重要性

标签的重要性可以是任何值，它将被规范化为8到20之间的值

在错误GoTo上解决此问题

整数尺寸

尺寸=选择。计数/ 2

Dim标记()为字符串

模糊重要性()

重新标记(1到大小)为字符串

重新定义重要性(1到大小)

将最小值调成整数

将最大值调成整数

cntr = 1

i = 1

对于Excel中的每个单元格。选择

如果cntr Mod 2 = 1，则

taglist = taglist & amp手机。价值&。", "

标签(i) =单元格。价值

其他

重要性(i) = Val(单元格。值)

如果重要性(I)>;那就最大化

maxImp =重要性(I)

如果…就会结束

If重要性(i) <。minImp然后

minImp =重要性(I)

如果…就会结束

i = i + 1

如果…就会结束

cntr = cntr + 1

下一个单元格

将值粘贴到单元格E10中

范围(“e26”)。选择

ActiveCell。Value = taglist

ActiveCell。Font.size = 8

strt = 1

对于i = 1至尺寸

用主动细胞。字符(开始:=strt，长度:=Len(标记(I)))。字型

。size = 6 +数学。回合((重要性(i) -最小值)/(最大值-最小值)* 14，0)

。删除线=假

。Super = False

。Sub = False

。OutlineFont = False

。阴影=假

。下划线= xlUnderlineStyleNone

。ColorIndex = xlAutomatic

以…结尾

strt = strt + Len(标签(i)) + 2

接下来我

出口接头

解决此问题:

MsgBox“你需要选择一个表，我可以创建一个标签云”，vbCritical+vbOKOnly，“哇，好像有错！”

末端接头

写代码

2.插入命令按钮并将其与宏相关联:createCloud。你完了！

插入命令按钮以与宏相关联

结论:用字号显示价格，换个角度看世界！小伙伴们，你们学会了吗？如果你觉得这篇文章对你有帮助或者有启发，请赞美它，与更多的朋友分享。