Mình viết Sub này do đặc trưng công việc dùng rất nhiều PivotTable. Kiểu như một ngày phải vào hệ thống, tải data và tạo Pivot+định dạng pivot có khi mấy chục lần trong ngày luôn ý, và các bạn đồng nghiệp mình cũng vậy. Tất nhiên data có thể tải nhiều lần đều là data nhiều cột nhưng rất nhẹ.
Lưu ý:
1. Không Pivot table cả 1 bảng Excel hàng triệu dòng, data đến chỗ nào , range Pivot đến đó.
2. Dùng Shift+Ctrl và các phím mũi tên để chọn nhanh range, không cần dùng chuột kéo
3.Nếu range có nhiều ô trống , Dùng Ctrl+shift+End để chọn nhanh vùng dữ liệu.
4. Chọn vùng dữ liệu xong, bấm Alt+N+V+enter để insert nhanh Pivot Table
5. Add Sub này để định dạng nhanh Pivot Table với format chung như sau:
- Không show Subtotal
- Định dạng bảng kiểu Tabular
- Không tự động chỉnh độ rộng cột
Sub General_pivot_format()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim pt As PivotTable
Dim pvtFld As PivotField
Set pt = ActiveCell.PivotTable
pt.RowAxisLayout xlTabularRow
pt.RepeatAllLabels xlDoNotRepeatLabels
pt.HasAutoFormat = False
pt.PivotCache.MissingItemsLimit = _
xlMissingItemsNone
On Error Resume Next
With pt
For Each pvtFld In .PivotFields
pvtFld.Subtotals(1) = False
Next pvtFld
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Nhận xét
Đăng nhận xét