Excel VBA條件格式-刪除0值的格式

Question

我在列中有一組值，分別為1 NA 0 1 0 NA和0。我在該列上運行了成功的腳本，以深綠色突出顯示頂部的值，並在其中運行值的頂部50％（不包括頂部的值）淺綠色。

Range("K4:K10").Select
Selection.FormatConditions.AddTop10
With Selection.FormatConditions(1)
   .TopBottom = xlTop10Top
   .Rank = 50
   .Percent = True
End With
With Selection.FormatConditions(1).Interior
   .Color = 13434777
End With
Selection.FormatConditions.AddTop10

Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1)
   .TopBottom = xlTop10Top
   .Rank = 1
End With
With Selection.FormatConditions(1).Interior
   .Color = 3394611
End With

那行得通，但是我現在想要做的（這將被添加到所有列中，其中大多數具有更高的數字）是從任何值為0的單元格中刪除突出顯示。我嘗試了以下代碼：

    Dim wsrng As Range
    For Each wsrng In Range("K4:K10")
        If wsrng.Value = 0 Then
            Selection.FormatConditions.Delete
        End If
    Next wsrng

但這會刪除列中每個單元格的突出顯示，無論其值如何。 有任何想法嗎？

Answer 1

將選擇更改為wsrng。

Dim wsrng As Range
    For Each wsrng In Range("K4:K10")
        If wsrng.Value = 0 Then
            wsrng.FormatConditions.Delete
        End If
    Next wsrng