一、获取舆图区域
首先须要获取对应的舆图区域,推举大家利用【阿里云舆图选择器】,百度搜索进入官网,选择自己须要的区域在右侧下载SVG格式的文件就好了
下载后,将SVG插入到Excel表格,取消组合两次,就会得到每个舆图的图片了,是可以随意移动的
二、构建赞助数据
1.确定区间与颜色值
最右侧是数字对应的区间颜色,这个须要先确定下,然后在最右边设置每个颜色的名字,这个等下定义名称须要用到
2.赞助列1
公式:=VLOOKUP(B2,$E$2:$F$4,2,TRUE)
将每个数字对应的颜色名称引用到对应的位置,实质Vlookup的近似匹配,我们须要构建构建一个赞助表,来进行数据的引用
3. 赞助列2
公式:=A2&CHAR(10)&B2
浸染是让区域名字与销量换行显示,等一下用于构建数据标签
三、定义名称
我们须要分别对颜色以及SVG格式的图片定义名称,只需选中它们,然后将鼠标放在【地址栏】输入对应的名字即可
每一个颜色,每一个SVG,都须要设置为它对应的颜色名称或者地区的名字,详细操作如下动图,我们仅仅演示了一个,所有的都须要定义的
四、设置VBA代码
点击【开拓工具】找到【Visual Basic】进入VBA编辑窗口,之后点击【插入】新建模块,把代码粘贴到窗口中,末了回到表格,点击【宏】找到【填色】点击【运行】就能事先根据数据大小自动的设置颜色了
Sub 填色()Application.ScreenUpdating = FalseFor i = 2 To 8ActiveSheet.Shapes(Range("sheet1!A" & i).Value).Fill.ForeColor.RGB = Range(Range("sheet1!C" & i).Value).Interior.ColorNext iApplication.ScreenUpdating = TrueEnd Sub
首先新建文本框,然后选择文本框,把鼠标放在【编辑栏】写一个即是号,直接点击【巩义】对应的赞助列2的值,末了变动背景色、边框为无,为字体设置一个白色,别的都须要这么设置不再颜色了,做法如下动图
至此就设置完毕,数据表动,点击【宏】找到【填色】再次实行一次即可
以上便是本日禀享的全部内容了,关注我,持续分享更多Excel技巧
以上内容在我的课程中都有详细讲到,如果你想要提高事情效率,不想再求同事帮你办理各种Excel问题,可以理解下我的专栏,讲解了函数、图表、透视表、数据看板等常用功能,带你快速成为Excel高手