請教上顏色問題，感謝!! - Excel程式區

[發問] 請教上顏色問題，感謝!!

1^# 跳轉到 »

發表於 2017-5-31 10:52 | 顯示全部帖子

考量往後可能會想定義不同顏色，建議用陣列，修改時不必改一堆判斷式

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

複製代碼

2^#

發表於 2017-5-31 21:03 | 顯示全部帖子

回復 6# lpk187
確實，用function來維護，會較不易出錯

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。