vba - FormatConditions 边框在一条边上

Question

当第 1 列中的数据发生更改时，我正在尝试在行之间添加边框。此代码在.LineStyle = xlContinuous. 我得到的错误是“无法设置边框类的 LineStyle 属性”。

代码中是否有错误或执行此操作的替代方法？

Sub AddBorders()
    With Range("A:B").FormatConditions.Add(Type:=xlExpression, Formula1:="=A1<>A2")
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
    End With
End Sub

Answer 1

似乎不是xlEdgeBottom它只是xlBottom。所以换行：

With .Borders(xlEdgeBottom)

至

With .Borders(xlBottom)

它对我有用

Answer 2

除了使用xlBottom而不是xlEdgeBottom，导致此错误的另一个可能原因是对同一范围应用了三个以上的条件格式。我遇到了同样的问题，这就是为我解决的问题。

该方法的MSDN 文档Add指出：

您不能为一个范围定义三个以上的条件格式。使用 Modify 方法修改现有条件格式，或使用 Delete 方法删除现有格式，然后再添加新格式。