Cara Membekukan Panel dengan VBA di Excel (5 Cara yang Cocok)

Hugh West

13-10-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Pada artikel ini, saya akan menunjukkan kepada Anda bagaimana bisa membekukan panel lembar kerja Excel dengan Visual Basic of Applications (VBA). Sering kali saat bekerja di Excel, kita perlu membekukan panel lembar kerja untuk kenyamanan dan pengalaman yang lebih baik. Hari ini Anda akan belajar bagaimana Anda dapat melakukannya dengan VBA .

Bekukan Panel dengan VBA di Excel (Tampilan Cepat) 

 Sub Freeze_Panes_Row_and_Column() Range("C4").Select ActiveWindow.FreezePanes = True End Sub

Unduh Buku Kerja Praktik

Unduh buku kerja latihan ini untuk latihan saat Anda membaca artikel ini.

VBA Membekukan Panel.xlsm

Pengenalan ke Panel Pembekuan Excel

Di Microsoft Excel, membekukan panel berarti membekukan baris atau kolom atau keduanya sedemikian rupa sehingga meskipun Anda turun atau ke kanan melalui scrollbar, baris atau kolom tersebut akan selalu terlihat. Ini biasanya dilakukan dengan baris atau kolom yang berisi header dari kumpulan data.

Sebagai contoh, lihat kumpulan data di bawah ini. Di sini kita telah membekukan lembar kerja hingga baris 3 ( Tahun ) dan kolom B ( Nama Produk ).

Ketika kita akan turun ke bawah lembar kerja dengan menggulir scrollbar, kita akan menemukan bahwa baris hingga baris 3 selalu terlihat.

Sama untuk kolom B sementara kita gulir ke kanan.

Sekarang, untuk membekukan panel di lembar kerja secara manual, pilih sel tepat setelah baris dan kolom (Cell C4 dalam contoh ini) dan pergi ke Lihat> Freeze Panes> Freeze Panes di bilah alat Excel.

Untuk hanya membekukan baris, pilih seluruh baris dan buka Lihat> Freeze Panes> Freeze Panes di bilah alat Excel.

Demikian pula, untuk membekukan hanya kolom, pilih seluruh kolom dan buka Lihat> Freeze Panes> Freeze Panes di bilah alat Excel.

⧭ Catatan:

  • Pilih Bekukan Baris Atas untuk membekukan hanya baris atas.
  • Demikian pula, pilih Bekukan Kolom Pertama untuk membekukan hanya kolom pertama.

5 Metode untuk Membekukan Panel dengan VBA di Excel

Kita telah mempelajari apa itu membekukan panel di Excel dan bagaimana melakukannya secara manual. Sekarang, mari kita lanjutkan ke pembahasan utama kita hari ini, bagaimana cara membekukan panel dengan VBA .

1. Bekukan Hanya Baris dengan VBA di Excel

Pertama-tama, mari kita lihat bagaimana kita bisa membekukan hanya satu baris dengan VBA .

Seperti yang sudah dibahas sebelumnya, untuk membekukan hanya satu baris, pertama-tama Anda harus memilih seluruh baris di bawah baris yang akan dibekukan (Row 4 dalam contoh ini).

Kemudian Anda harus menerapkan Membekukan Panel perintah.

Jadi VBA kode akan menjadi:

⧭ Kode VBA: 

 Sub Freeze_Panes_Only_Row() Range("C4").EntireRow.Select ActiveWindow.FreezePanes = True Range("C4").Select End Sub

⧭ Keluaran:

Jalankan kode ini. Dan Anda akan menemukan lembar kerja aktif yang dibekukan hingga baris 3 .

⧭ Catatan:

  • Di sini kami telah menggunakan sel C4 untuk memilih sel baris mana pun 4 Anda memilihnya sesuai dengan kebutuhan Anda.
  • Baris terakhir kode Rentang ("C4").Pilih adalah untuk tujuan membatalkan pilihan seluruh baris 4 (Membatalkan pilihan berarti memilih pilihan baru, seperti di Excel, sesuatu harus tetap dipilih). Anda bisa menghilangkan baris ini jika Anda mau.

Baca Juga: Cara Membekukan Baris Atas di Excel (4 Metode Mudah)

2. Bekukan Hanya Kolom dengan VBA di Excel

Kita telah melihat bagaimana kita bisa membekukan barisan dengan VBA Sekarang mari kita lihat bagaimana membekukan kolom dengan VBA .

Mirip dengan baris, untuk membekukan hanya kolom, pertama-tama Anda harus memilih seluruh kolom tepat ke kolom yang akan dibekukan (Column C dalam contoh ini).

Kemudian Anda harus menerapkan Membekukan Panel perintah.

Jadi VBA kode akan menjadi:

⧭ Kode VBA: 

 Sub Freeze_Panes_Only_Column() Range("C4").EntireColumn.Select ActiveWindow.FreezePanes = True Range("C4").Select End Sub

⧭ Keluaran:

Jalankan kode ini. Dan Anda akan menemukan lembar kerja aktif yang dibekukan hingga kolom C .

⧭ Catatan:

  • Di sini kami telah menggunakan sel C4 untuk memilih sel kolom mana pun C Anda memilihnya sesuai dengan kebutuhan Anda.
  • Baris terakhir kode Rentang ("C4").Pilih adalah untuk tujuan membatalkan pilihan seluruh kolom C (Membatalkan pilihan berarti memilih pilihan baru, seperti di Excel, sesuatu harus tetap dipilih). Anda bisa menghilangkan baris ini jika Anda mau.

Baca Lebih Lanjut: Cara Membekukan 2 Kolom di Excel (5 Metode)

3. Bekukan Baris dan Kolom dengan VBA di Excel

Kita telah melihat bagaimana kita bisa membekukan baris dan kolom secara terpisah. Kali ini, mari kita lihat bagaimana kita bisa membekukan baris dan kolom secara bersamaan.

Untuk membekukan baris dan kolom secara bersamaan, Anda harus memilih sel di bawah baris yang akan dibekukan dan tepat ke kolom yang akan dibekukan (Cell C4 dalam contoh ini).

Kemudian Anda harus menerapkan Membekukan Panel perintah.

Jadi VBA kode akan menjadi:

⧭ Kode VBA: 

 Sub Freeze_Panes_Row_and_Column() Range("C4").Select ActiveWindow.FreezePanes = True End Sub

⧭ Keluaran:

Jalankan kode ini. Dan Anda akan menemukan lembar kerja aktif yang dibekukan hingga baris 3 dan kolom C .

⧭ Catatan:

  • Di sini kami telah menggunakan sel C4 untuk memilih sel di bawah baris 3 dan kanan ke kolom B . sel itu C4 Anda memilihnya sesuai dengan kebutuhan Anda.

Baca Lebih Lanjut: Cara Membekukan Panel Terpilih di Excel (10 Cara)

Bacaan serupa:

  • Cara Membekukan Beberapa Panel di Excel (4 Kriteria)
  • Pintasan Keyboard untuk Membekukan Panel di Excel (3 Pintasan)
  • Cara Membekukan 3 Kolom Pertama di Excel (4 Cara Cepat)

4. Kembangkan Userform untuk Membekukan Panel dengan VBA di Excel

Kami telah melihat bagaimana kami dapat membekukan baris atau kolom atau baris dan kolom dengan VBA di lembar kerja Excel.

Sekarang kita akan mengembangkan Userform untuk membawa semua tugas yang berbeda dalam satu antarmuka.

⧭ Langkah demi Langkah Prosedur untuk Mengembangkan Formulir Pengguna:

⧪ Langkah 1:

  • Tekan ALT+F11 pada keyboard Anda untuk membuka Visual Basic
  • Dalam Visual Basic editor, pergi ke Sisipkan> UserForm untuk menyisipkan Bentuk pengguna .

⧪ Langkah 2:

  • Sebuah UserForm disebut UserForm1 akan dibuat di dalam VBA
  • Di sebelah kiri UserForm Anda akan mendapatkan Kotak Alat disebut Kontrol Arahkan mouse Anda pada kotak alat dan cari Kotak Teks (Kotak Teks1) Setelah menemukan satu, seret ke atas bagian atas UserForm .
  • Demikian pula, seret ListBox ( ListBox1 ) tepat ke Kotak Teks dan CommandButton (Commandbutton1) ke sudut kanan bawah dari UserForm . Mengubah tampilan dari CommandButton untuk OK . Anda UserForm sekarang akan terlihat seperti ini:

⧪ Langkah 3:

Sisipkan a Modul ( Sisipkan> Modul ) dari VBA kotak alat

⧪ Langkah 4:

Masukkan yang berikut ini VBA kode di dalam Modul . 

 Sub Run_UserForm() UserForm1.Caption = "Freeze Panes" UserForm1.TextBox1.Text = Selection.Address UserForm1.TextBox1.BorderStyle = fmBorderStyleSingle UserForm1.ListBox1.BorderStyle = fmBorderStyleSingle UserForm1.ListBox1.ListStyle = fmListStyleOption UserForm1.ListBox1.AddItem "1. Freeze Row" UserForm1.ListBox1.AddItem "2. Freeze Column" UserForm1.ListBox1.AddItem "3. Freeze Both Row and Column"Muat UserForm1 UserForm1.Show End Sub

⧪ Langkah 5:

Klik dua kali pada CommandButton ditampilkan sebagai OK Sub Pribadi yang disebut CommandButton1_Click akan terbuka. Masukkan kode berikut di sana: 

 If UserForm1.ListBox1.Selected(0) = True Then Set Rng = Selection Rng.EntireRow.Select ActiveWindow.FreezePanes = True Rng.Select ElseIf UserForm1.ListBox1.Selected(1) = True Then Set Rng = Selection Rng.EntireColumn.Select ActiveWindow.FreezePanes = True Rng.Select ElseIf UserForm1.ListBox1.Selected(2) = True ThenActiveWindow.FreezePanes = True Else MsgBox "Pilih Setidaknya Satu. ", vbExclamation End If Bongkar UserForm1

⧪ Langkah 6:

Demikian pula, klik dua kali pada TextBox1 Sub Pribadi yang disebut TextBox1_Change akan terbuka. Masukkan kode berikut di sana. 

 Private Sub TextBox1_Change() On Error GoTo Message Range(TextBox1.Text).Select Message: Note = 5 End Sub

⧪ Langkah 7:

Anda UserForm sekarang siap digunakan. Pilih sel di bawah baris yang akan dibekukan dan kanan kolom yang akan dibekukan (Cell C4 di sini), dan jalankan Makro disebut Run_UserForm .

⧪ Langkah 8:

  • The UserForm Anda akan menemukan alamat sel yang dipilih ( C4 ) di dalam Kotak Teks Jika Anda ingin, Anda bisa mengubahnya.
  • Kemudian pilih salah satu dari tiga opsi yang tersedia di ListBox Di sini saya ingin membekukan baris dan kolom, jadi saya telah memilih Bekukan Baris dan Kolom .
  • Kemudian klik OK .

⧪ Langkah 9:

Anda akan menemukan lembar kerja yang dibekukan sesuai dengan keinginan Anda. (Di sini dibekukan hingga baris 3 dan kolom B ).

Konten Terkait: Cara Membekukan Bingkai di Excel (6 Trik Cepat)

5. Alternatif dari Freeze Panes di Excel: Pisahkan Jendela dengan VBA

Kita telah berbicara banyak tentang membekukan panel di Excel. Sekarang, mari kita lihat alternatif yang sangat berguna untuk membekukan panel di Excel, yang Jendela Terpisah perintah.

Anda bisa ActiveWindow.SplitRow atau ActiveWindow.SplitColumn di VBA untuk membagi lembar kerja secara baris-bijaksana atau kolom-bijaksana.

Misalnya, untuk membagi lembar kerja dari baris 3 , gunakan: 

 ActiveWindow.SplitRow = 3

Demikian pula, untuk membagi lembar kerja dari kolom B , gunakan: 

 ActiveWindow.SplitColumn = 2

⧭ Kode VBA: 

 Sub Split_Window() ActiveWindow.SplitRow = 3 ActiveWindow.SplitColumn = 2 End Sub

⧭ Keluaran:

Jalankan kode, itu akan membagi lembar kerja aktif dari baris 3 dan kolom B .

Konten Terkait: Cara Menerapkan Panel Pembekuan Kustom di Excel (3 Cara Mudah)

Hal-hal yang Perlu Diingat

  • Sebelum mengajukan permohonan Membekukan Panel di Excel, Anda harus Membekukan semua Freeze Panes (Panel Pembekuan) sudah diterapkan. Membekukan Panel perintah tidak akan berfungsi.
  • The Membekukan Panel perintah tidak akan bekerja melalui digabungkan sel. Jadi unmerge mereka sebelum menerapkan Membekukan Panel perintah jika ada.

Kesimpulan

Jadi, inilah metode yang digunakan Membekukan Panel dengan VBA di Excel. Saya telah mencoba membahas semua cara yang mungkin untuk menerapkan Membekukan Panel Apakah Anda memiliki pertanyaan? Jangan ragu untuk bertanya kepada kami. Dan jangan lupa untuk mengunjungi situs kami ExcelWIKI untuk lebih banyak postingan dan pembaruan.

Postingan sebelumnya Statistik Deskriptif - Rentang Input Berisi Data Non-Numerik
Postingan berikutnya Cara Menggunakan VLOOKUP untuk Beberapa Kolom di Excel (6 Contoh)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.