Bagaimana cara menyembunyikan/menampilkan kolom/baris melalui vba?

Properti tersembunyi VBA

Untuk menyembunyikan/menampilkan kolom atau baris di Excel menggunakan VBA, Anda dapat menggunakan properti “Tersembunyi”. Untuk menggunakan properti ini, Anda harus menentukan kolom atau baris menggunakan objek rentang dan kemudian menentukan TRUE/FALSE.

1. Tentukan kolom atau baris menggunakan objek rentang.
2. Setelah itu, gunakan properti kolom/baris keseluruhan untuk merujuk ke seluruh baris atau kolom.
3. Kemudian gunakan properti tersembunyi.
4. Pada akhirnya, tentukan benar/salah.

Berikut ini contoh yang perlu dipertimbangkan:

 Sub vba_hide_row_columns() 'hide the column A Range("A:A").EntireColumn.Hidden = True 'hide the row 1 Range("1:1").EntireRow.Hidden = True End Sub

Pada kode di atas, kita telah menggunakan properti tersembunyi untuk menyembunyikan kolom A dan baris 1. Dan berikut adalah kode untuk menampilkannya.

 Sub vba_hide_row_columns() 'unhide the column A Range("A:A").EntireColumn.Hidden = False 'unhide the row 1 Range("1:1").EntireRow.Hidden = False End Sub

Sembunyikan/Tampilkan beberapa baris dan kolom VBA

 Sub vba_hide_row_columns() 'hide the column A to c Range("A:C").EntireColumn.Hidden = True 'hide the row 1 to 4 Range("1:4").EntireRow.Hidden = True End Sub

Begitu pula jika Anda ingin menampilkan banyak baris dan kolom.

 Sub vba_hide_row_columns() 'hide the column A to c Range("A:C").EntireColumn.Hidden = False 'hide the row 1 to 4 Range("1:4").EntireRow.Hidden = False End Sub

Sembunyikan semua kolom dan baris

 Sub vba_hide_row_columns() 'hide the column A Columns.EntireColumn.Hidden = True 'hide the row 1 Rows.EntireRow.Hidden = True End Sub

Tampilkan semua kolom dan baris

 Sub vba_hide_row_columns() 'unhide all the columns Columns.EntireColumn.Hidden = False 'unhide all the rows Rows.EntireRow.Hidden = False End Sub

Sembunyikan/Tampilkan kolom dan baris di lembar kerja lain

 Sub vba_hide_row_columns() 'hide all columns in the sheet 1 Worksheets("Sheet1").Columns.EntireColumn.Hidden = False 'hide all rows in the sheet 1 Worksheets("Sheet1").Rows.EntireRow.Hidden = False End Sub