如何用VBA给单元格添加边框?

liusongs · 发表于 2009-3-6 20:32

我是一个新手,最近要做一个表格,需要逐一输入数据,逐一添加边框,能否用VBA给单元格逐一添加边框?请高手多多帮助,谢谢!!!!!!!!!!!!!!

jiulongpo · 发表于 2009-3-6 20:38

Range.Borders 属性
返回一个 Borders 集合，它代表样式或单元格区域（包括定义为条件格式一部分的区域）的边框。
语法

表达式.Borders

表达式一个代表 Range 对象的变量。

liusongs · 发表于 2009-3-7 10:33

谢谢！！！！！！！！！！！！！！！
需要逐一输入数据,逐一添加边框,能否用VBA给单元格逐一添加边框?请高手多多帮助,谢谢!!!!!!!!!!!!!!

[ 本帖最后由 liusongs 于 2009-3-7 10:35 编辑 ]

yuanzhuping · 发表于 2009-3-7 10:44

原帖由 liusongs 于 2009-3-7 10:33 发表
谢谢！！！！！！！！！！！！！！！
需要逐一输入数据,逐一添加边框,能否用VBA给单元格逐一添加边框?请高手多多帮助,谢谢!!!!!!!!!!!!!!

Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
End Sub

复制代码

liusongs · 发表于 2009-3-8 15:58

谢谢版主!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

linpansheng · 发表于 2009-3-8 15:59

学习一下这代码
Private Sub Worksheet_Change(ByVal Target As Range)
With Target.Borders
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = 5
End With
End Sub

jilijun · 发表于 2009-3-8 16:03

正好学习一下！！！

hhzjxss · 发表于 2010-4-12 08:53

谢谢分享，看看，学学！

duduniao2020 · 发表于 2020-3-24 07:11

学习了这种框线添加方式

Peny2020 · 发表于 2022-9-15 10:53

yuanzhuping 发表于 2009-3-7 10:44

请问这个代码为什么你可以保存在XLS里的？我放进excel保存时说要我用xlm？谢谢。

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA给单元格添加边框?