Mohon koreksinya mr.kid karena masih newbe
Public Sub Contoh1_DoWhileLoop()
Dim SK_9 As Long
Sheets("Sheet1").Columns("AT:AX").Selection (masih ada error dibaris ini )
Do While SK_9 = 1
Columns("AT:AX").Select
Selection.EntireColumn.Hidden = True
Loop
End Sub
From: [email protected] [mailto:[email protected]]
Sent: 7 Nopember 2015 12:32
To: BeExcel
Subject: Re: RE: [belajar-excel] macro untuk menyembunyikan kolom
Pasti ada cell tertentu (misal cell A di suatu kolom) yang menunjukkan kalau
cell A bernilai sekian, maka kolom itu di hide.
Kalau belum ada, buat cells seperti itu disetiap kolom yang perlu dihide atau
tidak.
Lalu buat prosedur untuk meloop cells seperti cells A itu. Buat kondisi kalau
isi cells itu begini maka lakukan proses hide di kolom milik si cell tersebut.
Lihat blog milis tentang loop dan juga tentang kondisi dalam VBA.
Kid
2015-11-07 12:12 GMT+07:00 'prazt' [email protected] [belajar-excel]
<[email protected]>:
Maksudnya Kolom yang tanpa nilai, tetapi perlu diperhatikan bahwa setiap SK itu
ada rerata nilainya di samping kanan, nah kolom rerata SK tersebut juga ikut
terhidden sesuai SK yg tidak ada nilainya, coba perhatikan file lampirannya
untuk lebih spesifik.
From: [email protected] [mailto:[email protected]]
Sent: 7 Nopember 2015 11:58
To: [email protected]
Subject: Re: RE: [belajar-excel] macro untuk menyembunyikan kolom
maksudnya kolom yg tanpa nilai yg di hidden..? atau specifik apa yg mesti di
hidden..
Sent from Yahoo Mail on Android
<http://overview.mail.yahoo.com/mobile/?.src=Android>
_____
From: 'prazt' [email protected] [belajar-excel]
<[email protected]>;
To: <[email protected]>;
Subject: RE: [belajar-excel] macro untuk menyembunyikan kolom
Sent: Sat, Nov 7, 2015 4:46:09 AM
Kalau seperti ini kan hanya kolom “AE:AX” saja yang kosong, padahal kolom yang
kosong bisa berubah ubah sesaui si guru yang makai,
Dengan asumsi bahwa setiap mata pelajaran kan banyaknya materi berbeda-beda
sehingga kurang efisien kalau seperti itu “maaf”
From: [email protected] [mailto:[email protected]]
Sent: 7 Nopember 2015 11:39
To: [email protected]
Subject: Re: [belajar-excel] macro untuk menyembunyikan kolom
Hai Prazt,
Coba gunakan method Coulumns hidden.
mungkin seperti ini:
jika yg mau di hidden coulumn "AE:AX"
Sheet1.Coulumns("AE:AX").Hidden = True
kalo mau di buka lagi tinggal di ubah aja True jadi False.
Semoga membantu.
TerimaKasih.
Sent from Yahoo Mail on Android
<http://overview.mail.yahoo.com/mobile/?.src=Android>
_____
From: 'prazt' [email protected] [belajar-excel]
<[email protected]>;
To: <[email protected]>;
Subject: [belajar-excel] macro untuk menyembunyikan kolom [1 Attachment]
Sent: Sat, Nov 7, 2015 3:49:56 AM
Assalamu’alaikum Wr.Wb
Dear rekan-rekan semua
Mohon bantuannya ya..saya ingin menyembunyikan kolom yang nilainya kosong/tidak
ada nilainya (maaf kalau ada salah penyebutan) dengan menggunakan makro
dengan cara mengklik tombol yang disediakan, dan jika suatu saat kolom tersebut
dibutuhkan maka bisa ditampilkan kembali dengan mengklik tombol
tampilkan semua (yg sudah tersedia)
ilustrasinya ada pada file lampiran
Wassalamu’alaikum
_____
<https://www.avast.com/antivirus> Avast logo
Email tidak mengandung virus pemeriksaan mengunakan piranti Avast antivirus.
www.avast.com <https://www.avast.com/antivirus>
_____
<https://www.avast.com/antivirus> Avast logo
Email tidak mengandung virus pemeriksaan mengunakan piranti Avast antivirus.
www.avast.com <https://www.avast.com/antivirus>
_____
<https://www.avast.com/antivirus> Avast logo
Email tidak mengandung virus pemeriksaan mengunakan piranti Avast antivirus.
www.avast.com <https://www.avast.com/antivirus>
---
Email tidak mengandung virus pemeriksaan mengunakan piranti Avast antivirus.
https://www.avast.com/antivirus
