ªð¦^¦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 : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD