Bagaimana cara membuat pemotong Tabel Pivot bergerak dengan menggulir lembar kerja di Excel?
Saat bekerja dengan Tabel Pivot, Anda dapat menyisipkan pemotong untuk memfilter data secara visual dari tabel. Artikel ini berbicara tentang menjaga pemotong Tabel Pivot selalu terlihat saat menggulir lembar kerja.
Jaga agar pemotong Tabel Pivot terus bergerak dengan menggulir lembar kerja dengan kode VBA
Jaga agar pemotong Tabel Pivot terus bergerak dengan menggulir lembar kerja dengan kode VBA
Skrip VBA berikut dapat membantu Anda menjaga pemotong Tabel Pivot terus bergerak dengan lembar kerja. Silakan lakukan sebagai berikut.
1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Buku Kerja Ini di panel Proyek kiri, lalu salin dan tempel kode VBA di bawah ini ke file ThisWorkbook (Kode) jendela. Lihat tangkapan layar:
Kode VBA: Jaga agar pemotong Tabel Pivot terus bergerak dengan menggulir lembar kerja
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
Catatan:
1). Dalam kode, Kolom1 dan Kolom2 adalah nama pemotong.
2). Anda dapat menentukan posisi pemotong saat menggulir lembar kerja dalam kode.
3). Dan Anda bisa menambahkan lebih banyak pemotong ke dalam kode atau menghapus pemotong darinya sesuai kebutuhan.
3. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi kotak dialog jendela.
Mulai sekarang, pemotong yang ditentukan akan dipindahkan dengan sel aktif saat menggulir lembar kerja. Lihat tangkapan layar:
Terkait artikel:
- Bagaimana cara agar tabel dapat diperluas dengan memasukkan baris tabel di lembar kerja terlindungi di Excel?
- Bagaimana cara menggabungkan sel dan mempertahankan pemformatan sel di Excel?
- Bagaimana cara menghapus duplikat tetapi menyimpan contoh pertama di Excel?
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!