'設定標題列=>B5~K5===========================
Range("B5:K5").Select
With Selection.Interior '選擇.內部(底色)
.Color = 1 '底色設為黑色
End With
With Selection.Font
.Name = "華康刷刷體W7"
.FontStyle = "標準"
.Size = 20
End With
'===========================================
'設定 B4 買超格為紅色底色===================
Range("B4").Select
With Selection.Interior '選擇.內部(底色)
.Color = 233 '233=紅色
End With
'設定 B4 買超格其字體為20大、華康刷刷體W7
With Selection.Font
.Name = "華康刷刷體W7" '設定字體
.Size = 20 '設定大小
.Color = 1 '設定字體顏色為黑色=>1
End With
'============================================
'設定 G4 賣超格綠色底色、20字大==============
Range("G4").Select
With Selection.Interior '選擇.內部(底色)
.Color = 7798533 'G4賣超儲存格底色=綠色
End With
'設定 G4 賣超格其字體為20大、華康刷刷體W7
With Selection.Font
.Name = "華康刷刷體W7" '設定字體
.Size = 20 '設定大小
.Color = 1 '設定字體顏色
End With
'============================================
'設定日期格字體與大小========================
Range("B3").Select
With Selection.Font
.Name = "新細明體"
.Size = 16
End With
'============================================
'將日期格B3,擴大至佔兩個儲存格,以便全頁欄位最適化時,不會受到日期字寬而使買超欄位全部變寬
Range("B3:C3").Select
Selection.Merge '使B3與C3合併
With Selection
.HorizontalAlignment = xlLeft '合併內水平對齊=靠左
.VerticalAlignment = xlCenter '合併內垂直對齊=靠中
.MergeCells = True
End With
'將該頁儲存格欄寬最適化======================
Cells.Select '選擇所有儲存格
Cells.EntireColumn.AutoFit '儲存格整列.自動調整 (欄寬最適化)
End Sub