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

µLªkÁôÂÃ

µLªkÁôÂÃ

  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

±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ÁÂ
plyl

TOP

¥H«e¦³¹L¬Û¦P§xÂZ
µù¸Ñª«¥ó³£­n³]¬°¤j¤p¦ì¸mÀHÀx¦s®æ¦ÓÅÜ´N¦æ¤F
http://support.microsoft.com/kb/211769/zh-tw

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-24 12:28 ½s¿è

¼Ó¥Dªº°ÝÃD :   ¥[¤Jµù¸Ñ  ÁôÂÃÄ榳®É ·|¦³ [µLªk±Nª«¥ó²¾¥X¤u§@ªí¥~] ªº¿ù»~  ,¬°¦ó·|¦p¦¹?
¤@¯ë¬O¦bÀɮתº³Ì¥kºÝ ©Î³Ì©³ºÝ ¿é¤J¤å¦r ¨¾¤î´¡¤J ¾ãÄæ©Î¾ã¦C .

TOP

¦^´_ 3# plyl
§AÀɮפ¤ªºª`¸Ñ°ÝÃD,§Ú¤£ª¾¹D­ì¦]¬°¦ó·|¤Þ°_, ÁôÂÃÄ檺¿ù»~.
©|»Ý°ª¤â¨Ó¸ÑÄÀ­ì¦].°õ¦æ¤U¦Cµ{¦¡§R°£ª`¸Ñ«á¥i¥¿±`¤F.
  1. Sub Ex()
  2.     Dim S As Object
  3.     For Each S In Sheets("¬ö¿ý").Shapes
  4.         If S.Name <> "Áô" And S.Name <> "Áô" Then S.Delete
  5.     Next
  6. End Sub
½Æ»s¥N½X

TOP

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

0324.rar (42.1 KB)

plyl

TOP

¦^´_ 1# plyl
¶ÇÀɤW¨Ó¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD