如何一次就能隐藏除指定工作表外的所有工作表Excel VBA程序开发Word格式.docx

资源描述

如何一次就能隐藏除指定工作表外的所有工作表Excel VBA程序开发Word格式.docx

《如何一次就能隐藏除指定工作表外的所有工作表Excel VBA程序开发Word格式.docx》由会员分享，可在线阅读，更多相关《如何一次就能隐藏除指定工作表外的所有工作表Excel VBA程序开发Word格式.docx（18页珍藏版）》请在冰豆网上搜索。

如何一次就能隐藏除指定工作表外的所有工作表Excel VBA程序开发Word格式.docx

成为Excel高手的捷径有奖征集Excel数据透视表行业应用案例EH技术社区资源在微软中国官网落地

大家来报料：

最牛的Excel用法！

#8249;

上一主题|下一主题&

#8250;

发新话题

收藏订阅推荐打印

[求助]如何一次就能隐藏除指定工作表外的所有工作表？

hits:

184

取消高亮gmts

初级二

积分

304

财富

740￥

技术

注册时间

2007-7-18

总积分排名

2515

发短消息

加为好友

1楼大中小发表于2008-12-323:

21只看该作者

★Excel服务器学习和下载园地★

附件

.rar（4.68KB）

2008-12-323:

21,下载次数:

UID

302014

帖子

199

精华

经验

262

威望

职业

教育工作者

行业

教育

阅读权限

性别

男

在线时间

83小时

查看详细资料引用使用道具报告回复TOP

LangQueS

版主

22199

43861￥

2006-5-10

2楼大中小发表于2008-12-323:

36只看该作者

★Excel行业应用系列视频课程精彩放送中★

[分享]★链接目录★...

replyID=&

skin=0★２５９个常用宏★★漫画连环画★

151593

21623

21759

100

180小时

3楼大中小发表于2008-12-323:

37只看该作者

请参考：

Sub隐藏表1以后全部工作表（）

DimiAsInteger

Fori=2ToSheets.Count

Sheets（i）.Visible=False

Nexti

EndSub★２５９个常用宏★★漫画连环画★

gmts

4楼大中小发表于2008-12-400:

44只看该作者

谢谢，但是，我当初做表时，主页放在sheet18，那怎么办？

5楼大中小发表于2008-12-400:

45只看该作者

★献给初学者：

《循序渐进学Excel》视频教程★

建议楼主发个附件。

★２５９个常用宏★★漫画连环画★

6楼大中小发表于2008-12-400:

我的附件好大哟，有近20M

7楼大中小发表于2008-12-400:

46只看该作者

★关注优秀会员评选与奖励计划★

所以要不断优化语句呢

[本帖最后由gmts于2008-12-400:

52编辑]

附件.rar（4.48KB）

2008-12-400:

52,下载次数:

8楼大中小发表于2008-12-400:

★ExcelHome技术社区2008第6期优秀会员名单揭晓！

★

打开工作簿自动隐藏录入表以外的其他表

Subauto_open（）

Dimi

Fori=1ToSheets.Count

IfSheets（i）.Name<

录入"

Then

EndIf

9楼大中小发表于2008-12-400:

54只看该作者

★EH梦之队新作《实战技巧精粹》2008版登场★

嗯，这办法好

查看积分策略说明

快速回复主题

选项

禁用URL识别

禁用表情

禁用Discuz!

代码

使用个人签名

接收新回复邮件通知

标题

内容

发表帖子[完成后可按Ctrl+Enter发布]预览帖子恢复数据清空内容

默认表情