vba excel條件格式在listObject

Question

我需要刪除一行單元取決於listobject中的相對列值。 我如何添加一個基於vba中的相對列值的所有行單元格的條件格式？ 例如：如果單元格的值= 1，則整個行需要被三振出局

我嘗試這樣做：

Dim qt As ListObject 
qt = Sheets.ListObjects(1) 
With qt.DataBodyRange 
.FormatConditions.Delete 
.FormatConditions.Add Type:=xlExpression, Formula1:="=[MyColumn]=0" 
.FormatConditions(0).Font.StrikeOut = True 
End With 

Answer 1

下使用.DataBodyRange property檢索在左上角的地址是用於formuLa。

With Worksheets("Sheet1") 
    With .ListObjects("Table1") 
     With .DataBodyRange 
      .FormatConditions.Delete 
      .FormatConditions.Add Type:=xlExpression, _ 
       Formula1:="=" & .Cells(1, 1).Address(0, 1) & "=1" 
      .FormatConditions(1).Font.Strikethrough = True 
     End With 
    End With 
End With 

注意，FormatConditions對象有一個基於1 ineex和使用Font.Strikethrough屬性，而不是Font.StrikeOut的。