excel单元格添加边框

ljxu · 发表于 2013-3-14 15:28:27

excel中，如何添加单元格的边框？
边框类型如何选择？
哪位知道？

h20040606 · 发表于 2013-3-14 19:13:22

;加边框
With $oExcel.Activesheet.Range("a3:O16").Borders($xlEdgeLeft)
.LineStyle = $xlContinuous
.Weight = $xlThin
.ColorIndex = $xlAutomatic
EndWith
With $oExcel.Activesheet.Range("a3:O16").Borders($xlEdgeTop)
.LineStyle = $xlContinuous
.Weight = $xlThin
.ColorIndex = $xlAutomatic
EndWith
With $oExcel.Activesheet.Range("a3:O16").Borders($xlEdgeBottom)
.LineStyle = $xlContinuous
.Weight = $xlThin
.ColorIndex = $xlAutomatic
EndWith
With $oExcel.Activesheet.Range("a3:O16").Borders($xlEdgeRight)
.LineStyle = $xlContinuous
.Weight = $xlThin
.ColorIndex = $xlAutomatic
EndWith
With $oExcel.Activesheet.Range("a3:O16").Borders($xlInsideVertical)
.LineStyle = $xlContinuous
.Weight = $xlThin
.ColorIndex = $xlAutomatic
EndWith
With $oExcel.Activesheet.Range("a3:O16").Borders($xlInsideHorizontal)
.LineStyle = $xlContinuous
.Weight = $xlThin
.ColorIndex = $xlAutomatic
EndWith

kevinch · 发表于 2013-3-14 19:15:33

Range 和 Style 对象具有四个分立的边框：左边框、右边框、顶部边框和底部边框，这四个边框既可单独返回，也可作为一个组同时返回。可用 Borders 属性返回 Borders 集合，该集合包含所有四个边框，并将这些边框作为一个单位。下例向第一张工作表上的单元格 A1 添加双边框。

Worksheets(1).Range("A1").Borders.LineStyle = xlDouble

可用 Borders(index)（其中 index 指定要返回的边框）返回单个 Border 对象。下例设置单元格区域 A1:G1 的底部边框的颜色。

Worksheets("Sheet1").Range("A1:G1"). _
Borders(xlEdgeBottom).Color = RGB(255, 0, 0)

Index 可为以下 XlBordersIndex 常量之一：xlDiagonalDown、xlDiagonalUp、xlEdgeBottom、xlEdgeLeft、xlEdgeRight、xlEdgeTop、xlInsideHorizontal 或 xlInsideVertical。

$oExcel.activesheet.range("a1").borders.linestyle=1
细线边框
其他类型参阅帮助文件里的枚举"XlLineStyle"

ljxu · 发表于 2013-3-14 20:18:39

回复 3# kevinch

谢谢你的帮助！

ljxu · 发表于 2013-3-14 20:19:07

回复 2# h20040606

谢谢你的帮助!

jerry3388 · 发表于 2013-4-4 09:34:25

路過,谢谢你的帮助!

云朵里的贝壳 · 发表于 2013-5-3 21:06:34

想知道的是这些语法规则都是从哪里看到的。。帮助文档里貌似没有。。

kevinch · 发表于 2013-5-3 21:41:21

Worksheets(1).Range("A1").Borders.LineStyle = xlDouble
上面这句输入到vbe编辑器里，然后用鼠标高亮选中LineStyle然后按F1

xlj310 · 发表于 2013-5-4 15:30:42

又学到一招，果断高人呀！

dreamneo · 发表于 2013-5-29 23:44:36

真是厉害，牛，学习一下

		自动登录	找回密码
密码			加入

[系统综合] excel单元格添加边框

相关帖子

评分

[系统综合] excel单元格 添加边框

相关帖子

评分

[系统综合] excel单元格添加边框