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

½Ð±Ð for Each ..... Next ¥Îªk

¦³°ÝÃD¦Aµo°Ý§a!@@
  1. Sub Macro1()
  2. [color=Red]On Error GoTo restart[/color]
  3. Dim mysheet As Worksheet

  4. For Each mysheet In Worksheets

  5. Application.DisplayAlerts = False
  6. mysheet.Delete
  7. Application.DisplayAlerts = True

  8. Next
  9. [color=Red]restart:[/color]
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# JOSH


    COLO   ³o¨Ç¨Æºô­¶¤£¤p¤ß¥X²{ªº §R±¼§Y¥i@@"
GB¤j¤j¤w¦^´_±z³Ì¦nªºµª®×@@

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD