Vba: cara menyembunyikan baris berdasarkan kriteria
Anda dapat menggunakan sintaks berikut di VBA untuk menyembunyikan baris berdasarkan nilai sel:
SubHideRows ()
Dim i As Integer
For i = 2 To 10
If Cells(i, 1).Value = " Mavs " Then
Cells(i, 1).EntireRow.Hidden = True
Else
Cells(i, 1).EntireRow.Hidden = False
End If
Next i
End Sub
Makro khusus ini menyembunyikan semua baris dalam rentang 2 hingga 10 yang memiliki nilai sel sama dengan “Mavs” di kolom pertama.
Anda juga bisa menggunakan makro berikut untuk menampilkan semua baris:
SubUnhideRows ()
Rows.EntireRow.Hidden = False
End Sub
Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.
Contoh: Gunakan VBA untuk menyembunyikan baris berdasarkan kriteria
Misalkan kita mempunyai kumpulan data berikut yang berisi informasi tentang berbagai pemain bola basket:
Katakanlah kita ingin menyembunyikan setiap baris yang berisi “Mavs” di kolom tim.
Kita dapat membuat makro berikut untuk melakukan ini:
SubHideRows ()
Dim i As Integer
For i = 2 To 10
If Cells(i, 1).Value = " Mavs " Then
Cells(i, 1).EntireRow.Hidden = True
Else
Cells(i, 1).EntireRow.Hidden = False
End If
Next i
End Sub
Saat kami menjalankan makro ini, kami menerima keluaran berikut:
Perhatikan bahwa setiap baris yang berisi “Mavs” di kolom tim kini telah disembunyikan.
Jika mau, kita bisa membuat makro berikut untuk menampilkan semua baris:
SubUnhideRows ()
Rows.EntireRow.Hidden = False
End Sub
Saat kami menjalankan makro ini, kami menerima keluaran berikut:
Perhatikan bahwa semua baris ditampilkan lagi.
Perhatikan bahwa di makro kami, kami menentukan For i = 2 To 10 untuk menyembunyikan baris antara 2 dan 10 berdasarkan kriteria.
Jangan ragu untuk mengubah nilai awal dan akhir ini untuk menyembunyikan baris dalam rentang baris yang berbeda.
Sumber daya tambahan
Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:
VBA: Cara menerapkan pemformatan bersyarat ke sel
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: Cara menghitung sel dengan teks tertentu