新建工作表的自动跳转问题

leolee95

sheets.add方法新建工作表时，会跳转到新建的表上，我需要一次新建10多张表，运行时，跳来跳去，新建时能不能呆在一张表上不要跳转，或者有什么方法让窗口不要这样闪，谢谢，帮忙下

lisachen

1. Sheets.Add After:=ActiveSheet, Count:=10

复制代码

leolee95

lisachen 发表于 2019-12-9 22:09

还是会跳啊。。没作用

lisachen

1. Sub AddSheets()
   
2.     Application.ScreenUpdating = False
   
3.     Sheets.Add After:=ActiveSheet, Count:=10
   
4.     Sheet1.Select
   
5.     Application.ScreenUpdating = True
   
6. End Sub

复制代码

lisachen

1. Sub AddSheets()
   
2.     Application.ScreenUpdating = False
   
3.     Set Sh = ActiveSheet
   
4.     Sheets.Add After:=Sh, Count:=10
   
5.     Sh.Select
   
6.     Application.ScreenUpdating = True
   
7. End Sub

复制代码

leolee95

lisachen 发表于 2019-12-9 22:30

多谢，完美解决