Note: The other languages of the website are Google-translated. Back to English

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:


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (10)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Hai,
Terima kasih untuk VBA ini.

Saya sama sekali tidak tahu tentang VBA dan karenanya pertanyaan saya.

Saya menggunakan VBA ini dan saya punya pertanyaan.
Bagaimana saya bisa mengubah VBA ini sehingga hanya berfungsi untuk satu lembar.

Saat ini, saya memiliki 8 lembar dan setiap kali saya pergi ke lembar lain, itu gagal dan meminta saya untuk mengakhiri atau men-debug.
Saya telah melakukan persis seperti yang ditunjukkan di atas.


Ini adalah VBA saya di sini..
Sub Workbook_SheetSelectionChange Pribadi (ByVal Sh Sebagai Objek, Target ByVal Sebagai Rentang)
Dim ShF Sebagai Bentuk
Redupkan ShM Sebagai Bentuk
'tentukan alat pengiris
Application.ScreenUpdating = Salah
Setel ShF = ActiveSheet.Shapes("Klien 1")
Setel ShM = ActiveSheet.Shapes("Pengingat 1")
'ubah posisi alat pengiris
Dengan Windows(1).VisibleRange.Cells(1, 1)
ShF.Atas = .Atas + 2
ShF.Kiri = .Kiri + 475
ShM.Atas = .Atas + 180
ShM.Kiri = .Kiri + 475
Berakhir dengan
Application.ScreenUpdating = Benar
End Sub


Tolong bantu.
Komentar ini diminimalkan oleh moderator di situs
Hai,
Terima kasih untuk VBA ini.

Saya sama sekali tidak tahu tentang VBA dan karenanya pertanyaan saya.

Saya menggunakan VBA ini dan saya punya pertanyaan.
Bagaimana saya bisa mengubah VBA ini sehingga hanya berfungsi untuk satu lembar.

Saat ini, saya memiliki 8 lembar dan setiap kali saya pergi ke lembar lain, itu gagal dan meminta saya untuk mengakhiri atau men-debug.
Saya telah melakukan persis seperti yang ditunjukkan di atas.


Ini adalah VBA saya di sini..
Sub Workbook_SheetSelectionChange Pribadi (ByVal Sh Sebagai Objek, Target ByVal Sebagai Rentang)
Dim ShF Sebagai Bentuk
Redupkan ShM Sebagai Bentuk
'tentukan alat pengiris
Application.ScreenUpdating = Salah
Setel ShF = ActiveSheet.Shapes("Klien 1")
Setel ShM = ActiveSheet.Shapes("Pengingat 1")
'ubah posisi alat pengiris
Dengan Windows(1).VisibleRange.Cells(1, 1)
ShF.Atas = .Atas + 2
ShF.Kiri = .Kiri + 475
ShM.Atas = .Atas + 180
ShM.Kiri = .Kiri + 475
Berakhir dengan
Application.ScreenUpdating = Benar
End Sub


Tolong bantu.
Komentar ini diminimalkan oleh moderator di situs
John terkasih,
Bergeser ke lembar kerja yang Anda inginkan agar kode VBA hanya berfungsi, lalu klik kanan tab Lembar dan pilih Lihat Kode dari menu konteks.
Dan kemudian salin dan tempel di bawah kode VBA ke dalam jendela Kode pembuka. Lihat tangkapan layar di bawah ini:

Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang)
Dim ShF Sebagai Bentuk
Redupkan ShM Sebagai Bentuk
'tentukan alat pengiris
Application.ScreenUpdating = Salah
Atur ShF = ActiveSheet.Shapes("Buah")
Setel ShM = ActiveSheet.Shapes("Sale")
'ubah posisi alat pengiris
Dengan Windows(1).VisibleRange.Cells(1, 1)
ShF.Atas = .Atas
ShF.Kiri = .Kiri + 300
ShM.Atas = .Atas
ShM.Kiri = .Kiri + 100
Berakhir dengan
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Kristal yang terhormat,

Terima kasih banyak untuk kodenya.
Saya melakukan persis seperti yang Anda katakan dan itu bekerja seperti pesona.

Sangat menghargai itu.
Bersulang :)
Komentar ini diminimalkan oleh moderator di situs
Hai, Saya telah memperbarui kode saya seperti yang Anda tunjukkan. Pemotong tidak lagi menggulir bersama dengan jendela namun jika saya mengklik sel baru maka alat pengiris akan bergerak. Apakah ini perilaku yang benar?
Komentar ini diminimalkan oleh moderator di situs
Apa yang ditunjukkan oleh baris pertama dan bagaimana kita menyesuaikannya agar sesuai dengan alat pengiris kita?
Saya sangat bingung tentang itu pada dasarnya di setiap baris.
Komentar ini diminimalkan oleh moderator di situs
Katie sayang
Saya tidak tahu apakah saya benar-benar mengerti pertanyaan Anda.
Seperti yang saya sebutkan di Catatan di atas, Anda perlu mengganti Column1 dan Column2 dengan nama pemotong Anda dalam kode agar pengiris Anda tetap bergulir dengan lembar kerja.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki 4 pemotong yang telah dikelompokkan bersama dengan memilih semua 4 dan mengklik kanan untuk menggunakan perintah grup.

Apakah mungkin untuk menetapkan VBA ini oleh grup? Bagaimana Anda memberi label grup dan menulis VBA untuk mengenalinya sebagai satu?
Komentar ini diminimalkan oleh moderator di situs
Hi Michael,
Maaf tidak bisa membantu dengan ini. Terima kasih atas komentar Anda.
Komentar ini diminimalkan oleh moderator di situs
Oke, jadi judulnya "Cara Membuat Pemotong Tabel Pivot Bergerak Dengan Lembar Kerja bergulir Di Excel?", tetapi kode VBA ini hanya melakukannya untuk sel yang dipilih saat ini, bagaimana kita bisa melakukannya untuk bergulir dari buku kerja, dan bukan hanya sel yang dipilih?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL