Friday, September 30, 2016

VBA Excel Pemula 11 : Cara Sembunyikan (Hide) dan Tampilkan (UnHide) Baris dan Kolom Melalui UserForm

VBA Excel Pemula 11 : Sembunyikan (Hide) dan Tampilkan (UnHide) Baris dan Kolom Melalui UserForm - Perhatikan gambar gif dibawah..!! anda bisa dengan cepat memahami tujuan dan maksud dari posting ini. Jadi ngak susah saya harus menjelaskan tujuannya lagi. Intinya sembunyiin baris dan kolom selanjutnya tampilkan kembali baris dan kolom yang disembunyikan


Cara Sembunyikan (Hide) dan Tampilkan (UnHide) Baris dan Kolom Melalui UserForm :
  • Buka excel dan Pilih Tab Developer selanjutnya klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol  Alt+F11.
  • Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 11" dan tambahkan  CommandButton1 dengan Caption "Sembunyikan Baris", CommandButton2 dengan Caption "Tampilkan Baris", CommandButton3 dengan Caption "Sembunyikan Kolom", dan CommandButton4 dengan Caption "Tampilkan Kolom".
  • Klik kanan pada CommandButton1 Caption "Sembunyikan Baris", Pilih View Code dan masukkan Kode berikut :
Private Sub CommandButton1_Click()

'VBA Excel Pemula 11 : Cara Sembunyikan (Hide) dan Tampilkan (UnHide) Baris dan Kolom

'Kode ini untuk menyembunyikan baris dari baris ke 5 sampai baris 15
       Rows("5:15").Hidden = True
 
End Sub    
  • Klik kanan pada CommandButton2 Caption "Tampilkan Baris", Pilih View Code dan masukkan Kode berikut :
Private Sub CommandButton2_Click()

'Kode ini untuk menampilkan baris dari baris ke 5 sampai baris 15
      Rows("5:15").Hidden = False

End Sub
  • Klik kanan pada CommandButton3 Caption "Sembunyikan Kolom", Pilih View Code dan masukkan Kode berikut :
Private Sub CommandButton3_Click()
 
    'Kode ini menyembunyikan Kolom dari kolom F hingga kolom I
    Columns("F:I").Hidden = True

End Sub
  • Klik kanan pada CommandButton4 Caption "Tampilkan Kolom", Pilih View Code dan masukkan Kode berikut :
Private Sub CommandButton4_Click()

    'Kode ini menampilkan Kolom dari kolom F hingga kolom I
    Columns("F:I").Hidden = False

End Sub

  • Selesai..!! Uji Aplikasi yang telah dibuat dengan klik Run atau dengan menekan tombol F5. Bila anda sudah mengikuti tutorial dengan benar, maka perintah akan dijalankan.
Download : Aplikasi Pemula 11

Demikian posting VBA Excel Pemula 11 : Cara Sembunyikan (Hide) dan Tampilkan (UnHide) Baris dan Kolom Melalui UserForm semoga dapat dikembangkan sesuai dengan keinginan dan kebutuhan masing-masing.

15 komentar

gan klo maumenyembunyikan row yang kosong dengan tombol klik bagaimana ya gan?

terimkasih atas kunjungannya di blog otodidak..
Untuk menyembunyikan Row atau baris tinggal memberikan perintah "Rows("5:15").Hidden = True"
yang disembunyikan baris ke lima hingga 15.

maksud saya gini,
misal membuat nota yang ngelink.
sedangkan isi dari nota tersebut tidak full, misal dibuat 20 baris, sedangkan yang terisi hanya 10, nah ingin menyembunyikan yang 10 ini dengan cara menggunakan tombol bagaimana.. begitu

klo dengan perintah "Rows("5:15").Hidden = True"
otomatis meskipun ada datanya akan tetap tersembunyikan.

pake Advanced Filter saja ke sheet lain... dengan ketentuan harus ada criteria yang difilter... ntar yang masuk hanya data yang dimaksud saja..
contohnya sperti di posting ini..
http://www.senbakusen.com/2017/07/cara-cepat-cetak-absensi-siswa.html

OK Min... terimakasih banyak...
akan saya coba
terima kasih.. terima kasih...

Pake itu ajha kang....!! tp syaratnya harus blok dulu area tabel yang ingin di beri perintah untuk menghiden row
Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To Selection.Rows.Count
If Selection(i, 1) = vbNullString Then
Selection(i, 1).EntireRow.Hidden = True
End If
Next i
End Sub

pake kode dibawah ya.!! sebelum melakukan perintah.. blok dulu area tabelnya.. ntar di hidden yang row blank.. kasih kabar kembali jika solved.. karena di saya solved
Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To Selection.Rows.Count
If Selection(i, 1) = vbNullString Then
Selection(i, 1).EntireRow.Hidden = True
End If
Next i
End Sub

bisa gan, terus klo ingin tampilkan lgi dgn tombol, perintahnya bagaimana?

udah bisa deng, tapi ini harus di blok dulu ya, ga ada yang bisa langsung tanpa di blok

Kang mo tanya lagi...
kenapa setiap selesai ngerjain marco, trus di tutp excel dan matiin laptopnya, setiap buka lagi excel, format marco sudah ga ada, jadi kosong lagi, harus bikin lagi?
caranya bagaimana agar setiap membuka excel yang dpakai marco bisa selalu ada meskipun laptop sudah dimatikan.

itu karena smadav atau antivirus lainnya yang menontaktifkan macro... coba liat pengaturan antivirus.. liat dan ceklist yang ada tulisan Alow macro..

Sama saya sudah dinonaktifkan antivirusnya.
tapi masih tetep sama ga bisa

Add fb saya ajha pak... lebih mudah untuk konsultasi..

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon