excel - 如何更改 VBA 条件格式的优先级

Question

我在 Excel 2013 中使用 VBA，并且有一个关于设置优先级的问题。我正在尝试更改范围内条件格式的优先级。 End If 之前的最后一行是我遇到问题的地方。截至目前，它仅插入到#1 位置，而不是插入到#2 位置。我尝试按照 Microsoft 上的文档进行操作，例如此页面 ->

https://msdn.microsoft.com/en-us/library/office/microsoft.office.interop.excel.formatcondition.priority.aspx

以及其他显示示例的有用页面 ->

https://blogs.office.com/en-us/2005/10/14/conditional-formatting-using-vba-some-examples/

但这些最终都没有奏效。

Range("F6:F9").Select
If Selection.FormatConditions(2).Interior.TintAndShade = 0.799981688894314 Then
Else    
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MATCH($F$3,$H$6:$H$9,FALSE)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    [...]

    ***Selection.FormatConditions(1).Priority = 2***
End If

Answer 1

我找到了解决方法!不要尝试将新格式插入到 #2 位置，而是首先将新格式设置为 #1 位置，然后将 #2 位置设置为 #1，然后将新格式设置为#2位置。本质上，移动其他所有东西，它就会自行解决。

Range("F6:F9").Select
If Selection.FormatConditions(2).Interior.TintAndShade = 0.799981688894314 Then
Else

    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MATCH($F$3,$H$6:$H$9,FALSE)"
    ***Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority***
    [...]
    ***Selection.FormatConditions(2).SetFirstPriority***
    Selection.FormatConditions(1).StopIfTrue = False
End If