Khi làm việc với Pivot Table, bạn có thể chèn các slicer để 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 slicer của Pivot Table luôn hiển thị trong khi cuộn trang tính
Giữ slicer của Pivot Table di chuyển bằng cách cuộn trang tính bằng mã VBA
Tập lệnh VBA sau đây có thể giúp bạn giữ cho slicer của Pivot Table di chuyển theo trang tính. Vui lòng làm như sau
1. Nhấn đồng thời các phím Alt + F11 để mở cửa sổ Microsoft Visual Basic for Applications
2. Trong cửa sổ Microsoft Visual Basic for Applications, bấm đúp vào ThisWorkbook trong ngăn Dự án bên trái, sau đó sao chép và dán mã VBA bên dưới vào cửa sổ ThisWorkbook (Code). Xem ảnh chụp màn hình
mã VBA. Giữ slicer của Pivot Table di chuyển khi 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 Subghi 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 các slicer trong khi cuộn trang tính trong mã
3). Và bạn có thể thêm nhiều bộ cắt hơn vào mã hoặc xóa các bộ cắt khỏi nó khi bạn cần
3. Nhấn tổ hợp phím Alt + Q để đóng hộp thoại cửa sổ Microsoft Visual Basic for Applications
Từ giờ trở đi, các bộ cắt được chỉ định sẽ được di chuyển cùng với ô đang hoạt động trong khi cuộn trang tính. Xem ảnh chụp màn hình
Những bài viết 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 vào trang tính được bảo vệ trong Excel?
- Làm cách nào để gộp ô và giữ nguyên định dạng ô trong Excel?
- Làm cách nào để loại bỏ các bản sao nhưng vẫn giữ phiên bản đầu tiên trong Excel?
Các công cụ năng suất văn phòng tốt nhất
Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn
- Tái sử dụng. Chèn nhanh các công thức, biểu đồ phức tạp và bất kỳ thứ gì bạn đã sử dụng trước đây; . Encrypt Cells with password; Create Mailing List and send emails...
- Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
- Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
- Chọn hàng trùng lặp hoặc duy nhất ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Sao chép chính xác Nhiều ô mà không thay đổi tham chiếu công thức; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Trích xuất văn bản , Thêm văn bản, Xóa theo vị trí, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
- Siêu bộ lọc (lưu và áp dụng lược đồ bộ lọc cho các trang tính khác); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Kết hợp Sổ làm việc và Trang tính ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- Hơn 300 tính năng mạnh mẽ . Hỗ trợ Office/Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Đảm bảo hoàn tiền trong 60 ngày.
Đọc thêm. Tải xuống miễn phí. Mua.
Tab Office Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều
- Bật chỉnh sửa và đọc theo tab 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 năng suất của bạn lên 50% và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày
Đọc thêm. Tải xuống miễn phí. Mua.
Cũ nhất đầu tiên
Sắp xếp nhận xét theo
Cũ nhất đầu tiên
mới nhất đầu tiên
Nhận xét ( 10 )
Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng
John
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào,
Cảm ơn bạn về VBA này
Tôi hoàn toàn không biết gì về VBA và do đó câu hỏi của tôi
Tôi đã sử dụng VBA này và tôi có một câu hỏi
Làm cách nào tôi có thể thay đổi VBA này để nó chỉ hoạt động trên một trang tính
Hiện tại mình có 8 sheet, mỗi lần sang sheet khác là bị lỗi và yêu cầu end hoặc debug
Mình đã làm đúng như hình trên
Đây là VBA của tôi ở đây
Private Sub Workbook_SheetSelectionChange(ByVal Sh Là đối tượng, Mục tiêu ByVal là Phạm vi)
Mờ ShF Như Hình Dạng
Mờ ShM Như Hình
'chỉ định một slicer
Ứng dụng. Đang cập nhật màn hình = Sai
Đặt ShF = ActiveSheet. Hình dạng ("Máy khách 1")
Đặt ShM = ActiveSheet. Hình dạng ("Lời nhắc 1")
'thay đổi vị trí của máy thái
Với Windows(1). Phạm vi hiển thị. Ô(1, 1)
SHF. hàng đầu =. Hàng đầu + 2
SHF. Trái =. Trái + 475
SHM. hàng đầu =. Hàng đầu + 180
SHM. Trái =. Trái + 475
Kết thúc với
Ứng dụng. Đang cập nhật màn hình = True
kết thúc phụ
Hãy giúp tôi
Hồi đáp
0
0
John Fernandes
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào,
Cảm ơn bạn về VBA này
Tôi hoàn toàn không biết gì về VBA và do đó câu hỏi của tôi
Tôi đã sử dụng VBA này và tôi có một câu hỏi
Làm cách nào tôi có thể thay đổi VBA này để nó chỉ hoạt động trên một trang tính
Hiện tại mình có 8 sheet, mỗi lần sang sheet khác là bị lỗi và yêu cầu end hoặc debug
Mình đã làm đúng như hình trên
Đây là VBA của tôi ở đây
Private Sub Workbook_SheetSelectionChange(ByVal Sh Là đối tượng, Mục tiêu ByVal là Phạm vi)
Mờ ShF Như Hình Dạng
Mờ ShM Như Hình
'chỉ định một slicer
Ứng dụng. Đang cập nhật màn hình = Sai
Đặt ShF = ActiveSheet. Hình dạng ("Máy khách 1")
Đặt ShM = ActiveSheet. Hình dạng ("Lời nhắc 1")
'thay đổi vị trí của máy thái
Với Windows(1). Phạm vi hiển thị. Ô(1, 1)
SHF. hàng đầu =. Hàng đầu + 2
SHF. Trái =. Trái + 475
SHM. hàng đầu =. Hàng đầu + 180
SHM. Trái =. Trái + 475
Kết thúc với
Ứng dụng. Đang cập nhật màn hình = True
kết thúc phụ
Hãy giúp tôi
Hồi đáp
Bài báo cáo
0
0
pha lê John Fernandes
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
John thân mến,
Chuyển sang trang tính mà bạn muốn mã VBA chỉ hoạt động, sau đó nhấp chuột phải vào tab Trang tính và chọn Xem mã từ menu ngữ cảnh
Sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mã đang mở. Xem bên dưới ảnh chụp màn hình
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Mờ ShF Như Hình Dạng
Mờ ShM Như Hình
'chỉ định một slicer
Ứng dụng. Đang cập nhật màn hình = Sai
Đặt ShF = ActiveSheet. Hình dạng("Trái cây")
Đặt ShM = ActiveSheet. Hình dạng("Giảm giá")
'thay đổi vị trí của máy thái
Với Windows(1). Phạm vi hiển thị. Ô(1, 1)
SHF. hàng đầu =. Đứng đầu
SHF. Trái =. Trái + 300
SHM. hàng đầu =. Đứng đầu
SHM. Trái =. Trái + 100
Kết thúc với
Ứng dụng. Đang cập nhật màn hình = True
kết thúc phụ
Xem tệp đính kèm ( 1 / 5)
Hồi đáp
Bài báo cáo
0
0
John pha lê
khoảng 5 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Crystal thân mến,
Cảm ơn bạn rất nhiều vì mã
Tôi đã làm chính xác như bạn nói và nó hoạt động như một bùa mê
Thực sự đánh giá cao nó
Chúc mừng. )
Hồi đáp
0
0
Doug pha lê
khoảng 2 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã cập nhật mã của mình như bạn đã chỉ ra. Bộ cắt không còn cuộn cùng với cửa sổ, tuy nhiên nếu tôi nhấp vào một ô mới thì bộ cắt sẽ di chuyển. Đây có phải là hành vi đúng không?
Hồi đáp
0
0
katie
khoảng 4 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hàng đầu tiên biểu thị điều gì và chúng tôi tùy chỉnh nó như thế nào để phù hợp với máy thái của chúng tôi?
Tôi rất bối rối về điều đó về cơ bản trên mọi dòng
Hồi đáp
0
0
pha lê Katie
khoảng 4 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Katie thân mến
Tôi không biết nếu tôi hoàn toàn hiểu câu hỏi của bạn
Như tôi đã đề cập trong Ghi chú ở trên, bạn cần thay thế Cột1 và Cột2 bằng tên của các bộ cắt của bạn trong mã để giữ cho bộ cắt của bạn cuộn theo bảng tính
Hồi đáp
Bài báo cáo
0
0
MICHAEL
khoảng 4 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi có 4 máy thái đã được nhóm lại với nhau bằng cách chọn cả 4 và nhấp chuột phải để sử dụng lệnh nhóm
Có thể chỉ định VBA này theo nhóm không?
Hồi đáp
0
0
pha lê MICHAEL
khoảng 4 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Michael,
Xin lỗi không thể giúp với điều này. Cám ơn bạn đã góp ý
Hồi đáp
Bài báo cáo
0
0
Gia-cốp
khoảng 2 năm trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Được rồi, vì vậy tiêu đề nói "Làm thế nào để giữ cho Slicer Of Pivot Table di chuyển với cuộn trang tính trong Excel?", nhưng mã VBA này chỉ làm điều đó cho ô được chọn hiện tại, làm thế nào chúng ta có thể làm điều đó cho việc cuộn sổ làm việc chứ không phải