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

[µo°Ý] (µo°Ý)¡¹³s§Rn­Ó¤u§@ªí½d¨Ò°ÝÃD

¦^´_ 3# yagami12th
§Ú¤]¨Ó´£¨Ñ¤@­Ó¡A¦Û°Ê§P§O¦³´X­Ósheet¡A§R°£¨ì¥u³Ñ1­Ó¡A¦]¬°¦pªG³s³Ì«á¤@­Ó¤]§R°£¡AÀÉ®×·|Ãö³¬°_¨Ó
Sub DeleteSheets()
Dim SheetsCount As Integer
SheetsCount = Application.Sheets.Count
Application.DisplayAlerts = False
If SheetsCount > 1 Then
    For i = 1 To SheetsCount - 1
        Sheets(1).Delete
    Next i
End If
Application.DisplayAlerts = True
End Sub

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD