1700428890
1700428891
=TRANSPOSE(data!C10:L10)
1700428892
1700428893
输入完成后按Ctrl+Shift+Enter键，整个F11:F20区域都出现以上公式，并且公式前后出现一对花括号“{}”，表示公式被输入为数组公式。F11:F20就是对data工作表中C10:L10的转置引用。
1700428894
1700428895
用窗体控件绘制一个列表框，设置其数据源区域为F11:F20，链接单元格为F9。现在，单击选择列表框，选择结果将以序号形式记录在F9中。
1700428896
1700428897
3．准备所选指标的数据。
1700428898
1700428899
根据F9的选择结果，在C列输入公式查找各省当前所选择指标的对应数据。以C11为例，其公式为：
1700428900
1700428901
C11: =VLOOKUP(B11,data!$B$11:$L$44,$F$9+1,0)
1700428902
1700428903
公式根据所选择指标的序号，从源数据区域查找并返回各省对应的数值，即当前所选指标的数据。
1700428904
1700428905
4．修改刷新地图的宏。
1700428906
1700428907
现在编写刷新地图的宏代码。在切换不同的指标时，我们想让地图的基准色也发生变化。一方面可以提醒用户注意到指标的变化，另一方面可以让地图颜色的象征意义与指标相符，如对GDP可使用蓝色，对单位能耗则需使用红色。
1700428908
1700428909
在F列指标名称的右侧单元格即G列，填充不同的颜色，这个颜色将作为该指标的地图基准色。
1700428910
1700428911
仍利用3.2节的填色宏代码，修改后如图5-8所示。
1700428912
1700428913
1700428914
1700428915
1700428916
图5-8 按指标基准色和透明度填充地图的宏
1700428917
1700428918
这段宏代码在对地图填色时，会使用当前所选指标对应的G列单元格的填充颜色作为地图的基准色。将此宏指定给列表框选择器，那么每次选择指标后都会触发此宏来刷新地图。
1700428919
1700428920
5．测试动态地图。
1700428921
1700428922
在地图上方绘制一个大字号的文本框，引用当前选中的指标名称，作为地图的指标名称提示。
1700428923
1700428924
现在，通过列表框选择不同的指标，地图就会刷新。不同的指标，地图的基准色是不一样的。
1700428925
1700428926
同5.3节，我们也增加一个自动切换指标的播放按钮，便于浏览观察各个指标之间的地域分布差异。自动播放宏可参见范例文件，这里不细述。
1700428927
1700428928
同样地，为了便于讲解，例中将有关辅助区域与地图放置在了一起，你可以将其隐藏，留给用户一个干净的分析界面。
1700428929
1700428930
采用透明度做法制作动态地图，优点是不必为不同的指标设置分档阈值和图例颜色，各指标统一采用按比例计算透明度办法，适用性强。3.4节的气泡地图做法也可以采用这种形式，做成动态地图，因为气泡的大小也是直接由具体数据大小决定的，不需要设置分档。这里就不具体介绍了，读者可以自行尝试。
1700428931
1700428932
懒人直接用
1700428933
1700428934
在随书范例包中找到并打开“5.3切换指标数据的动态数据地图.xls（或.xlsm）”文件，启用宏：
1700428935
1700428936
●在data工作表相应位置输入数据。
1700428937
1700428938
●在map工作表中即可选择指标通过地图分析数据了。
1700428939