Динамическая тематическая карта

Question

Для тех, кто работал с тематическими (choropleth), кто-нибудь сделал это «динамическим»?

Я создал тематическую карту 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, как максимум, связывающее значение свитки к клетке (например, ячейка С30) ,

Я хотел бы автоматизировать карту, прокручивая ее через панель и «сдвигать» карту каждый годовой набор данных в ответ на связанную ячейку (C30).

Возможно ли это? Есть ли у кого-нибудь подход к этому?

Answer 1

Я могу это сделать, если вы можете отправить мне образец работы с Excel, над которым вы работали до сих пор. Пожалуйста, отправьте в виде прикрепленного письма на адрес электронной почты: summer12in@yahoo.com

Спасибо ...