VBA中测得第一个小计的行数是h，想把h下一行的下表格线改为粗线或双实线该怎么做？

Question

VBA中测得第一个小计的行数是h，想把h下一行（也就是h+1行）的下表格线改为粗线或双实线该怎么做？请老师帮忙。

Answer 1

因为要设置的并不是整行,而是单元格Ah:Hh这个区域的下表格线
所以代码如下:
r=("A" & h &" : H" & h)
range(r).Borders(xlEdgeBottom).LineStyle = xlContinuous

xlContinuous是EXCEL边框线的一种
还有其它的,可以自己录制宏去看看
上面是修改过的代码

下面的是录制的代码
Sub Macro2()
'
' Macro2 Macro
' 宏由 YlmF 录制，时间: 2009-11-24
'

'
Range("A3:H3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End Sub