FormatConditions边框在单个边上

Question

我想在第1列中的数据更改时在行之间添加边框。 此代码在.LineStyle = xlContinuous 。 我得到的错误是“无法设置Border类的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 ，另一种可能导致此错误的原因是将三种以上的条件格式应用于相同的范围。 我遇到了同样的问题，这就是为我解决的问题。

Add方法的MSDN文档说明：

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