生成与删除工作表

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.6.13
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     fn = [{"ABC","01","02","03","04"}]
   
6.     For i = 1 To UBound(fn)
   
7.         d(fn(i)) = ""
   
8.     Next
   
9.     Set ws = ThisWorkbook
   
10.     On Error Resume Next
    
11.     Set sht = ws.Worksheets(fn(1))
    
12.     sht.Activate
    
13.     If Err.Number <> 0 Then
    
14.         Set sht = ws.Worksheets.Add(After:=ws.Worksheets(ws.Worksheets.Count))
    
15.         sht.Name = fn(1)
    
16.     End If
    
17.     For Each sht In ws.Sheets
    
18.         If Not d.exists(sht.Name) Then
    
19.             sht.Delete
    
20.         End If
    
21.     Next
    
22.     ws.Sheets("01").Activate
    
23.     Application.ScreenUpdating = True
    
24.     MsgBox "OK！"
    
25. End Sub
    

复制代码

opklnm1108

ykcbf1100 发表于 2024-6-13 08:50
工作表判断、工作表新建、工作表删除

非常感谢

opklnm1108

chxw68 发表于 2024-6-13 08:30
参与一下。

非常感谢

opklnm1108

chxw68 发表于 2024-6-13 08:30
参与一下。

好像不得可以咯

opklnm1108

ykcbf1100 发表于 2024-6-13 08:50
工作表判断、工作表新建、工作表删除

不需要按钮，是打开工作簿时，先判断是否有工作表“ABC”，如有，执行下一功能（或提示有），如没有，生成（或添加）一个工作表“ABC”后再执行下一功能。

Qs18

opklnm1108 发表于 2024-6-13 08:25
我的意思是在打开这个工作簿时判断。将代码写在一起

哦..........改一下就可以了

ykcbf1100

opklnm1108 发表于 2024-6-13 09:32
不需要按钮，是打开工作簿时，先判断是否有工作表“ABC”，如有，执行下一功能（或提示有），如没有，生 ...

你求助时可没这么说，你可以自己看看一楼的说明。

Qs18

opklnm1108 发表于 2024-6-13 08:25
我的意思是在打开这个工作簿时判断。将代码写在一起

Private Sub Workbook_Open()
Call dl
End Sub

Qs18

再试一下.......

opklnm1108

ykcbf1100 发表于 2024-6-13 08:51
参与一下。。。

可以了，非常感谢