(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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

https://imgur.com/9AKrbYy 類似這樣如再測試時產生多餘格式化條件的話，可加上activesheet.cells.formatconditions.delete 於迴圈上方

I got it