Rabu, 04 Januari 2012

Macro VBA Excel untuk Menyembunyikan / Tidak menyembunyikan Row pada Worksheet

Berikut macro VBA Excel untuk menyembunyikan atau menampilkan row yang disembunyikan pada worksheet :
'Diasumsikan row yang disembunyikan adalah row no. 1
Sub toHideOrNotToHide()
Rows("1:1").Select
Selection.EntireRow.Hidden = Not Selection.EntireRow.Hidden
End Sub

Untuk memudahkan menyembunyikan atau menampilkan row (memudahkan menjalankan macro-nya) dapat dibuat sebuah "button" yg bertindak sebagai toogle button.

Untuk mengganti row selain row no. 1 : angka 1 pada baris perintah Rows("1:1").Select diganti dengan angka yang menunjukkan no. row yang akan disembunyikan. Misal row no. 12 yang akan disembunyikan, maka perintahnya diubah menjadi : Rows("12:12").Select.. Jika barisnya lebih dari satu, misalnya baris 3 s/d baris 5 maka perintahnya menjadi : Rows("3:5").Select

Tidak ada komentar: