excel - 使用 excel vba 为小计添加边框

Question

我创建了一个将小计应用于工作表的宏。这一切都很好，但我无法添加一个边框来直接穿过小计行。使用条件格式，我已经能够突出显示包含小计功能的单元格行。

是否可以在 VBA 中为每个小计行添加边框并为背景行着色？

Answer 1

使用 .Find 方法查找您小计的任何函数。例如，如果您使用 COUNT，则查找单词“count”。如果您使用 SUM，则查找“total”一词。然后使用 .offset 方法将单元格的数量变为实际总数，并使用边框属性添加边框。例子，

With Worksheet.Range(c.address).Offset(0,2).Borders(xlEdgeTop)
.Weight=xlMedium
.Color=RGB(255,0,0)

Answer 2

当然。对于边框，请使用Border 属性。

例子：

With Rows(1).Borders(xlEdgeTop) 'Applies border settings to first row
     .LineStyle = xlContinuous
     .Weight = xlThin
     .ColorIndex = xlAutomatic
End With

对于背景颜色，我认为最简单的方法是像这样使用ColorIndex 属性：

 Rows(1).Interior.ColorIndex = 3 'Red background on first row