为选择的区域添加边框_excel应用-excel操作-excel公式-excel函数

为选择的区域添加边框

时间：2013-07-02 23:42 来源：Office中国作者：Access中国录入员阅读：次

Sheets("Reference").Select
    Range("d9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    
    Dim myBorders() As Variant, item As Variant
    myBorders = Array(xlEdgeLeft, _
                      xlEdgeTop, _
                      xlEdgeBottom, _
                      xlEdgeRight, _
                      xlInsideVertical)
    For Each item In myBorders
        With Selection.Borders(item)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    Next item

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：如何在Excel中使用文件对话框
下一篇：使用自定义序列排序