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