数据源
| 地级市 | 地区生产总值（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
