- ©«¤l
- 21
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 27
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Tainan
- µù¥U®É¶¡
- 2012-1-3
- ³Ì«áµn¿ý
- 2013-2-28
|
¦^´_ 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 |
|