返回列表 上一主題 發帖

請教 for Each ..... Next 用法

有問題再發問吧!@@
  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
複製代碼

TOP

回復 3# JOSH


    COLO   這些事網頁不小心出現的 刪掉即可@@"
GB大大已回復您最好的答案@@

TOP

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題