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

jsc0518

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

¤U¸ü (88.11 KB)

2021-7-6 12:12

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

¤U¸ü¦¸¼Æ: 15

2021-7-6 12:12

jsc0518

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

singo1232001

¦^´_ 5# jsc0518

jsc0518

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

jsc0518

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

­ã´£³¡ªL

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Âù«ö¥ªÁä, ¦Û°Ê¤Á´«~~

cody

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

    test1.xlsm.zip (18.91 KB)

¤U¸ü¦¸¼Æ: 13

2021-7-6 15:58