Re: [belajar-excel] satu tombol utk perintah yang berlawanan

[Rara Wilis]

Sip,  Oom Kid, jadi semakin ringkas ya...

Matur nuwun..

~Rr




2012/6/21 Kid Mr. <mr.nm...@gmail.com>

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