ªð¦^¦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 : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD