Gimana kalau re-post-nya disertai dengan penjelasan yang lebih rinci tentang kriterianya. Karena setelah dilihat filenya, penggunaan istilah kolom A,B,dsb malah membingungkan. Kolom yang dijabarkan dalam kriteria itu kolom-kolom Excel atau nama-nama kolom dari tabel yang ada. Jika kolom itu adalah kolom-kolom Excel, sedangkan input dilakukan di kolom A, ketika kolom A di-hide, maka ndak ada ruang input. Jadi ndak mungkin kolom-kolom kriteria itu adalah kolom-kolom Excel. Tapi, jika kolom itu adalah nama-nama kolom tabel, maka ada beberapa nama kolom yang tidak ada dalam tabel.
Ada yang bagian yang menyatakan 'kolom AQ = hidden' (AQ yang mana ?) Ada yang bagian yang menyatakan 'jika kolom BA #NUM!' (BA yang mana ?) dan sebagainya. Wassalam, Kid. 2012/10/16 Harry <[email protected]> > ** > > > Dear BeExceller, > > Mohon bantuan rekan-rekan BeExceller akan studi kasus terlampir. > Terima kasih, > > > Harry > > ----- Pesan yang Diteruskan ----- > *Dari:* Harry <[email protected]> > *Kepada:* "[email protected]" <[email protected]> > *Dikirim:* Minggu, 14 Oktober 2012 16:07 > *Judul:* Bls: [belajar-excel] Hiden kolom dengan kreteria > > Dear BeExceller, > Mr. Kid > > Terima kasih atas informasinya. > Bersama ini saya kirimkan sesuai kreteria lampiran. > terima kasih & Wassalam, > > > Harry > > ------------------------------ > *Dari:* Mr. Kid <[email protected]> > *Kepada:* [email protected] > *Dikirim:* Minggu, 14 Oktober 2012 13:38 > *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria > > > "saya agak sedikit kesulitan untuk menuangkannya dalam Workbook yang saya > miliki." > Sebaiknya pada lampiran disertakan hasil ujicobanya. Dengan begitu > BeExceller bisa memulainya dari kondisi tersebut dan bukan membuatkan baru. > File lampirannya juga didisiplinkan untuk tetap maksimal 250KB. > > Wassalam, > Kid > > 2012/10/14 Harry <[email protected]> > > ** > > Dear BeExceller, > Mr. Kid > > Terima kasih atas lampirannya. > Dari pertanyaan dan studi kasus yang saya kirimkan serta jawaban dari Mr. > Kid dan lampiran yang diberikan yang hasilnya sudah ok, saya agak sedikit > kesulitan untuk menuangkannya dalam Workbook yang saya miliki. > Lebih jauh akan pertanyaan tersebut, bersama ini saya kirimkan Workbook > yang saya inginkan. > Mohon kiranya teman-teman BeExceller dan/atau Mr. Kid dapat memberikan > solusi. > > Harap maklum karena saya masih dalam tahap belajar. > Terima kasih & Wassalam, > > > Harry > > > ------------------------------ > *Dari:* Mr. Kid <[email protected]> > *Kepada:* [email protected] > *Dikirim:* Minggu, 14 Oktober 2012 0:34 > > *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria > > > SIlakan. > > Wassalam, > Kid. > > 2012/10/14 Harry <[email protected]> > > ** > > Dear BeExceller, > Mr. Kid & Hendrik Karnadi > > Terima kasih atas berkenan jawaban dan lampirannya. > Sebagai bahan informasi lebih lanjut akan pertanyaan saya, bersama ini > saya kirimkan file "re-Studi Kasus (Hiden Kolom) sebagaima yang telah saya > terima dan sedikit saya tambahkan penjelasan dimaksud. > > Besar harapan kiranya teman-teman BeExceller dapat memberikan solusi pada > Studi Kasus terlampir. > > Terima Kasih, > > > > Harry > > > ------------------------------ > *Dari:* Mr. Kid <[email protected]> > *Kepada:* [email protected] > *Dikirim:* Sabtu, 13 Oktober 2012 16:30 > > *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria > > > Kalau input di cell A1 sedangkan kolom A sudah di-hidden terus bagaimana ? > > Coba file terlampir. > Buat yang ndak bisa download, bisa coba di tabel masing-masing. > 1. Buat table dengan header ada di baris 3 mulai kolom A (mulai A3 sampai > panjang kekanan) > 2. Buat sebuah textbox > 3. klik kanan textbox -> pilih Properties -> Name diganti menjadi txtCols > 4. klik sebuah cell worksheet > 5. klik kanan textbox -> pilih Format Control atau format object -> tab > Properties -> pilih Don't size and move bla-bla -> tekan OK > 6. pastikan tanda Design Mode sudah ON > 7. double click si textbox yang bernama txtCols tersebut > 8. setelah di VBE, hapus semua yang ada dilembar itu kecuali Option > Explicit jika ada. > 9. Copas script untuk event change dari textbox txtCols berikut ini ke > lembar yang kosong tersebut : > Private Sub txtCols_Change() > Dim lChar As Long, sText As String, sCol As String > Dim rngTbl As Range, rng As Range > > Set rngTbl = Sheet1.Range("a3").CurrentRegion.Resize(1) > sText = UCase$(txtCols.Text) > Application.ScreenUpdating = False > rngTbl.Offset(0, rngTbl.Column).Resize(1, 1).Activate > If LenB(sText) = 0 Then > rngTbl.EntireColumn.Hidden = False > Else > For Each rng In rngTbl > rng.EntireColumn.Hidden = (InStr(sText, Replace$(rng.Address(False, > False), rng.Row, vbNullString)) <> 0) > Next rng > End If > Application.ScreenUpdating = True > End Sub > 10. kembali ke worksheet (tekan ALT F11) > 11. turn off tanda design mode > 12. save as (bukan save) -> lihat pilihan dalam Save As Type -> pilih .xls > atau .xlsm atau .xlsb -> beri nama file -> tekan tombol Save > 13. coba isi textbox txtCols dengan huruf. > > Batasan : > Kolom tabel lebih dari kolom Z atau tidak dimulai dari kolom A, > kemungkinan akan tidak sesuai harapan. > > Wassalam, > Kid. > > 2012/10/13 Harry <[email protected]> > > ** > > Dear BeExceller & Hendrik Karnadi, > > Terima kasih atas reply-nya. > Rumus tersebut sesuai dengan yang saya inginkan tetapi jika kolom A1 > posisinya dalam keadaan kosong (kata "ACEG" dihapus), kolom B, D, F H, I & > J tidak kembali muncul. Dan jika kolom A1 saya ganti dengan kata ACFH, > kolom B, D, E, G, I & J, tidak dalam keadaan di hiden (tersembunyi) dan > seterusnya & seterusnya. > > Mohon informasinya. > Terima kasih, > > > Harry > > > ------------------------------ > *Dari:* hendrik karnadi <[email protected]> > *Kepada:* "[email protected]" <[email protected]> > *Dikirim:* Sabtu, 13 Oktober 2012 7:44 > *Judul:* Re: [belajar-excel] Hiden kolom dengan kreteria > > > Dear Harry, > > Coba ketik (copy paste) macro di bawah ini pada Sheet1 atau Module1, > dengan catatan: > Color dibuat pada Range A3:J3 (tidak perlu ditulis pada Range A1) dan > Kriteria Color dibuat pada Range A23 > > Sub Sembunyikan() > Dim KritColor > Dim Rng As Range > Range("A3:J3").EntireColumn.Hidden = False > Set Rng = Range("A3:J3") > KritColor = Range("A23").Interior.Color > For Each r In Rng > If r.Interior.Color <> KritColor Then > r.EntireColumn.Hidden = True > End If > Next r > End Sub > > Salam, > Hendrik Karnadi > > > > ------------------------------ > *From:* Harry <[email protected]> > *To:* "[email protected]" <[email protected]> > *Sent:* Friday, 12 October 2012, 23:41 > *Subject:* [belajar-excel] Hiden kolom dengan kreteria > > > Dear BeExceller, > > Saya ingin menampilkan kolom dan menyembunyikan (hiden) kolom yang yang > saya inginkan sesuai dengan kreteria yang saya masukkan sebagaimana > terlampir. > > Mohon penceraan dari rekan-rekan BeExceller akan hal tersebut. > Terima kasih, > > > > Harry > > > > > > > > > > > > > > > > >
