[已解决]求查找工作表存不存在的宏

010203400

1. Sub test()
   
2. If find.(sheets("abc")).selcet is nothing then Else
   
3. ActiveWindow.SelectedSheets.Delete
   
4. End sub

复制代码

我想要用宏查找一下，是否存在abc這個工作表，有就刪除。
以上，是我寫的，但不行，請幫心寫一段正確的宏，感謝。

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-9-20 09:20

010203400 发表于 2013-9-20 08:58
你好，我將這個代碼插入我的宏中，當工用簿中不存在abc工作表時，就會跳過這段代碼，這個OK ；
但當如果 ...

那就话是统计工作表的个数在

跳转到最佳答案楼层

我心飞翔410

详见五楼

010203400

010203400 发表于 2013-9-20 08:58
你好，我將這個代碼插入我的宏中，當工用簿中不存在abc工作表時，就會跳過這段代碼，這個OK ；
但當如果 ...

我知道了，1 To Sheets.Count，是指這個工作簿中的所有sheets，對嗎？

我心飞翔410

010203400 发表于 2013-9-20 08:58
你好，我將這個代碼插入我的宏中，當工用簿中不存在abc工作表時，就會跳過這段代碼，這個OK ；
但當如果 ...

那就话是统计工作表的个数在

010203400

我心飞翔410 发表于 2013-9-20 09:20
那就话是统计工作表的个数在

Option Explicit
請問一下，這個的作用是什么，因為我沒有在我的宏前面加上這個，
【Application.DisplayAlerts = False】也可以產生作用，沒有跳出提示框。

另外，你增加了Next X，這個作用是不是，當有abc被刪除時，就重新定義X在1 To Sheets.Count的範圍？

我心飞翔410

010203400 发表于 2013-9-20 10:04
Option Explicit
請問一下，這個的作用是什么，因為我沒有在我的宏前面加上這個，
【Application.Displ ...

for x= 1 to     这个是循环结构语句
next x