单元格格式操作

davidwance · 发表于 2011-11-2 17:19

单元格格式操作
11-3 为单元格区域添加边框
我们为单元格区域添加边框时往往通过录制宏获取代码，但宏录制器生成的代码分别设置单元格区域的每个边框，因此代码多且效率低。使用Range对象的Borders集合可以快速的对单元格区域的每个边框应用相同的格式，而Range对象的BorderAround方法则可以快速地为单元格区域添加一个外边框，如下面的代码所示。

#001 Sub AddBorders()
#002 Dim rng As Range
#003 Set rng = Range("B4:G10")
#004 With rng.Borders
#005 .LineStyle = xlContinuous
#006 .Weight = xlThin
#007 .ColorIndex = 5
#008 End With
#009 rng.BorderAround xlContinuous, xlMedium, 5
#010 Set rng = Nothing
#011 End Sub

复制代码
代码解析：
   AddBorders过程为单元格区域B4:G10设置内部统一边框并添加一个加粗外边框。
   第4行到第8行代码使用Borders属性引用单元格区域的Borders集合，其中第5行代码设置其边框样式线条的样式，第6行代码设置边框线条的粗细，第7行代码设置边框的颜色。
   应用于Range对象的Borders集合代表Range对象的4个边框（左边框、右边框、顶部边框和底部边框）的4个Border对象组成的集合，这4个边框既可单独返回，也可作为一个组同时返回。
   第9行代码使用BorderAround方法为单元格区域添加一个加粗外边框。
   应用于Range对象的BorderAround方法向单元格区域添加整个区域的外边框，并设置该边框的相关属性，其语法如下：
BorderAround(LineStyle, Weight, ColorIndex, Color)
   其中LineStyle参数设置边框线条的样式，Weight参数设置边框线条的粗细，ColorIndex参数设置边框颜色，Color参数以RGB值指定边框的颜色。
   注意指定Color参数可以设置颜色为当前调色板之处的其它颜色，不能同时指定ColorIndex参数和Color参数。
   运行AddBorders过程，效果如图所示。

2009-2-10 20:32 上传
下载附件 (48.16 KB)

如果需要在单元格区域中应用多种边框格式，则需分别设置各边框格式，如下面的代码所示。

#001 Sub BordersDemo()
#002 Dim rng As Range
#003 Set rng = Sheet2.Range("B4:G10")
#004 With rng.Borders(xlInsideHorizontal)
#005 .LineStyle = xlDot
#006 .Weight = xlThin
#007 .ColorIndex = 5
#008 End With
#009 With rng.Borders(xlInsideVertical)
#010 .LineStyle = xlContinuous
#011 .Weight = xlThin
#012 .ColorIndex = 5
#013 End With
#014 rng.BorderAround xlContinuous, xlMedium, 5
#015 Set rng = Nothing
#016 End Sub

复制代码
代码解析：
BordersDemo过程代码为单元格区域内部边框在水平和垂直方向上应用不同格式，并为区域添加一个加粗外边框。
Borders(index)属性返回单个Border对象，其Index参数取值可为表格所列的XlBordersIndex常量之一：

2009-2-10 20:32 上传
下载附件 (41.25 KB)

运行BordersDemo过程效果如图所示。

2009-2-10 20:32 上传
下载附件 (62.23 KB)

tianti · 发表于 2011-11-2 18:23

{:4812:}

wgenjie@126.com · 发表于 2011-11-12 11:12

值得学习一下.

wgenjie@126.com · 发表于 2011-11-12 12:46

值得学习一下.

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