Question

全新的Excel宏。下面的工作项目的宏。目标是根据不同的值为邮政编码地图着色......创建“热图”。我在“ZipcodeData”表上有一个zipcodes列表和相应的值（值根据从列表框中选择的数据而变化）。我使用此视频作为创建代码的指南：https://www.youtube.com/watch?v=RfjCkHK2TXM

我有一张根据我命名的每个邮政编码的形状创建的地图。我正在使用Excel 2013。

代码在运行时不会显示任何错误 - 但是;运行宏时，地图没有任何反应，或者尝试选择对显示的任何更改。我做错了什么？

Sub Shading()

    For i = 2 To 55 Step -1
    Range("actReg").Value = Range("ZipcodeData!S" & i).Value
    ActiveSheet.Shapes(Range("actReg").Value).Select
    Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actRegCode").Value).Interior.Color
    Next i

    Range("Q1").Select

End Sub

交互式地图的宏

0 个答案: