[已解決]排序後在不同區塊圖上顏色

　頭銜: 街友一族

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-11-21 22:12 | 顯示全部帖子

比D2大超過150...
比D4大超過80~100間的儲存格…
比D4大超過30~60間的儲存格…
看得很糊塗。跟D2，D4比嗎？
中間的呢？100~150間的，60~80間的，還有小於30的

　頭銜: 街友一族

論壇貢獻勳章

2^#

發表於 2011-11-22 15:27 | 顯示全部帖子

Sub Macro4()
Range("C4:D22").Sort Key1:=Range("D4"), Order1:=xlDescending
For Each c In Range("d4:D22")
c.Interior.ColorIndex = Application.VLookup(c - [d2], [{-10000,0;30,5;61,0;80,6;101,0;150,7}], 2)
Next
End Sub

複製代碼

靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。