vba - FormatConditions 边框位于单边上

Question

当第 1 列中的数据发生更改时，我尝试在行之间添加边框。此代码在 .LineStyle = xlContinously 处中断。我收到的错误是“无法设置 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。因此更改行:

使用 .Borders(xlEdgeBottom)

至

使用 .Borders(xlBottom)

这对我有用