1700430031
1700430032
1700430033
1700430034
图A-8 Excel 2010版本的宏录制器
1700430035
1700430036
如何进行录制宏操作呢？以3.1节的分档填色地图做法为例，我们要用某个单元格的填充色去填充某个地图图形，因此需要知道：如何获知一个单元格的填充色，如何设置一个图形的填充色。那么我们可以进行以下的录制宏操作。
1700430037
1700430038
单击开发工具选项卡下的录制宏，出现如图A-9所示的对话框。
1700430039
1700430040
1700430041
1700430042
1700430043
图A-9 录制新宏的对话框
1700430044
1700430045
可以直接单击确定按钮，Excel将对接下来的操作录制宏。下面进行如下的操作：
1700430046
1700430047
①选中单元格A1；
1700430048
1700430049
②设置单元格A1的填充色为某种颜色；
1700430050
1700430051
③选中某个地图图形；
1700430052
1700430053
④设置该地图图形的填充色为某种颜色。
1700430054
1700430055
然后，单击停止录制按钮，终止录制宏操作。按Alt+F11键进入VBA编辑窗口，会看到如图A-10所示的界面。
1700430056
1700430057
1700430058
1700430059
1700430060
图A-10 通过录制操作得到的宏代码
1700430061
1700430062
左侧的工程窗口中，在模块目录下有个“模块1”对象，右侧名为Macro1的宏代码就是刚才录制宏操作的结果[1]，其中有两句关键代码：
1700430063
1700430064
①Selection. Interior. ColorIndex=1（设置A1单元格填充色）：
1700430065
1700430066
②Selection. ShapeRange. Fill. ForeColor. SchemeColor=8（设置地图图形填充色）
1700430067
1700430068
我们将其组合起来，让地图图形的填充色=A1单元格的填充色，并略作修改，再加入按区域个数的循环，得到如图A-11所示的代码。这段宏完成的任务就是：对每个区域的图形使用对应的颜色号（如color1）作为名称所指向的单元格的填充色来填充，绘制出一个分档填色的热力地图。
1700430069
1700430070
1700430071
1700430072
1700430073
图A-11 修改录制的关键代码编写的宏过程
1700430074
1700430075
当然，在将录制宏修改为自己的VBA代码的过程中，还是需要一点点编程的概念的。VBA是一种面向对象的语言，还是比较容易读懂的，即使不懂，按F1键或者通过Google搜索也可以获得相应的帮助。另外，使用宏主要是为了完成一些重复性的任务，因此你需要知道一些循环结构，如for i=1 to n…next，for each…in…next等。
1700430076
1700430077
本书中的绝大部分宏过程都是采用这种先录制、后Google、再修改的方法编写出来的，基本属于依葫芦画瓢。尤其是4.1节的图表式数据地图中，将图表复制为图片，再将图片粘贴到气泡图的数据点上，这种代码估计谁也不会知道该怎么写，但录制宏可以轻松获得关键代码。
1700430078
1700430079
所以，你完全不必担心自己不会编写宏代码，录制宏和Google将帮助你搞定！
1700430080