excel自动添加边框

发布网友 发布时间：2022-03-03 06:41

我来回答

共3个回答

热心网友 时间：2022-03-03 09:17

你试一下在里面加入以下语句，当然你的范围得用程序运行的情况重新确定。
Range("A1:G14").Select
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
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

热心网友 时间：2022-03-03 11:41

既然这个程序都写出来了，加框没啥问题咯

先判断数据范围，然后修改一下单元格特性就是

热心网友 时间：2022-03-03 14:23

你用什么语言写的程序呀？