1700429260
使用两个工作表来构建本模型：map工作表为分析界面，data工作表存放数据源，以及根据用户选择为地图和图表准备的作图数据，如图6-7所示。
1700429261
1700429262
1700429263
1700429264
1700429265
图6-7 综合数据地图分析模型 范例文件名：6.2仿《经济学人》数据地图分析模型.xls（或.xlsm）
1700429266
1700429267
2．制作指标选择按钮，选择结果存放到单元格B10。
1700429268
1700429269
使用窗体控件绘制一组单选按钮，供用户选择分析指标，设置选择结果链接到单元格B10。也可以使用列表框等其他控件类型。
1700429270
1700429271
3．制作地图选择器，选择结果存放到单元格C10。
1700429272
1700429273
先将各省地图图形放置在B10:I32处，注意，图形的命名应与data工作表中的省名一致。
1700429274
1700429275
按5.4节的做法，制作地图选择器。这里需要编写地图选择器的公用宏代码，以及用宏批量设置各省图形的宏调用。
1700429276
1700429277
有一点不同的是，为不改变热力地图的填充色，我们对“当前选中的地图图形”用红色边框线来表示。其宏代码如图6-8所示。
1700429278
1700429279
1700429280
1700429281
1700429282
图6-8 地图选择器的宏代码
1700429283
1700429284
4．准备动态地图的数据。
1700429285
1700429286
在data工作表中，根据map工作表B10和C10单元格记录的用户选择结果，从数据源区域查找返回相应的指标数据，作为地图和图表的数据源，如图6-9所示。
1700429287
1700429288
1700429289
1700429290
1700429291
图6-9 数据准备
1700429292
1700429293
C3和B3引用map工作表的B10和C10，即用户选择的指标序号和省名。
1700429294
1700429295
C5：=INDEX(J5:S5,$C$3)，返回与指标序号对应的指标值。
1700429296
1700429297
D5：=($G$5-C5)/($G$5-$G$6)*90%，根据与最大及最小值的匹配关系返回透明度百分比。
1700429298
1700429299
5．编写绘制地图的宏。
1700429300
1700429301
当用户选择了新的指标数据，模型就调用宏代码，根据所选指标数据重新填充地图颜色。
1700429302
1700429303
这里需要编写透明度热力地图的填色宏代码，使用data工作表中D列的透明度数据来填充各省地图图形，如图6-10所示，可参阅5.3节的内容。
1700429304
1700429305
1700429306
1700429307
1700429308
图6-10 根据透明度绘制地图的宏
1700429309