用VBA为选定的单元格加边框

用VBA为选定的单元格加边框

(2009-05-06 15:43:45)

转载

标签： excel与vba

分类： Excel与VBA

用VBA为选定的单元格加边框的代码如下：

// 选定当前工作表的Cells(i,3)单元格

Cells(i, 3).Select

//以下22行代码是分别为选定单元格的左边、上边、下边、右边加边框线
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With