1700428170
后一部分做法与分档填色数据地图模型类似,K列为一组渐变的图例颜色,命名为color1~10;N列为分档阈值;I列根据G列数值大小,从N7: O16区域查找返回相应的颜色号,查找公式为:
1700428171
1700428172
I6 :=VLOOKUP(G6,$N$7:$O$16,2,1)
1700428173
1700428174
注意最后一个参数值为“1”,表示模糊查找,即返回小于查找值的最大数所在行的对应值。
1700428175
1700428176
2.生成气泡数据地图。
1700428177
1700428178
这一步与3.4节气泡式数据地图完全一样,请查阅该节相应内容。
1700428179
1700428180
3.使用宏填充气泡的颜色。
1700428181
1700428182
现在我们要根据各省I列的颜色号,对气泡填充相应的颜色,这是热力气泡式数据地图的主要特征,也是本做法的关键点。
1700428183
1700428184
Excel中插入的图表,默认的名称为“图表1”或“chart 1”之类的,比较好的习惯是先为图表命名一个有意义的名称,便于后续引用。所以我们先给气泡图命个名。
1700428185
1700428186
若使用2003版本,按住Ctrl键,用鼠标选中气泡图,在Excel左上角的名称框中输入“my_map_chart”,回车,即完成了气泡图的命名。
1700428187
1700428188
若使用2007以上版本,选中气泡图→图表工具选项卡→布局→属性→图表名称,输入“my_map_chart”,回车。显然2003版本的操作更为简便。
1700428189
1700428190
我们不知道设置气泡填充色的代码该如何写,但可以对以下操作录制宏:
1700428191
1700428192
选中气泡图数据系列→再选中某个数据点→设置一种填充色→设置透明度为50%。
1700428193
1700428194
根据得到的宏代码,修改、编写如图3-15所示的宏代码。
1700428195
1700428196
1700428197
1700428198
1700428199
图3-15 设置气泡图数据点填充色的宏
1700428200
1700428201
这段宏代码将对气泡图的每个数据点,使用对应省I列的值作为名称所指向的K列对应单元格的颜色进行填充,并同时设置透明度,使之呈现半透明的效果。若使用2003版本,将不支持设置透明度,可省略此特征。
1700428202
1700428203
使用窗体控件或矩形框,绘制一个按钮,为其指定宏为fill_bubble_color。现在单击按钮,各个气泡即被自动填色,请检查所填颜色正确无误。
1700428204
1700428205
4.为地图添加图例和标签。
1700428206
1700428208
1700428209
若需为气泡添加数值标签,可使用标签修改工具XY Chart Labeler[4]设置显示为H列。
1700428210
1700428211
最后完成的地图如图3-16所示,与例图效果几无二致。
1700428212
1700428213
1700428214
1700428215
1700428216
1700428217
1700428218
1700428219
图3-16 热力气泡式数据地图
[
上一页 ]
[ :1.70042817e+09 ]
[
下一页 ]