[問題] VBA設定格式化條件=>色階功能
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Office
版本:2010
我想要用for迴圈把17*30 共 2個Frame Data , 用色階表示
以下程式有錯 , 請大大幫忙看一下
Sub Click()
For j = 0 To x
For k = 1 To y
Range("j:k").Select
Next k
Next j
Range("k").Activate
Selection.FormatConditions.AddColorScale ColorScaleType:=3
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
xlConditionValueLowestValue
With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
.Color = 7039480
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
xlConditionValuePercentile
Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
.Color = 8711167
.TintAndShade = 0
End With
Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
xlConditionValueHighestValue
With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
.Color = 8109667
.TintAndShade = 0
Office file連結如下
https://www.dropbox.com/s/0gu117c5wc6u7r1/Frame%20VBA.xlsx?dl=0
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.83.53.21
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1467963668.A.15C.html
→
07/08 15:54, , 1F
07/08 15:54, 1F
→
07/08 15:59, , 2F
07/08 15:59, 2F
→
07/08 16:00, , 3F
07/08 16:00, 3F
→
07/08 16:49, , 4F
07/08 16:49, 4F
Office 近期熱門文章
PTT數位生活區 即時熱門文章