[已解决]给一块单元格区域画框线的代码写法

王谦

现在我画框线都是录制的代码，特别的长。
不知道有没有什么语句可以直接写的，不需要那么一大段的~
就是普通的所有框线就可以~谢谢了~

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-17 12:52

1. With Selection.Borders()
   
2.         .LineStyle = xlContinuous
   
3.         .Weight = xlThin
   
4. End With

复制代码

跳转到最佳答案楼层

1091126096

百度得来，供参考。

Cells(1, 3).Select   //当前选中的第一行第三列的单元格为例。
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)//为左边上边框。
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)//为上边上边框。
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)//为下边上边框。
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)//为右边边上边框。
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
加边框之前最好用宏录制一下整个操作过程就了解流程了。
1.    虽然用录制代码的方法可以很方便的获得设置单元格边框的代码，但可以看出，得出的代码非常复杂，实际上就是对每一步操作进行录制得来的。
2.    利用Range对象的Borders属性及BorderAround方法分别可以设置单元格区域的内部线框及外部边框。
3.    Borders属性的属性值及BorderAround方法的参数值可以复制刚才录制的代码而得。
下面是利用Range和borders的示例演示
Dim rng As Range
  Set rng = Range("A1:B6")
  With rng.Borders
    .LineStyle = xlContinuous//边框设置
    .ColorIndex = xlAutomatic//颜色设置
    .TintAndShade = 0
    .Weight = xlHairline//是否粗细
  End With
  rng.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic

dsmch

1. With Selection.Borders()
   
2.         .LineStyle = xlContinuous
   
3.         .Weight = xlThin
   
4. End With

复制代码

无聊的疯子

别把帮助当摆设

直接搜索中文,边框



然后一个一个的找来看,
最后你会发现你要的在帮助里面都有说明,,而且很详细

王谦

无聊的疯子 发表于 2014-3-17 13:04
别把帮助当摆设

直接搜索中文,边框

谢谢~这正是很困扰我的地方~我的excel用不了帮助~
说是受版权法和国际条约保护~
没有帮助真的非常不便~

王谦

1091126096 发表于 2014-3-16 22:51
百度得来，供参考。

Cells(1, 3).Select   //当前选中的第一行第三列的单元格为例。

非常感谢~~

王谦

dsmch 发表于 2014-3-17 12:52

非常感谢~~