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

µLªkÁôÂÃ

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

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 ©ó 2011-3-24 12:28 ½s¿è

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

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD