地图上色

数据源

地级市	地区生产总值（GDP）
苏州市	26727.00
南京市	18500.81
无锡市	16263.29
南通市	12421.90
常州市	10813.60
徐州市	10000.00
扬州市	7809.64
盐城市	7779.20
泰州市	7020.95
镇江市	5540.01
淮安市	5413.02
宿迁市	4801.85
连云港市	4663.13

等级	标准	颜色
五级	28000
四级	22000
三级	16000
二级	10000
一级	4000
注意数据的排序

'Sub color_set()
'
' max_row = Sheet1.Range("b10086").End(xlUp).Row
' With Sheet1
' For i = 2 To max_row
' Select Case .Range("b" & i).Value
' Case Is >= .Range("e2")
' mycolor = .Range("f2").Interior.Color
' Case .Range("e3") To .Range("e2")
' mycolor = .Range("f3").Interior.Color
' Case .Range("e4") To .Range("e3")
' mycolor = .Range("f4").Interior.Color
' Case .Range("e5") To .Range("e4")
' mycolor = .Range("f5").Interior.Color
' Case Else
' mycolor = .Range("f6").Interior.Color
' End Select
' .Shapes(.Range("a" & i).Value).Fill.ForeColor.RGB = mycolor
' Next
' End With
'End Sub