'Jadi sebelum mulai kegiatan memfilter data, bukankah harus didahului
membuat semua kolom terhidden kecuali nama dan jabatan ?
With Sheet3
.AutoFilterMode = False
.Range("B:B,D:M").EntireColumn.Hidden = True
'Setelah itu, apapun pilihan user, sebelum ada autiofilter, harus didahului
meng-unhide (set hidden) kolom yang akan difilter ?
With Sheet3
.AutoFilterMode = False
If cmbMIN1.ListIndex = "interpersonal" Then
.Range("D:D").EntireColumn.Hidden = False
ElseIf cmbMIN1.ListIndex = "intrapersonal" Then
.Range("E:E").EntireColumn.Hidden = False
ElseIf cmbMIN1.Text = "Imajinasi Konseptual" Then
.Range("F:F").EntireColumn.Hidden = False
End If
-
-
End with
Ga berhasil, kayanya logikanya salah :'( sahur dulu nanti lanjut lagi
________________________________
From: Kid Mr. <[email protected]>
To: [email protected]
Sent: Sunday, July 22, 2012 2:43 AM
Subject: Re: [belajar-excel] Filter dari Database
Kira-kira, alur logika autofilter yang sudah ada seperti apa ?
Bukankah yang di autofilter harus tampil (tidak hidden) dan yang lainnya harus
di-hidden kecuali nama dan jabatan ?
Jadi sebelum mulai kegiatan memfilter data, bukankah harus didahului membuat
semua kolom terhidden kecuali nama dan jabatan ?
Setelah itu, apapun pilihan user, sebelum ada autiofilter, harus didahului
meng-unhide (set hidden) kolom yang akan difilter ?
Kira-kira, dengan alur logika seperti di atas, bunyinya akan bagaimana ?
Kid.
2012/7/22 lapendosol opik <[email protected]>
>
>Interpersonal D:D
>Intrapersonal E:E
>Imajinasi Konseptual F:F
>Rasional Logika G:G
>Motorik Halus H:H
>Motorik Kasar I:I
>Auditori Musikal J:J
>Auditori Linguistik K:K
>Seni Pengamatan L:L
>Tehnik Pengamatan M:M
>Bayangan saya seperti ini mas Kid, tapi ga tau bahasa programnya.
>
> 'yang di hidden saya ganti B:B,D:M
>
> .AutoFilterMode = False
>
> .Range("b:b,D:M").EntireColumn.Hidden = True
>
> 'kemudian yang ga di hidden:
> 'jika cmbMIN1.ListIndex = "Interpersonal" maka
>.Range("D:D").EntireColumn.Hidden = False
> 'jika cmbMIN2.ListIndex = "Intrapersonal" maka
>.Range("E:E").EntireColumn.Hidden = False
> 'jika cmbMIN3.ListIndex = "Imajinasi Konseptual" maka
>.Range("F:F").EntireColumn.Hidden = False
>
>
Ajarin saya bahasa programnya mas, mau saya coba seperti itu
>Trimakasih
>
>
>________________________________
> From: Kid Mr. <[email protected]>
>To: [email protected]
>Sent: Sunday, July 22, 2012 2:03 AM
>
>Subject: Re: [belajar-excel] Filter dari Database
>
>
>
>
>Coba diatur yang di-hidden dan yang tidak di-hidden sesuai pilihan user
>
>Kid.
>
>
>
