Excel VBA -更改特定条件格式设置规则

Sub ChangeConditionalFormatting()
    Dim ws As Worksheet
    Dim cfRule As FormatCondition

    '获取当前活动的工作表
    Set ws = ActiveSheet

    '循环遍历所有的条件格式设置规则
    For Each cfRule In ws.Cells.FormatConditions
        '检查条件格式设置规则类型是否为颜色标度规则
        If TypeOf cfRule Is ColorScale Then
            '更改颜色标度规则的最小值、中间值和最大值
            cfRule.ColorScaleCriteria(1).Type = xlConditionValueNumber
            cfRule.ColorScaleCriteria(1).Value = 0
            cfRule.ColorScaleCriteria(2).Type = xlConditionValuePercentile
            cfRule.ColorScaleCriteria(2).Value = 50
            cfRule.ColorScaleCriteria(3).Type = xlConditionValueNumber
            cfRule.ColorScaleCriteria(3).Value = 100
        End If
    Next cfRule
End Sub