Excel 格式设置规则

一、目的

1. 快速设置格式节约时间
2. 使表格美观易懂
3. 减少错误率

二 、原则

（一）、利他原则

1. 写表格说明
2. 制作索引目录（用完美工具箱）
3. 制作相关透视表与图形
4. 制作相关汇总数据
5. 冻结首行并首行筛选

（二）、简约原则

1. 色调简约
2. 删除除使用单元个之外得内容、格式
3. 字体使用微软雅黑或宋体
4. 数字小数点保留两位小数

（三）、排错原则

1. 删除#N/A，#Value，#Div/0! 错误（用IFERROR函数）
2. 数字空白或0用小横杆”—“代替

（四）、重点突出原则

1. 首行加粗居中
2. 汇总行加粗或斜体
3. 变化数据或比较数据用颜色标出

三、批量设置格式vba代码

（一）、工作表格数据形式

1. 数据尽量从A1单元格开始，不建议各种合并单元格
2. 首行建议是字段行

（二）、主要实现的功能

1. 去网格线
2. 选中区域加黑框线
3. 工作表按56色颜色索引值着色
4. 设置自动筛选
5. 冻结单元

Sub 调用()
    Call DisplayGridlines
    Call Borders_LineStyle
    Call Tabcolor
    Call autofilter
    Call freezepanes
End Sub

'去网格线与首行加黑居中
Sub DisplayGridlines()
    On Error Resume Next
    For i = 1 To Sheets.Count
        Sheets(i).Select
        ActiveWindow.DisplayGridlines = 0 '去网格线
        Rows("1:1").Font.Bold = True
        Rows("1:1").HorizontalAlignment = xlCenter
        Rows("1:1").VerticalAlignment = xlCenter
        Cells(1, 1).Select
    Next i
End Sub

'加边框线
Sub Borders_LineStyle()
On Error Resume Next
    For i = 1 To Sheets.Count
        m = Sheets(i).Cells(1, 1).End(xlDown).Row '获取表格行数
        n = Sheets(i).Cells(1, 1).End(xlToRight).Column '获取表格列数
        Sheets(i).Select
        Range(Cells(1, 1), Cells(m, n)).Borders.LineStyle = 1 '加边框线
        'ActiveWindow.DisplayGridlines = False '去除网格线，可用0代替

    Next i
    Sheets(1).Select
End Sub

'工作表颜色按56色colorindex设置
Sub Tabcolor()
For i = 1 To Sheets.Count
 Sheets(i).Tab.ColorIndex = i
Next i
End Sub
Sub autofilter()
On Error Resume Next
    For i = 1 To Sheets.Count
    Sheets(i).Select
    Rows(1).autofilter
    Next i
End Sub
'批量冻结表格
Sub freezepanes()
    On Error Resume Next
     For i = 1 To Sheets.Count
        Sheets(i).Select
        Sheets(i).Cells(2, 1).Select
        ActiveWindow.freezepanes = False '先取消冻结
        ActiveWindow.freezepanes = True '冻结拆分单元格
     Next i
End Sub