Pakai pivot table ? Pivot table bekerja sebelum Excel menangkap suatu event terhadap sheet. Itu sebabnya pivot table sangat cepat komputasinya. Karena pivot table bekerja sebelum Excel menangkap event terhadap sheet, maka gunakan event milik pivot table dan untuk kasus ini tidak perlu event milik sheet.
File terlampir Wassalam, Kid 2015-11-12 17:24 GMT+07:00 'Dede Sulaeman' [email protected] [belajar-excel] <[email protected]>: > > > Dear Mr Kid, > > > > Terima kasih atas masukannya. > > Setelah saya bereksperimen alhasil pala puyeng. Soalnya GAGAL MANING – > GAGAL MANING. > > Saya lampirkan filenya, dan mohon koreksinya. > > > > Salam, > > Dede > > > > > > *From:* [email protected] [mailto: > [email protected]] > *Sent:* 12 November 2015 14:34 > *To:* BeExcel > *Subject:* Re: RE: RE: [belajar-excel] macro untuk menyembunyikan kolom > > > > > > Wa'alaikumussalam wr wb > > Hai DD, > > Di dalam event change milik worksheet, sebelum memulai proses dilakukan > pemeriksaan dari alamat object range dalam variabel Target. Semua cells > yang berubah isinya telah disimpan oleh Excel dan disediakan untuk user > melalui variabel input parameter bernama Target. > > Private Sub Worksheet_Change(ByVal Target As Range) > > Proses pemeriksaannya bisa seperti ini : > > if target.resize(1,1).address<>"$B$3" then > > exit sub > > endif > > > > Wassalamu'alaikum wr wb > > Kid > > > > > > > 2015-11-12 12:10 GMT+07:00 'Dede Sulaeman' > [email protected] [belajar-excel] < > [email protected]>: > > > > Dear BeExceller, > > > > Assalamu’alaikum Wr Wb... > > > > Terinspirasi dari hasil karya Mr. Toby tentang hide kolom. > > Saya coba kembangkan pada kasus saya, alhamdulillah berhasil. > > Namun saya ingin macro berjalan kalau ada perubahan di Cell B3 saja, > apakah bisa...?, karena yang terjadi saat ini kalau ada perubahan disetiap > cell macro langsung bekerja. > > Seandainya “Private Sub Worksheet_Change(ByVal Target As Range)” bisa > diganti “Private Sub Worksheet_CellB3_Change(ByVal Target As Range)”. > Hehehe tentunya itu ga bisa..... > > berikut scripnya : > > > > Private Sub Worksheet_Change(ByVal Target As Range) > > Dim ans As Integer > > ans = 2 > > Dim GTMT As String > > GTMT = Sheet8.Range("C1").Value > > > > Do While ans < 121 > > Cells(3, 1 + ans).Select > > Selection.EntireColumn.Hidden = False > > Cells(3, 1 + ans).Select > > If Cells(3, 1 + ans).Value = 0 And Sheet8.Range("c2").Value = 1 Then > ActiveCell.Columns.Hidden = True > > ans = ans + 1 > > Loop > > Sheet8.Columns("A:B").Hidden = False > > MsgBox "" & GTMT & "", vbInformation, "NOTIFIKASI" > > Sheet8.Range("A6").Select > > Selection.End(xlDown).Select > > End Sub > > > > Mohon masukan atas masalah ini. > > Wassalamu’alaikum Wr Wb.. > > > > Salam, > > DD > > > > *From:* [email protected] [mailto: > [email protected]] > *Sent:* 07 November 2015 14:05 > *To:* [email protected] > *Subject:* Re: RE: RE: [belajar-excel] macro untuk menyembunyikan kolom > [1 Attachment] > > > > > > Hai Prazt, > > sebenarnya sedikit modifikasi dari formula yg td bisa kita inginkan apa > aja yg mau di hide. > ok,ini saya berikan contohnya tetap dgn menggunakan method columns hidden > di tambah dgn method loop untuk mencari data yg kosong, anda bisa > kembangkan sesuai kebutuhan,tapi kalo memang belum memenuhi keinginan anda > ya"maaf". > mungkin teman2 beexceler yg akan menambahkan. > > 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: *RE: RE: [belajar-excel] macro untuk menyembunyikan kolom > *Sent: *Sat, Nov 7, 2015 5:12:28 AM > > > > > > 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 > > > ------------------------------ > > [image: Avast logo] <https://www.avast.com/antivirus> > > Email tidak mengandung virus pemeriksaan mengunakan piranti Avast > antivirus. > www.avast.com <https://www.avast.com/antivirus> > > > ------------------------------ > > [image: Avast logo] <https://www.avast.com/antivirus> > > Email tidak mengandung virus pemeriksaan mengunakan piranti Avast > antivirus. > www.avast.com <https://www.avast.com/antivirus> > > > ------------------------------ > > [image: Avast logo] <https://www.avast.com/antivirus> > > Email tidak mengandung virus pemeriksaan mengunakan piranti Avast > antivirus. > www.avast.com <https://www.avast.com/antivirus> > > > > >
re-CMO - Copy.xlsb
Description: application/vnd.ms-excel.sheet.binary.macroenabled.12
