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

Excel表格美化

最新推荐文章于 2025-01-24 17:30:42 发布

原创最新推荐文章于 2025-01-24 17:30:42 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#excel #function #string #c

VBA 专栏收录该内容

2 篇文章

订阅专栏

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

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