Excel数据地图

省份数值颜色0color10~0.2广西18.1%color10.2color20.2~0.4广东6.1%color10.4color30.4~0.6重庆2.6%color10.6color40.6~0.8福建92.6%color50.8color50.8~甘肃84.5%color5北京62.0%color4安徽13.9%color1贵州49.8%color3海南10.5%color1河北55.7%color3黑龙江7.4%color1河南2.0%color1湖北64.1%color4湖南80.8%color5江苏55.6%color3江西76.2%color4吉林37.9%color2辽宁89.5%color5内蒙古3.3%color1宁夏21.8%color2青海46.3%color3山东16.7%color1上海7.2%color1陕西40.9%color3山西95.2%color5四川89.0%color5天津22.8%color2新疆88.8%color5西藏84.7%color5云南36.8%color2浙江19.2%color1设置阀值设置图例~Sub填色()Application.ScreenUpdating=False'暂停刷新屏幕Fori=3To33'为数据源的起始和结束行号(因为A列省份是从第三行到33行的)ActiveSheet.Shapes(Range(sheet1!A&i).Value).Fill.ForeColor.RGB=Range(Range(sheet1!C&i).Value).Interior.Color'对各省的图形使用其颜色栏的值作为名称所指向的单元格的颜色填充NextiApplication.ScreenUpdating=True'恢复刷新屏幕EndSub