Kita sering menggunakan excel untuk membuat tabel database yang cukup besar di satu sisi, dan di sisi lain juga ingin menampilkan laporan yang simple dan mudah di baca. Salah satu cara membuat laporan menjadi lebih simple adalah dengan me-hide cell2 yang kosong. Jika hal ini dilakukan secara manual, tentu akan cukup merepotkan. Kali ini saya ingin sharing cara melakukan autohide pada file excel anda.
Langkah-langkahnya adalah sebagai berikut:
1. Buatlah terlebih dahulu file contoh dengan data di Sheet1 seperti berikut:
2. Untuk contoh ini, kita buat file yang sederhana dulu, yang penting paham dulu fungsinya. Buat Sheet2 dengan data seperti berikut:
Perhatikan bahwa cell2 data di sheet2 berisi link ke sheet1 di cell yang sama.
3. Buka VB Editor di file excel anda
4. Pada VB Editor, klik view, lalu klik Project Explorer
3. Pilih Sheet2 pada file terkait (Double klik bagian Sheet2 pada nama file yg anda buat)
4. Copy paste code berikut ke Module tersebut
-----------------------------------------------------------------------------------
'<<>>
Option Explicit
Private Sub Worksheet_Activate()
Dim HiddenRow&, RowRange As Range, RowRangeValue&
'*****************************
'<>
Const FirstRow As Long = 4
Const LastRow As Long = 20
'<>
Const FirstCol As String = "B"
Const LastCol As String = "G"
'*****************************
ActiveWindow.DisplayZeros = False
Application.ScreenUpdating = False
For HiddenRow = FirstRow To LastRow
'(we're using columns B to G here)
Set RowRange = Range(FirstCol & HiddenRow & _
":" & LastCol & HiddenRow)
'sums the entries in cells in the RowRange
RowRangeValue = Application.Sum(RowRange.Value)
If RowRangeValue <> 0 Then
'there's something in this row - don't hide
Rows(HiddenRow).EntireRow.Hidden = False
Else
'there's nothing in this row yet - hide it
Rows(HiddenRow).EntireRow.Hidden = True
End If
Next HiddenRow
Application.ScreenUpdating = True
End Sub
--------------------------------------------------------
5. Close VB Editor.
Sunday 30 May 2010
Subscribe to:
Post Comments (Atom)
gak ada contoh filenya ya gan
ReplyDeletework gan.... tapi masih error kalau Sheet2 nya di protect, mohon pencerahanya..... BTW terimaksaih telah berbagi
ReplyDeleteBagamana jika share file ny, saya coba buat gx jalan
ReplyDeletealhamdulillah berhasil
ReplyDeletemakasih sangat membatu, tolong perintah membuka kembali baris yang disembunyikan mohon bantu kirim ke mgmpipskkr@gmail.com
ReplyDeleteterimakasih sebelumnya
Terima kasih mas sangat membantu, cuma bisa ga kalau dalam satu sheet Firs Rownya berbeda atau ga hanya satu......
ReplyDeleteKalau sel kita protect, jadi error..
ReplyDeleteMohon pencerahannya gan..
Mantap gan, sangat membantu. terimakasih
ReplyDelete