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

Tambahkan komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *