VBA小代码 ==＞一句代码加全部框线

最新推荐文章于 2024-05-24 08:30:00 发布

STR_Liang

最新推荐文章于 2024-05-24 08:30:00 发布

阅读量2.9k

点赞数 11

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： vba OFFICE WPS

本文链接：https://blog.youkuaiyun.com/STR_Liang/article/details/107614418

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了一个简化Excel VBA宏的过程，用于快速为选定单元格区域添加完整框线，避免了冗长的代码，提高了工作效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

我要加全部框线，录制宏得到的代码（心态爆炸，加个框线需要这么多代码么？）：

Sub 宏1()
'
' 宏1 宏
'
    Range("C7:D9").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

实际只需要：

Selection.Borders.LineStyle = xlContinuous

VBA小代码 ==＞ 一句代码加全部框线

我要加全部框线，录制宏得到的代码（心态爆炸，加个框线需要这么多代码么？）：

实际只需要：

VBA小代码 ==＞一句代码加全部框线