VBA untuk Menyembunyikan Baris di Excel (14 Metode)

Hugh West

02-06-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Terkadang kita perlu menyembunyikan beberapa baris tertentu saat menggunakan dataset besar kita di Excel agar lebih mudah dibaca. Menerapkan Makro VBA adalah metode yang paling efektif, tercepat, dan teraman untuk menjalankan operasi apa pun di Excel. Pada artikel ini, kami akan menunjukkan kepada Anda cara sembunyikan baris di Excel berdasarkan kriteria berbeda menggunakan makro VBA.

Unduh Buku Kerja

Anda bisa mengunduh buku kerja Excel latihan gratis dari sini.

Sembunyikan Baris dengan VBA.xlsm

14 Metode dengan VBA untuk Menyembunyikan Baris di Excel

Dalam bagian ini, kita akan membahas 12 metode berbeda dengan VBA untuk sembunyikan baris Contoh yang akan kita gunakan di seluruh artikel ditunjukkan di bawah ini.

1. Sematkan VBA untuk Menyembunyikan Baris Tunggal di Excel

Jika Anda ingin menyembunyikan satu baris dengan VBA kemudian ikuti langkah-langkah yang dibahas di bawah ini. Dalam kasus kami, kami akan sembunyikan baris nomor 5 ( Nama Belakang ) dari dataset kami.

Langkah-langkah:

  • Tekan Alt + F11 pada keyboard Anda atau buka tab Pengembang -> Visual Basic untuk membuka Editor Visual Basic .

  • Di jendela kode pop-up, dari bilah menu, klik Sisipkan -> Modul .

  • Salin kode berikut ini dan tempelkan ke jendela kode. 
 Sub HideSingleRow() Lembar Kerja("Single").Range("5:5").EntireRow.Hidden = True End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini,

  • Lembar kerja ("Tunggal") = Mengatur nama lembar kerja.
  • Rentang ("5:5") = Lulus baris nomor 5 di dalam Rentang metode.

  • Tekan F5 pada keyboard Anda atau dari bilah menu pilih Jalankan -> Jalankan Sub/UserForm Anda juga bisa mengklik pada ikon Putar kecil di bilah sub-menu untuk menjalankan makro.

Perhatikan pada gambar di bawah ini, baris nomor 5 disembunyikan setelah mengeksekusi VBA kode.

Baca selengkapnya: Rumus untuk Menyembunyikan Baris di Excel (7 Metode)

2. Sisipkan Makro untuk Menyembunyikan Baris Bersebelahan di Excel

Anda telah mempelajari cara menyembunyikan satu baris dengan VBA Tetapi seandainya, Anda ingin menyembunyikan rentang baris yang bersebelahan Anda bisa melakukannya juga dengan VBA di Excel. Kami akan sembunyikan baris nomor 5 sampai 7 dari dataset kami yang ditunjukkan di atas.

Langkah-langkah:

  • Cara yang sama seperti sebelumnya, buka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideContiguousRows() Lembar Kerja("Contiguous").Range("5:7").EntireRow.Hidden = True End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini,

  • Lembar kerja ("Bersebelahan") = Mengatur nama lembar kerja.
  • Rentang ("5:7") = Lulus nomor baris 5 sampai 7 di dalam Rentang metode.

  • Lari kode ini dan lihat pada gambar berikut bahwa baris 5 sampai 7 disembunyikan sekarang.

Baca selengkapnya: Cara Menyembunyikan dan Perlihatkan Baris di Excel (6 Cara Termudah)

3. Sematkan Makro untuk Mengamankan Baris yang Tidak Bersebelahan

Kali ini Anda akan belajar cara sembunyikan baris di Excel yang tidak bersebelahan dengan VBA Dengan dataset kami, kode untuk sembunyikan baris 5, 6, 8 dan 9 diberikan di bawah ini.

Langkah-langkah:

  • Seperti yang ditunjukkan sebelumnya, buka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideNonContiguousRows() Lembar Kerja("Non-Contiguous").Range("5:6, 8:9").EntireRow.Hidden = True End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini,

  • Lembar Kerja ("Tidak Bersebelahan") = Mengatur nama lembar kerja.
  • Rentang ("5:6, 8:9") = Lulus baris nomor 5 sampai 6 dan 8 sampai 9 di dalam Rentang metode.

  • Lari potongan kode ini dan lihat bahwa baris 5 sampai 6 dan 8 sampai 9 tersembunyi dalam gambar berikut ini.

Baca selengkapnya: Cara Menyembunyikan Baris di Excel (6 Metode Efektif)

4. Makro untuk Menyembunyikan Semua Baris yang Berisi Teks di Excel

Jika Anda ingin menyembunyikan semua baris yang berisi teks kemudian ikuti langkah-langkah yang disediakan di bawah ini.

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideAllRowsContainsText() LastRow = 1000 'Mari kita asumsikan ada 1000 baris dalam dataset For i = 1 To LastRow 'Loop melalui setiap baris dan memeriksa kondisi yang diperlukan 'Untuk menyembunyikan semua baris dengan data teks If IsNumeric(Range("C" & i)) = False Then Rows(i).EntireRow.Hidden = True Next End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini,

  • IsNumeric(Range("C" & i)) = Data dalam dataset kami dimulai dari kolom C, jadi kami lulus C di dalam Rentang metode.

  • Lari kode ini dan Anda akan melihat semua baris yang mengandung teks sekarang tersembunyi.

Baca selengkapnya: Cara Menampilkan Beberapa Baris di Excel (9 Metode)

5. Makro untuk Menyelubungi Semua Baris yang Berisi Angka di Excel

Dan jika Anda ingin menyembunyikan semua baris yang mengandung nilai numerik dengan VBA kemudian ikuti langkah-langkah yang disediakan di bawah ini.

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideAllRowsContainsNumbers() LastRow = 1000 'Mari kita asumsikan ada 1000 baris dalam dataset For i = 4 To LastRow 'Loop melalui setiap baris dan memeriksa kondisi yang diperlukan 'Kami menetapkan i = 4 karena data kami dimulai dari baris 4 'Untuk menyembunyikan semua baris dengan data numerik If IsNumeric(Range("C" & i)) = True Then Rows(i).EntireRow.Hidden = True Next End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini,

  • IsNumeric(Range("C" & i)) = Data dalam dataset kami dimulai dari kolom C, jadi kami lulus C di dalam Rentang metode.

  • Lari kode ini dan perhatikan bahwa semua baris yang mengandung nilai numerik sebelumnya sekarang tersembunyi.

Baca selengkapnya: Sembunyikan Baris Duplikat Berdasarkan Satu Kolom di Excel (4 Metode)

6. Makro untuk Menyembunyikan Baris yang Mengandung Nol (0) di Excel

Misalkan Anda ingin menyembunyikan hanya baris dari kolom tertentu yang memegang 0 (nol) Lihatlah dataset berikut ini, di mana Kolom E memegang 0 in baris 7 dan 82 di barisan 10 Kita akan belajar bagaimana sembunyikan hanya baris yang menahan 0 ( baris 7 ) dengan VBA di Excel.

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideRowContainsZero() LastRow = 1000 'Mari kita asumsikan ada 1000 baris dalam dataset For i = 4 To LastRow 'Loop melalui setiap baris dan memeriksa kondisi yang diperlukan 'Kami menetapkan i = 4 karena data kami dimulai dari baris 4 'Untuk menyembunyikan baris yang berisi 0 di kolom E If Range("E" & i) = 0 Then Rows(i).EntireRow.Hidden = True Next End Sub

Kode Anda sekarang siap untuk dijalankan.

  • Lari kode ini dan perhatikan bahwa baris ( baris 7 ) yang mengandung 0 di kolom E sekarang tersembunyi sedangkan baris 10 yang membawa 82 tidak tersembunyi.

Baca selengkapnya: Cara Menyembunyikan Baris Kosong di Excel VBA (4 Metode Berguna)

7. Menerapkan Makro untuk Menyembunyikan Baris yang Memegang Nilai Negatif di Excel

Sama seperti Anda bisa menyembunyikan baris yang berisi nol dari kolom yang sama, Anda bisa sembunyikan baris yang memiliki nilai negatif Dengan dataset yang ditunjukkan di bawah ini di mana kolom E mengandung nilai negatif dan positif, kita akan melihat kode yang hanya menyembunyikan nilai negatif.

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideRowContainsNegative() LastRow = 1000 'Mari kita asumsikan ada 1000 baris dalam dataset For i = 4 To LastRow 'Loop melalui setiap baris dan memeriksa kondisi yang diperlukan 'Kami menetapkan i = 4 karena data kami dimulai dari baris 4 'Untuk menyembunyikan baris yang berisi nilai negatif di kolom E If IsNumeric(Range("E" & i)) = True Then If Range("E" & i) <0 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kode Anda sekarang siap untuk dijalankan.

  • Lari kode ini dan perhatikan bahwa baris 7 yang mengandung nilai negatif (-10) di kolom E sekarang tersembunyi sedangkan baris 10 yang membawa 82 tidak tersembunyi.

8. Sematkan VBA untuk Menyembunyikan Baris yang Mengandung Nilai Positif di Excel

Kali ini dengan dataset yang diberikan di bawah ini di mana kolom E mengandung kedua nilai positif nol, kita akan melihat VBA kode yang hanya menyembunyikan yang positif .

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideRowContainsPositive() LastRow = 1000 'Mari kita asumsikan ada 1000 baris dalam dataset For i = 4 To LastRow 'Loop melalui setiap baris dan memeriksa kondisi yang diperlukan 'Kami menetapkan i = 4 karena data kami dimulai dari baris 4 'Untuk menyembunyikan baris yang berisi nilai positif di kolom E If IsNumeric(Range("E" & i)) = True Then If Range("E" & i)> 0 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kode Anda sekarang siap untuk dijalankan.

  • Lari kode ini dan perhatikan bahwa baris 7 yang mengandung nilai positif (55) di kolom E sekarang tersembunyi sedangkan baris 10 yang membawa 0 tidak tersembunyi.

Baca selengkapnya: VBA untuk Menyembunyikan Baris Berdasarkan Nilai Sel di Excel (14 Contoh)

9. Makro untuk Menyembunyikan Baris yang Berisi Angka Ganjil di Excel

Anda bisa menyembunyikan baris yang memiliki angka ganjil sebagai nilainya. Dalam contoh yang kami tunjukkan di awal artikel ini, kolom E memegang angka ganjil dan genap dalam baris 7 dan 10 Kita akan mempelajari kode menyembunyikan baris yang memegang angka ganjil hanya.

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideRowContainsOdd() LastRow = 1000 'Mari kita asumsikan ada 1000 baris dalam dataset For i = 4 To LastRow 'Loop melalui setiap baris dan memeriksa kondisi yang diperlukan 'Kami menetapkan i = 4 karena data kami dimulai dari baris 4 'Untuk menyembunyikan baris yang berisi nilai positif di kolom E If IsNumeric(Range("E" & i)) = True Then If Range("E" & i) Mod 2 = 1 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kode Anda sekarang siap untuk dijalankan.

  • Lari potongan kode ini dan melihat bahwa hanya baris 7 yang mengandung angka ganjil (55) di kolom E sekarang tersembunyi sedangkan baris 10 yang membawa angka genap (82) tidak tersembunyi.

10. VBA untuk Menyembunyikan Baris yang Berisi Angka Genap di Excel

Demikian pula, Anda bisa menyembunyikan baris yang memiliki angka genap sebagai nilainya. Dalam contoh yang kami tunjukkan di awal artikel ini, kolom F memegang angka ganjil dan genap dalam baris 7 dan 10 Kita akan mempelajari kode menyembunyikan baris yang memegang angka genap hanya.

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideRowContainsEven() LastRow = 1000 'Mari kita asumsikan ada 1000 baris dalam dataset For i = 4 To LastRow 'Loop melalui setiap baris dan memeriksa kondisi yang diperlukan 'Kami menetapkan i = 4 karena data kami dimulai dari baris 4 'Untuk menyembunyikan baris yang berisi nilai positif di kolom F If IsNumeric(Range("F" & i)) = True Then If Range("F" & i) Mod 2 = 0 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kode Anda sekarang siap untuk dijalankan.

  • Lari kode ini dan lihat bahwa hanya baris 7 yang mengandung angka genap (100) di kolom F sekarang tersembunyi sedangkan baris 10 yang membawa angka ganjil (75) tidak tersembunyi.

Baca selengkapnya: Excel VBA: Perlihatkan Semua Baris di Excel (5 Contoh Praktis)

11. Sisipkan Makro untuk Menyembunyikan Baris yang Lebih Besar dari Kondisi Tertentu

Anda bisa menyembunyikan baris yang lebih besar dari nilai tertentu dengan VBA Excel. Misalkan Anda ingin menyembunyikan baris dari kolom E di mana nilainya adalah lebih besar dari 80 Berikut ini cara melakukannya:

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideRowContainsGreater() LastRow = 1000 'Mari kita asumsikan ada 1000 baris dalam dataset For i = 4 To LastRow 'Loop melalui setiap baris dan memeriksa kondisi yang diperlukan 'Kami menetapkan i = 4 karena data kami dimulai dari baris 4 'Untuk menyembunyikan baris yang berisi nilai positif di kolom E If IsNumeric(Range("E" & i)) = True Then If Range("E" & i)> 80 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kode Anda sekarang siap untuk dijalankan.

  • Lari kode ini dan lihat bahwa hanya baris 10 yang mengandung 82 (yang lebih besar dari 80) dalam kolom E sekarang tersembunyi sedangkan baris 7 yang membawa 55 tidak tersembunyi.

Baca selengkapnya: Sembunyikan Baris Berdasarkan Nilai Sel dengan Pemformatan Bersyarat di Excel

12. Sematkan Makro untuk Menutupi Baris yang Kurang dari Kondisi Tertentu di Excel

Anda juga bisa menyembunyikan baris yang kurang dari nilai tertentu dengan VBA Excel. Misalkan Anda ingin menyembunyikan baris dari kolom E di mana nilainya adalah kurang dari 80 Berikut ini cara melakukannya:

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideRowContainsLess() LastRow = 1000 'Mari kita asumsikan ada 1000 baris dalam dataset For i = 4 To LastRow 'Loop melalui setiap baris dan memeriksa kondisi yang diperlukan 'Kami menetapkan i = 4 karena data kami dimulai dari baris 4 'Untuk menyembunyikan baris yang berisi nilai positif di kolom E If IsNumeric(Range("E" & i)) = True Then If Range("E" & i) <80 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Kode Anda sekarang siap untuk dijalankan.

  • Lari kode ini dan lihat bahwa hanya baris 7 yang mengandung 55 (yang kurang dari 80) dalam kolom E sekarang tersembunyi sedangkan baris 10 yaitu membawa 82 tidak tersembunyi.

13. Menyembunyikan Baris Berdasarkan Nilai Teks Sel dengan Makro

Misalkan Anda ingin menyembunyikan baris yang menampung teks tertentu Dalam kasus kami, kami akan memberikan contoh dengan baris yang berisi kata " Kimia ", baris 6 dan memberi Anda kode tentang cara menyembunyikan baris itu.

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideRowCellTextValue() StartRow = 4 LastRow = 10 iCol = 4 For i = StartRow To LastRow If Cells(i, iCol).Value "Chemistry" Then Cells(i, iCol).EntireRow.Hidden = False Else Cells(i, iCol).EntireRow.Hidden = True End If Next i End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini,

  • StartRow = 4 -> Baris pertama dari dataset.
  • LastRow = 10 -> Baris terakhir dari dataset.
  • iCol = 4 -> The alamat kolom bahwa memegang teks nilai.

  • Lari kode ini dan perhatikan bahwa baris nomor 6 yang terdiri dari kata " Kimia " tersembunyi.

14. Makro untuk Menyembunyikan Baris Berdasarkan Nilai Numerik Sel di Excel

Sebelumnya Anda telah melihat cara menyembunyikan baris berdasarkan nilai teks sel, kali ini Anda akan belajar bagaimana melakukannya ketika nilai adalah numerik Dalam kasus kami, kami akan memberikan contoh dengan baris yang berisi nilai numerik " 87 ", baris 7 dan memberi Anda kode tentang cara menyembunyikan baris itu.

Langkah-langkah:

  • Terbuka Editor Visual Basic dari Pengembang tab dan Sisipkan a Modul di jendela kode.
  • Di jendela kode, salin kode berikut dan tempelkan. 
 Sub HideRowCellNumValue() StartRow = 4 LastRow = 10 iCol = 4 For i = StartRow To LastRow If Cells(i, iCol).Value "87" Then Cells(i, iCol).EntireRow.Hidden = False Else Cells(i, iCol).EntireRow.Hidden = True End If Next i End Sub

Kode Anda sekarang siap untuk dijalankan.

Di sini,

  • StartRow = 4 -> Baris pertama dari dataset.
  • LastRow = 10 -> Baris terakhir dari dataset.
  • iCol = 4 -> The alamat kolom bahwa memegang teks nilai.

  • Lari kode ini dan perhatikan bahwa baris nomor 7 yang terdiri dari nilai numerik " 87 " tersembunyi.

Baca selengkapnya: Cara Menyembunyikan Baris Berdasarkan Nilai Sel di Excel (5 Metode)

Kesimpulan

Artikel ini menunjukkan kepada Anda cara sembunyikan baris di Excel dengan VBA Saya harap artikel ini sangat bermanfaat bagi Anda. Jangan ragu untuk bertanya jika Anda memiliki pertanyaan mengenai topik ini.

Postingan sebelumnya Cara Menggabungkan Sel dengan Nilai yang Sama di Excel (3 Cara Mudah)
Postingan berikutnya Cara Menambahkan Sheet dengan Nama di Excel VBA (6 Cara Mudah)

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.