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