VBA单元格属性设置

最新推荐文章于 2024-04-22 16:07:30 发布

bluelilyabc

最新推荐文章于 2024-04-22 16:07:30 发布

阅读量527

点赞数

分类专栏：笔记 VBA笔记文章标签： python 开发语言

本文链接：https://blog.csdn.net/bluelilyabc/article/details/127048784

版权

笔记同时被 2 个专栏收录

6 篇文章 0 订阅

订阅专栏

VBA笔记

2 篇文章 0 订阅

订阅专栏

Sub Clear_data()

' Create_data Macro

    Sheets("data").Select

    Range("c3:E5000").Select
    '削除指定されたのフォマード
    Selection.ClearFormats
    '削除指定されたの文字、
    Selection.ClearContents
    
    '選択セットシートの範囲
    Range("c3:E2002").Select
    With Selection.Borders(xlEdgeLeft)
        .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(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(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 1              '色番号 (1~56)
        .TintAndShade = 1            '色合いとシェード
        .Weight = xlHairline         'xlThick(太い線) xlMedium(中) xlThin(薄い) xlHairline(最も細い)
    End With
    
    '内側水平
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 1
        .TintAndShade = 1
        .Weight = xlHairline
    End With

End Sub