[已解决]求：这种地图图表代码怎么改？

fxgg72

如题，见附件。
谢谢各位大侠老师的帮助！！！


求：这种地图图表代码怎么改？.rar (82.01 KB, 下载次数: 29)

2017-8-16 10:48 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-8-21 11:45

Sub 按客户数新()
Dim arr, i, brr, j
On Error Resume Next
Call 取消合并 '加取消组合和组合，应急满足运行宏要求
arr = [o3:s36] '数据源，O是拼音，后面是数据源
brr = [l15:m20] '颜色区域
For i = 1 To UBound(brr)
    brr(i, 1) = Range("l" & i + 14).Interior.Color '把颜色值给brr(i,1)，对应颜色单元格i+14,就是从I15开始的，颜色数据源
Next
For j = 1 To UBound(arr) '通过改变arr(j,N)中的n换数据源这里的数据源n=2
    ActiveSheet.Shapes(arr(j, 1)).Fill.ForeColor.RGB = brr(Application.Match(Application.Lookup(arr(j, 2), Range("m15:m20")), [m15:m20], 0), 1)
Next
Call 合并
End Sub

授人与鱼不如授人予渔，自己体会吧，先想想代码做什么用的！

跳转到最佳答案楼层

这儿有肥猫

做了一个合同总额的，另外一个可以参考

fxgg72

这儿有肥猫 发表于 2017-8-16 21:57
做了一个合同总额的，另外一个可以参考

点击“按合同金额填充”会出现运行错误。
截图由于网络原因上传不了。
麻烦老师在做下一“按客户数填充”的按钮吧，我是菜鸟级，搞不来的。
万分感谢！

这儿有肥猫

运行错误？怎么会？

fxgg72

这儿有肥猫 发表于 2017-8-17 12:34
运行错误？怎么会？

还是运行错误。
老师我是Excel2003版的。
谢谢！

这儿有肥猫

升级一下excel吧，离2003年过去都有10几年了

fxgg72

这儿有肥猫 发表于 2017-8-17 13:59
升级一下excel吧，离2003年过去都有10几年了

老师帮我做成03版本的吧。其他高版本不会啊！我给您最佳
谢谢！

02761752696

谢谢    分享  

这儿有肥猫

fxgg72 发表于 2017-8-17 19:23
老师帮我做成03版本的吧。其他高版本不会啊！我给您最佳
谢谢！

关键是我手头所有的电脑装的最低版本都是2007的

fxgg72

这儿有肥猫 发表于 2017-8-18 09:24
关键是我手头所有的电脑装的最低版本都是2007的

特别的难过