[已解决]选定单元格区域加外边框语句的简化

心灵有约

Sub 选定单元格区域加外边框()
'With selections
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
    Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
    Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
    Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
'    End With

End Sub
如何对上述语句进行简化并添加文字注释？谢谢

最佳答案

月排行榜 / 总排行榜

wp8680

2014-9-16 14:55

  Selection.Borders.LineStyle =xlContinuous


With Selection
        .Borders.LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With

跳转到最佳答案楼层

wp8680

  Selection.Borders.LineStyle =xlContinuous


With Selection
        .Borders.LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With

心灵有约

第一行语句可以没有吧？

wp8680

心灵有约 发表于 2014-9-16 15:10
第一行语句可以没有吧？

第一段中为全加框线
第二段为仅加外框线
测试下就知道了。

su45

咱今天回复过类似的帖子：

http://www.excelpx.com/thread-331767-1-1.html

布山客

无边框的语句如何表述

feeling_chin

心灵有约 发表于 2014-9-16 15:10
第一行语句可以没有吧？

还是有的好，他选择绘制边框的线条样式啊，
不能每次都用当前不是。