excel文字整理（加粗、宋体10号、边框）

最新推荐文章于 2024-05-31 19:13:59 发布

swily

最新推荐文章于 2024-05-31 19:13:59 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： excel function string c

本文链接：https://blog.youkuaiyun.com/swily/article/details/4615922

VBA 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个VBA函数，用于批量设置Excel表格中特定行的字体、边框和单元格对齐方式等属性，使表格看起来更加整洁美观。通过传递行数、列长度和结束行数作为参数，可以灵活地应用到各种大小的表格上。

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

Function fmt(b, x, y)

'b=加粗行数 int (需传递进来的参数,要多少行进行整理)
'x=列长度 string （A,B,C类似这种的)
'y=行 int

Do Until Cells(y, 1) <> ""
y = y - 1
Loop

Range("A1:" & x & b).Font.Bold = True

Range("A1:" & x & y).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext

    End With
    With Selection.Font
        .Name = "宋体"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    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
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    If y > 1 Then
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    End If
    Selection.Columns.AutoFit
    Selection.RowHeight = 14.25

End Function