- 帖子
- 44
- 主題
- 4
- 精華
- 0
- 積分
- 84
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- sp2
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-10-12
- 最後登錄
- 2021-11-10
|
考量往後可能會想定義不同顏色，建議用陣列，修改時不必改一堆判斷式- Sub GiveColor()
- Dim ColorArr(), I%
- ColorArr = Array("", "13434879", "13434879", "13434879", "13434828", "13434828", "13434828", "16777164", "16777164", "16777164") '定義從0~9的顏色
- I = 2 '起始列
- With ActiveSheet
- Do While .Cells(I, 4) <> ""
- .Range(.Cells(I, 1), .Cells(I, 4)).Interior.Color = ColorArr(.Cells(I, 4))
- I = I + 1
- Loop
- End With
- End Sub
|
|
發表於 2017-5-31 10:52
| 