大众计算机学习网

专门提供各种电脑教程

VBA同时设置表格的四条边框线

Admin | 2013-1-3 8:04:25 | 被阅次数 | 11813

  我们可以通过Range对象中的Borders属性,同时设定单元格的4条边框。

  当然,假如上下左右4个边框都一样,在设置过程中,就方便了许多,下面给你介绍与此相关的内容。

  用法简单,可参照如下的格式:

  Dim Myborder As Borders
 
  Set Myborder = Range(单元格范围).Borders

  第一行首先定义一个变量Myborder,第二行再设置边框。

  下面看具体的示例代码

  Dim Myborder As Borders
 
  Set Myborder = Range(Z2).Borders

  Myborder.LineStyle = xlContinuous

  Myborder.Weight = xlMedium

  Myborder.ColorIndex = 6
 
  Range(G1:Y100).Borders.LineStyle = xlContinuous

  前面五行是设置某个单元格的边框线,最后一句是设置某个范围的边框线。