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