0

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

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

4

2 回答 2

1

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

With Worksheet.Range(c.address).Offset(0,2).Borders(xlEdgeTop)
.Weight=xlMedium
.Color=RGB(255,0,0)
于 2015-01-22T19:22:00.583 回答
0

当然。对于边框，请使用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
于 2013-10-22T09:59:35.683 回答