excel - 无法在 VBA 的样式中正确设置边框

Question

我有一堆代码向 Excel 添加了 8 种自定义样式并删除了所有其他样式。
除了 1 位之外，大多数代码都可以工作。这涉及仅在底部边缘具有彩色边框的样式，其他边缘没有边框。

With ActiveWorkbook.Styles.Add("Table top row")
   .Font.Name = "Tahoma"
   .Font.Size = 8
   .Font.Bold = True
   .Font.Italic = False
   .Font.Color = vbBlack
   .Borders(xlEdgeBottom).Color = RGB(120, 159, 218)
   .Borders(xlEdgeBottom).Weight = xlThin
   .Borders(xlEdgeBottom).LineStyle = xlContinuous
   .HorizontalAlignment = xlLeft
End With

这段代码产生了正确的字体，但根本没有边框。
然后我尝试了另一种方式:

With ActiveWorkbook.Styles.Add("Table top row")
    .Font.Name = "Tahoma"
    .Font.Size = 8
    .Font.Bold = True
    .Font.Italic = False
    .Font.Color = vbBlack
    .Borders.Color = RGB(120, 159, 218)
    .Borders.Weight = xlThin
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlNone
    .Borders(xlEdgeLeft).LineStyle = xlNone
    .Borders(xlEdgeRight).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .HorizontalAlignment = xlLeft
End With

这导致除了左边缘之外的所有地方都有边框。我对为什么我不能让它工作感到非常困惑。我发现的一些解决方案包括转换范围而不是样式，但我需要在不同文件中快速使用该样式。

Answer 1

尝试使用 xlRight等等而不是xlEdgeRight等等。这似乎有效，但我不完全明白为什么。

With ActiveWorkbook.Styles.Add("Table top row")
    .Font.Name = "Tahoma"
    .Font.Size = 8
    .Font.Bold = True
    .Font.Italic = False
    .Font.Color = vbBlack
    .Borders.Color = RGB(120, 159, 218)
    .Borders.Weight = xlThin
    .Borders(xlBottom).LineStyle = xlContinuous
    .Borders(xlTop).LineStyle = xlNone
    .Borders(xlLeft).LineStyle = xlNone
    .Borders(xlRight).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .HorizontalAlignment = xlLeft
End With