"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 > > > > > > > > > > > >
