ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤@­Ó«ö¶s¡A¬O§_¥i¥H¤Á´«VBA¥\¯à

[µo°Ý] ¤@­Ó«ö¶s¡A¬O§_¥i¥H¤Á´«VBA¥\¯à

Dear all,
§Ú¦³»s§@ÁôÂáB¨ú®øÁôÂëö¶s¡C
·Q½Ð±Ðªº¬O¡A¬O§_¥i¥H§â³o¨â­ÓVBA»yªk¡A¼g¦¨¤@­Ó
Åý¤@­Ó«ö¶s¥h°õ¦æÁôÂÃ/¨ú®øÁôÂÃ

Excel_VBA-«ö¶s2­ÓVBA»yªk.rar (15.54 KB)
Just do it.

¦^´_ 1# jsc0518
¸Õ¬Ý¬Ý

    test1.xlsm.zip (18.91 KB)

TOP

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
   Cancel = True
   With Range("C:C").EntireColumn
        .Hidden = (.Hidden <> True)
   End With
End If
End Sub

¦bA1Âù«ö¥ªÁä, ¦Û°Ê¤Á´«~~

TOP

¦^´_ 3# ­ã´£³¡ªL
Dear ­ã´£³¡ªL,
·PÁ±zªº¼ö¤ß¦^ÂлP«ü¾É¼Ú¡A¶W«K§Qªº»yªk¡I
·P®¦¡I ^^
Just do it.

TOP

¦^´_ 2# cody
Dear cody,
·PÁ±zªº¦^ÂмڡI¥i¥H¥Î¡A·P®¦¡I¡I
^^
Just do it.

TOP

¦^´_ 5# jsc0518

Excel_VBA-«ö¶s2­ÓVBA»yªk v1.zip (22.51 KB)

TOP

¦^´_ 6# singo1232001
Dear singo1232001,
¤È¦w¡A±z¦n¡I·PÁ±z©Ò´£¨ÑªºVBA¡A¥i¥H¨Ï¥Î¼Ú¡AÁÂÁ±z¡I:P
Just do it.

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD