µLªkÁôÂÃ

plyl

1. Private Sub Áô_Click()
   
2. Dim STATUS As Integer  
   
3. STATUS = 0            
   
4. If Áô.Caption = "Áô" Then Sheets("¬ö¿ý").Columns("E:BH").Hidden = True: STATUS = 1: Áô.Caption = "²{"
   
5. If Áô.Caption = "²{" And STATUS = 0 Then Sheets("¬ö¿ý").Columns("E:CC").Hidden = False: Áô.Caption = "Áô"
   
6. End Sub

½Æ»s¥N½X

Columns("E:BH"). §ó§ïColumns("E:FN"). ´NµLªkÁôÂÃ

plyl

GBKEEª©¥D ¨¯­W±z¤F!¤p§Ì¥Ñ°J·PÁÂ

plyl

±NÀx¦s®æªºµù¸Ñ  ->«öÅã¥Üµù¸Ñ->±N«ü¼Ð²¾¨ìª«¥óªºÃä½t¡Aª½¨ì«ü¼ÐÅܦ¨©P³ò¦³¥|­Ó¤p¶Â¦â½bÀY->§Ö«ö¨â¤U->¶i¤Jµù¸Ñ®æ¦¡->ºK­n¸ê°T¯Á¤Þ¼ÐÅÒ->«ö¤@¤U [¤j¤p¦ì¸mÀHÀx¦s®æ¦ÓÅÜ]¡AµM«á«ö¤@¤U [½T©w]¡C
¥H¤W°ÝÃD´N¸Ñ¨M¤F

oobird  & GBKEEª©¥D ¨¯­W±z¤F!¤p§Ì¥Ñ°J·PÁÂ