Question

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

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

Answer 1

使用.Find方法查找您小计的任何函数。例如，如果您使用了COUNT，那么请查找单词＆＃34; count＆＃34;。如果您使用SUM，那么请查找＆＃34; total＆＃34;。然后使用.offset方法将单元格数量与实际总数相对应，并使用borders属性添加边框。例如，

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

Answer 2

不确定。对于边框，请使用Border properties。

示例：

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

对于背景颜色，我认为最简单的方法是使用ColorIndex property，如下所示：

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

使用excel vba为小计添加边框

2 个答案: