[問題] VBA設定格式化條件=>色階功能

[aup65797 (有緣人)]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: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
→ soyoso: https://imgur.com/9AKrbYy 類似這樣
→ soyoso: 如再測試時產生多餘格式化條件的話，可加上
→ soyoso: activesheet.cells.formatconditions.delete 於迴圈上方
→ aup65797: I got it