[已解决]VBA运行错误‘5’

tgsmall36

在网上下了一段VBA地图代码，然后我早上第一次修改部分参数后运行还是正确的，后来就一直错误，代码如下：
Sub 数据地图()
    Dim i%, c As Long '定义变量i为整数
    For i = 2 To 33 '为数据源的起始行和结束行行号，根据区域的多少来定
        Select Case Cells(i, 3) '循环引用第3列的数据
            Case Is >= Range("F2") '如果第3列数据大于F2
                c = Range("G2").Interior.Color '那么就填充G2的颜色
            Case Range("F3") To Range("F2")  '如果第3列数据在F3和F2之间
                c = Range("G3").Interior.Color '那么就填充G3的颜色
            Case Range("F4") To Range("F3") '如果第3列数据在F4和F3之间
                c = Range("G4").Interior.Color '那么就填充G4的颜色
            Case Range("F5") To Range("F4") '如果第3列数据在F5和F4之间
                c = Range("G5").Interior.Color '那么就填充G5的颜色
Case Else
                c = Range("G6").Interior.Color '否则就填充G6的颜色
        End Select '结束选择
       ActiveSheet.Shapes(Cells(i, 2)).Fill.ForeColor.RGB = c '填充当前活动工作表中第二列对应图形的颜色
    Next
End Sub


应该是下划线这段错误了，说是无效的过程调用或者参数，求教各位大神怎么修改？我把我的Excel表格也传上来了，哪位大神解答下，跪谢

最佳答案

月排行榜 / 总排行榜

windyjw007

2017-10-16 16:24

如下图所示，新疆对应的Shape Name是“Rectangle 39”，你代码使用Shapes("新疆")当然会报错咯！解决方法：将每个Shape对应的名字改成城市；或者增加一列辅助列，将城市对应图形的名称列出，然后代码根据图形名称进行循环{:2112:}

跳转到最佳答案楼层

砂海

貌似 RGB 是三个数字 , c只是一个 , 把 " .RGB "去掉看看==================================
补充说明: 我这个回答是错误的

tgsmall36

砂海 发表于 2017-10-16 14:36
貌似 RGB 是三个数字 , c只是一个 , 把 " .RGB "去掉看看

先感谢回复，貌似不是这个问题，我去掉了还是没用

windyjw007

如下图所示，新疆对应的Shape Name是“Rectangle 39”，你代码使用Shapes("新疆")当然会报错咯！解决方法：将每个Shape对应的名字改成城市；或者增加一列辅助列，将城市对应图形的名称列出，然后代码根据图形名称进行循环{:2112:}

tgsmall36

windyjw007 发表于 2017-10-16 16:24
如下图所示，新疆对应的Shape Name是“Rectangle 39”，你代码使用Shapes("新疆")当然会报错咯！解决方法： ...

先感谢，然后还是有点小问题，我并不希望文本框也有底色，只有下面的图形颜色有变化，全部改了后我发现文本框底色也会变了

tgsmall36

windyjw007 发表于 2017-10-16 16:24
如下图所示，新疆对应的Shape Name是“Rectangle 39”，你代码使用Shapes("新疆")当然会报错咯！解决方法： ...

感谢啦，我知道怎么回事了，田径和上海这两个地方没有对应的图形，得重新下一个图了，已解决，再次感谢

砂海

貌似 Power BI 直接有这样的功能 , 不用这么麻烦

砂海

Power BI | 交互式数据可视化 BI 工具
通过Microsoft Power BI 的交互式数据可视化 BI 工具,以全新方式查看公司数据。... 无论需要何种数据,无论数据位于何处,使用 Power BI 便可助你连接到数百种数据...