Prosedur :
Sub HideUnhideKoloms()
' Rara Wilis * Jun 21, 2012
' BeExcel Case# 17696
'---------------------
With Columns("C:D")
If .EntireColumn.Hidden = True Then
.EntireColumn.Hidden = False
Else
.EntireColumn.Hidden = True
End If
End With
End Sub
'--------------------
bisa disederhanakan menjadi :
Sub HideUnhideKoloms()
' Rara Wilis * Jun 21, 2012
' BeExcel Case# 17696
'---------------------
Columns("C:D").Hidden = not Columns("C:D").Hidden
End Sub
'--------------------
Wassalam,
Kid.
2012/6/21 Rara Wilis <[email protected]>
> **
>
>
> Ya dengan cara memberi 2 kesempatan pada 2 kondisi berbeda; Ingat Fungsi
> IF kan ?
> IF itu bersifat Pencabangan; Misal:
> Kalau Filter sedang diaktifkan >>> *non aktifkan, *Kalau "TIDAK" >>> *
> aktifkan*
> Gak repot kan ?
>
> Pada saat mengaktifkan (memfilter); kriterianya harus berupa *nilai cell *yg
> di "dalamnya" tergambar TextBox "KLIK".
> Apakah Anda tahu: isi DATA DI CELL dimana TextBox-nya sedang di Klik ??
> Apalagi TextBox anda itu dengan mudah dapat digeser ke cell lain ! Dengan
> penglihatan mata ke sheet memang gampang menebak tetapi menyuruh Excel
> menebak isi Data cell yg belum jelas alamatnya, tentunya agak repot.
> Makro tentu saja bisa, akan tetapi lebih sederhana bila yg kita klik
> adalah CELL nya, Keuntungannya Anda tidak perlu repot membuat
> "TOMBOL-TOMBOL-an" di setiap unik item yg ada di kolom "Lokasi". Makro pun
> tidak perlu mencari "cell mana berisi apa" untuk dijadikan kriteria.
>
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> ' Rara Wilis * Jun 21, 2012
> ' BeExcel Case# 17696
> '---------------------
> If Target.Count = 1 Then
> If Target.Column = 2 Then
> If Target.Row > 4 Then
> If Not Target.Value = vbNullString Then
> *GantiFilterUnFilter* Target.Value
> End If
> End If
> End If
> End If
> End Sub
>
>
> Sub HideUnhideKoloms()
> ' Rara Wilis * Jun 21, 2012
> ' BeExcel Case# 17696
> '---------------------
> With Columns("C:D")
> If .EntireColumn.Hidden = True Then
> .EntireColumn.Hidden = False
> Else
> .EntireColumn.Hidden = True
> End If
> End With
> End Sub
> '--------------------
>
> ~Rr
>
>
>
>
> 2012/6/20 Absolute - Udin <[email protected]>
>
>> **
>> dear all
>> mau bertanya codenya utuk satu tombol dg dua perintah, keterangan & hasil
>> yg diinginkan ada di lampiran
>> terima kasih.
>>
>
>
