Làm cách nào để giữ cho bộ cắt của Pivot Table di chuyển với tính năng cuộn trang tính trong Excel?
Trong khi làm việc với Pivot Table, bạn có thể chèn các bộ lọc để lọc dữ liệu của bảng một cách trực quan. Bài viết này nói về việc giữ cho bộ cắt của Pivot Table luôn hiển thị trong khi cuộn trang tính.
Giữ cho bộ cắt của Pivot Table luôn di chuyển bằng cách cuộn trang tính với mã VBA
Giữ cho bộ cắt của Pivot Table luôn di chuyển bằng cách cuộn trang tính với mã VBA
Tập lệnh VBA sau có thể giúp bạn giữ cho bộ cắt của Bảng Pivot di chuyển cùng với trang tính. Hãy làm như sau.
1. Nhấn nút Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp Sổ làm việc này trong ngăn Dự án bên trái, sau đó sao chép và dán mã VBA bên dưới vào ThisWorkbook (Mã) cửa sổ. Xem ảnh chụp màn hình:
Mã VBA: Giữ bộ cắt của Bảng Pivot di chuyển với cuộn trang tính
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ShF As Shape
Dim ShM As Shape
'specify a slicer
Application.ScreenUpdating = False
Set ShF = ActiveSheet.Shapes("Column1")
Set ShM = ActiveSheet.Shapes("Column2")
'change position of the slicer
With Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top
ShF.Left = .Left + 300
ShM.Top = .Top
ShM.Left = .Left + 100
End With
Application.ScreenUpdating = True
End Sub
Chú ý:
1). Trong mã, Cột1 và Cột2 là tên của các bộ cắt.
2). Bạn có thể chỉ định vị trí của dao cắt trong khi cuộn trang tính trong mã.
3). Và bạn có thể thêm nhiều dao thái vào mã hoặc xóa các dao thái khỏi nó khi bạn cần.
3. Nhấn nút Khác + Q chìa khóa để đóng Microsoft Visual Basic cho các ứng dụng hộp thoại cửa sổ.
Từ bây giờ, các bộ cắt được chỉ định sẽ được di chuyển cùng với ô hiện hoạt trong khi cuộn trang tính. Xem ảnh chụp màn hình:
Các bài liên quan:
- Làm cách nào để giữ cho bảng có thể mở rộng bằng cách chèn hàng của bảng trong một trang tính được bảo vệ trong Excel?
- Làm cách nào để kết hợp các ô và giữ nguyên định dạng ô trong Excel?
- Làm thế nào để loại bỏ các bản sao nhưng vẫn giữ bản sao đầu tiên trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!