admin 管理员组

文章数量: 1184232


2024年5月16日发(作者：linux7中如何删除文本)

excel vba 单元格边框设置技巧

1. 边框样式

Sub cell_format()

Dim sht As Worksheet

Dim rng As Range

Set sht = Worksheets("Parameter")

Set rng = ("B2:C20")

' 设置边框格式

' 这是常规的实线、细线，默认颜色为黑色

yle = xlContinuous

End Sub

结果如下：

这里的xlContinuous代表着一种默认的Excel边框风格，总共有以下几种：

除了直接用各种风格的名字外，也可以使用它对应的值来代替。有兴趣的杺尝试下不同的边框风格，看看

效果。

2. 边框颜色

ndex = 3

或者

= RGB(0, 255, 0)

前面一种是直接使用VBA内置的几种颜色值，后一种则可以直接使用RGB颜色，可以实现更高的个性化。

VBA内置的颜色及对应的值如下：

所以示例代码中，

ColorIndex = 3

，即表示使用的是红色。结果如下：

3. 边框宽度

（在做这一步之前，我把前面的边框给清掉了）

= xlThick

这里的

xlThick

也是一种内置的属性，共有以下几种：

同样的，也可以使用它们对应的值来代替。

结果如下

4. 单边框

单边框，也就是只要一个方向有边框。只要在前面例子中的Borders后面加上括号，在括号内指定边就行

了，其它设置不变：

s(xlEdgeBottom).LineStyle = xlContinuous

结果如下：

这里代码里面使用的

xlEdgeBottom

表示下边框的意思，但要提醒的是，这个“下边框”指的是整个单元

格区域（B2:C20）的底部边框，而不是“这个区域内部所有单元格的底部边框”。如果为要内部所有单元

格都加上底线，可以用：

s(xlInsideHorizontal).LineStyle = xlContinuous

其它形式的边框，可以自己去摸索

5. 使用with语句

前面1、2、3节，在设置边框的样式、颜色、宽度时，都使用的

的形式，其实VBA

中支持

with

语句，可以省去一些重复的代码，更简洁高效。如可用以下代码同时设置表格样式、颜色、

宽度：

With s

.LineStyle = xlContinuous

.ColorIndex = 3

.Weight = xlThick

End With

记得在对对象操作完后，要加上

End With


本文标签： 边框 颜色 设置 使用

版权声明：本文标题：excel vba 单元格边框设置技巧 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1715854800a689562.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。