数据地图模板（中国-山东）

     今天终于碰到一个可以做数据地图的数据了，照图表之道上的几个模板，把全国和山东的合在了一张工作簿里面.

Sub user_click()
    '1、取A1单元格值，将上次选择的地图版块填充黄色，即还原填充色
     ActiveSheet.Shapes(Range("A1").Value).Fill.ForeColor.SchemeColor = 58    
    '2、将当前选择的地图版块名称填值到A1
    Range("A1").Value = ActiveSheet.Shapes(Application.Caller).Name
    '3、将当前选择的地图版块填充红色
    ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.SchemeColor = 14
End Sub

 Application.Caller会返回此宏的调用者。

   



模板下载地址：（适用于全国各省或山东省内各市月/日维度比较）

http://www.kuaipan.cn/file/id_33884160934297947.html