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

Åýµ{¦¡¦Û°Ê¿ëÃÑ

¦^´_ 9# myleoyes
20~30­ÓÀx¦s®æ¬Ò¬°«ö¶s
20~30­ÓÀx¦s®æ¬O«ü­þùØ ?
½Ð§A»¡©ú¤@¤U³W«ß©Ê!

TOP

¦^´_ 10# register313
«e½ú!ÁÂÁÂ!!¥HÁôÂûP¨ú®ø¬°¨Ò
        Sub ÁôÂÃ()
            [Z:AT].EntireColumn.Hidden = True
        End Sub
        Sub ¨ú®øÁôÂÃ()
            [Z:AT].EntireColumn.Hidden = False
        End Sub
        »Ý­nÂI¿ï¨â­Ó(«ö¶s)Àx¦s®æ¨Ó
        ¨Ó¹F¨ìÁôÂûP¨ú®øªº¥\¯à
        ­Y¥[¤J[AE3]°Ñ·Ó´N¥i¥HÂI¿ï¦P¤@Àx¦s®æ
        ¦Ó¥Î«e½ú©Ò±Ð¾É¥ÎCheckBox¤Ä¿ï
        ¤è¦¡´N¥i¬Ù²¤[AE3]°Ñ·Ó¤£¬O§ó¦n¶Ü?
        ¦ý¬O¨Ì«e½úCheckBox¤Ä¿ï¤è¦¡
        »P­ì¨ÓÀÉ®×¥HÂI¿ïÀx¦s®æªº¤è¦¡
        ¬O¦³¨Ç®æ®æ¤£¤Jªº·Pı©O?
        ¦AÁ|¨Ò ±K½Xµ{¦¡
        Sub ±K½X()
Again:
      ZZ = Application.InputBox("¿é¤J±K½X", "½Ð¿é¤J¶}±Ò±K½X", Type:=1)
      [AE2] = ZZ
      If ZZ = False Then End
      If ZZ = 0 Then End
      If [AE1] <> [AE2] Then MsgBox "±K½X¿ù»~, ½Ð­«·s¿é¤J ¡I¡I": GoTo Again
      If [AE1] = [AE2] Then
      [Z:AT].EntireColumn.Hidden = False
      ActiveWindow.ScrollColumn = 15
End Sub
       ¤p§Ì¦]¬°¤£À´µ{¦¡¥u¯à¥Î¦¹²Â¤è¦¡¨Ó§@
       ¦]¦¹[AE1]»P[AE2]Àx¦s®æ´N¬O¦h¾lªº
       ­Y¥H«e½úªº¥\¤OÀ³¸Ó¤£¶·­n¥Î[AE1]»P[AE2]Àx¦s®æ
       °µ¬°°Ñ·Ó·Ó¼Ë¥i¥H¹F¨ì±K½Xµ{¦¡¥\¯à¤£¬O¶Ü?
       ¥i§_¦A«ü¾É³o­Ó±K½Xµ{¦¡«ç»ò¼g¤~¥¿½T©O?
       ¤£¦n·N«ä½Ð¦A¨¯­W§AÅo!ÁÂÁ¦A¤T!!

TOP

¦^´_ 11# GBKEE
¨}®v!¥H½d¨ÒÀɪºSheet15¨Ó»¡
       ­è¦n¦³40­ÓÀx¦s®æ¬Ò¬°«ö¶s  
       ¦U§O¤À°t±qA1:D4,E1,F1...µ¥µ¥¬Ò¬O
       ¥¦¨S¦³©Ò¿×ªº³W«ß©Ê¥u¬OÂI¿ï­þ¤@­Ó
       Àx¦s®æ,­þ¤@­Óµ{¦¡´N°õ¦æ
       ·íµM°Õ!¦³¨Çµ{¦¡·|¤@­Ó±µ¤@­Ó°õ¦æ
       ¦Ü©Ò»Ýªºµ²ªG,³o¨Çµ{¦¡©Ò¼g¦nÅo!
       ¤]¥i¥H¶¶§Q°õ¦æ,¥u¬O¤Ó¦hªº°Ñ·Ó
       »P«ö¶s±`±`·|§Ñ¤FÂI¿ï­þ¤@­Ó
       Àx¦s®æ,¬O°õ¦æ¬Æ»ò¥ô°È¦ÓÀYµh«¢«¢!!
       ©Ò¥H½ÐÂI¿ïB1,¦rÅ馨¥¿±`ÃC¦â
       ¦AÂI¿ïB1,¦rÅéÅܦ¨ÁôÂæâ©ÒÅã¥Üªº´N¬O
       µ{¦¡©Ò°õ¦æªº«ü¥O¦WºÙ,¦p¦¹¤@¨Ó
       ¤£ºÞÀɮ׸g¹L¦h¤[¨S¦³¨Ï¥Î¬Ò¥i¥H»´ÃPªº¾Þ§@
       ©Ò¥H´î¤Ö°Ñ·Ó»P«ö¶s´N·|¤ÖÀY¯k³o´N¬O¥»¦¸°Q½×ªºÄ³ÃDÁÂÁ¦A¤T!!

TOP

¦^´_ 13# myleoyes
¤Ó½ÆÂø¤F.

TOP

¦^´_ 14# GBKEE
¨}®v!¨¯­WÅo!
       ³o­Ó¨ú®øÁôÂõ{¦¡¤p§Ì¤w¸g§ä¨ì¦p¤U
       Sub ¨ú®øÁôÂÃ()
              Set myRng = [Z:AT]
              With myRng.EntireColumn
               .Hidden = Not .Hidden
              End With
              Set myRng = Nothing
             [B7].Select
       End Sub
            ÁÂÁ¦A¤T!!

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD