作者：乔山办公网日期：
返回目录：excel表格制作
最好的办法，自己录制宏，然后自己分析，这样才能在学习中进步。纸上得来终觉浅啊
Sub 设置百框线度()
Dim x, y
x = ActiveSheet.UsedRange.Rows.Count '使用问的答行数回
y = ActiveSheet.UsedRange.Columns.Count '使用的列数
x = WorksheetFunction.RoundUp(x / 12, 0) * 12 '按12对齐答
With ActiveSheet.UsedRange.Resize(x, y).Borders
.LineStyle = xlContinuous
.Weight = xlThin
End With
End Sub
比如你要给A1：B11单元格加边框，可以使用以下代码Range("A1:B11").Borders.LineStyle=1
取消边框线 Range("A1:B11").Borders.LineStyle=0