Question

对于那些使用主题（choropleth）的人来说，有没有人做过这样的活动？＆＃34;

我通过将每个州的生产数据与美国地图联系起来，创建了一个VBA专题地图。但是，结果是一个静态映射，它只显示一个数据集（在本例中，每年所有状态）。

以下是代码：

Dim y
Dim T1 As Long
Dim T2 As Long
Dim T3 As Long
Dim T4 As Long
Dim T5 As Long

y = 1
T1 = 0
T2 = 5
T3 = 10
T4 = 15
T5 = 20
For Each cell In ActiveSheet.Range("C6:C53") 'The data points on each state for the year 2009,    where columns D, E, F, G are 2010, 2011, 2012, 2013, respectively.
If cell.Value = T1 Then
Sheets("Map").Shapes(y).Fill.ForeColor.RGB = RGB(255, 255, 255)
ElseIf cell.Value <= T2 And cell.Value > T1 Then
Sheets("Map").Shapes(y).Fill.ForeColor.RGB = RGB(250, 249, 232)
ElseIf cell.Value <= T3 And cell.Value > T2 Then
Sheets("Map").Shapes(y).Fill.ForeColor.RGB = RGB(247, 245, 218)
ElseIf cell.Value <= T4 And cell.Value > T3 Then
Sheets("Map").Shapes(y).Fill.ForeColor.RGB = RGB(237, 233, 180)
ElseIf cell.Value <= T5 And cell.Value > T4 Then
Sheets("Map").Shapes(y).Fill.ForeColor.RGB = RGB(232, 226, 140)
ElseIf cell.Value > T5 Then
Sheets("Map").Shapes(y).Fill.ForeColor.RGB = RGB(224, 216, 96)
End If

y = y + 1

Next

我添加了一个滚动条，其中2009为最小值，2013为最大值，将滚动的值链接到单元格（例如，单元格C30）。

我希望通过滚动条形图来自动化地图并让地图“转移”＃34;每个年度数据集响应链接的单元格（C30）。

这可能吗？这里有人有办法吗？

Answer 1

如果你能给我发一份你迄今为止工作过的excel工作样本，我可以这样做。请作为附件发送至电子邮件ID：summer12in@yahoo.com

...谢谢

动态专题地图

1 个答案: