Excel 怎么用VBA代码给表格加上边框

Private Sub CommandButton1_Click()

Dim I, L,J, M

Set SH1 = Sheet1

On Error GoTo QQ

M = InputBox("输入行数！")

If M = "" Then Exit Sub

With SH1

L = .[A1000].End(xlUp).Row

For I = 1 To M

.Cells(I + L, 1) = .Cells(L, 1) + I

For J = 1 To 5

.Cells(I + L, J).BorderAround ColorIndex:=3, Weight:=xlThin '红色、细线

Next

Next

End With

QQ:

End Sub

方法一：单击菜单栏中的“文件”/页面设置/页眉页脚/自定义页眉，在左、中右三个方框中输入页眉内容，然后在中间的方框中文字后面插入光标，敲一次回车键，再按键盘上的短横线键，一直添加三行半左右。不过这种办法做出来的是虚线。

方法二：先制作好EXCEL表格，将其它一切格式设置好，调出绘图工具，画一根直线和表格的页面宽度一样宽，选定这根直线，复制。再打开画图程序，点击编辑中的粘贴命令，将画布宽度尽量调整到直线宽度，保存为JEPG格式。然后进入“自定义页眉”界面，将光标定位在中间的方框中（如果有文字，就定位在文字后面）

方法三：将表格一切格式及页眉中内容完全做好后，在表格首行插入一行，按照表格列数合并刚才插入的行，在单元格格式中选择边框选项，在边框中单击上横线，添加好上横线。然后单击“文件”/页面设置/工作表，单击顶端标题行后面的按钮，在出现的界面中，选中刚才插入的行，单击确定。

方法三：在自定义页眉中，选中文字单击文本格式按钮，选择下划线，然后手工调整其长度。但这种方法不好掌控。

---