Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 275|回复: 5

[已解决] 新建工作表的自动跳转问题

[复制链接]
发表于 2019-12-9 22:01 | 显示全部楼层 |阅读模式
sheets.add方法新建工作表时,会跳转到新建的表上,我需要一次新建10多张表,运行时,跳来跳去,新建时能不能呆在一张表上不要跳转,或者有什么方法让窗口不要这样闪,谢谢,帮忙下
发表于 2019-12-9 22:09 | 显示全部楼层
  1. Sheets.Add After:=ActiveSheet, Count:=10
复制代码
回复

使用道具 举报

 楼主| 发表于 2019-12-9 22:18 | 显示全部楼层
回复

使用道具 举报

发表于 2019-12-9 22:28 | 显示全部楼层
  1. Sub AddSheets()
  2.     Application.ScreenUpdating = False
  3.     Sheets.Add After:=ActiveSheet, Count:=10
  4.     Sheet1.Select
  5.     Application.ScreenUpdating = True
  6. End Sub
复制代码
回复

使用道具 举报

发表于 2019-12-9 22:30 | 显示全部楼层
  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
复制代码

评分

参与人数 1学分 +2 收起 理由
leolee95 + 2

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2019-12-10 00:59 | 显示全部楼层

多谢,完美解决
回复

使用道具 举报

*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2020-9-20 04:53 , Processed in 0.060000 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表