15在考生文件夹下新建一个Excel工作簿，完成以下操作：（1）在原有的3个工作表Sheet1、Sheet2和Sheet3
15在考生文件夹下新建一个Excel工作簿，完成以下操作：（1）在原有的3个工作表Sheet1、Sheet2和Sheet3的基础上，在后面依次插入工作表Sheet4、Sheet5和Sheet6。（2）然后依次删除工作表Sheet2、Sheet4和Sheet6，并使保留下来的工作表Sheet1、Sheet3和Sheet5的标签依次为蓝色、黄色和红色。完成以上操作后将该工作簿以prac5.xls为文件名保存到考生文件夹下。
正确答案：操作提示：①通过相应操作进入Excel主界面，将新打开的工作簿文件另存为考生文件夹下的名为prac5.xls的工作簿文件；②通过右键单击表标签Sheet3，打开快捷菜单，从中选择插入，依次操作3次将在Sheet3前插入3个工作表，其默认表名分别为Sheet4、Sheet5和Sheet6；③单击并拖曳表标签Sheet3，使之移动到Sheet4的前面；④依次在表标签Sheet2、Sheet4和Sheet6上打开快捷菜单，从中选择“删除”，将删去这些工作表；⑤最后在留下的工作表的标签中使用快捷菜单改变标签颜色。⑥保存文件。查看: 1179|回复: 5
如何用代码删除深度隐藏的工作表？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: 水星钓鱼
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 2013&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 水星钓鱼 于
13:43 编辑
Q：如下图所示，
图1.png (10.03 KB, 下载次数: 0)
13:38 上传
sheet2、sheet3两个工作表的Visible属性被设置为xlSheetVeryHidden(即深度隐藏，不能通过右键工作表标签来取消隐藏），现在需要在sheet1中通过代码删除除本身工作表之外的所有其余工作表
A：当在sheet1运行以下代码时
Sub xyf()
& & Dim oWK As Worksheet
& & Application.DisplayAlerts = False
& &&&For Each oWK In ThisWorkbook.Worksheets
& && &&&If oWK.Name && Me.Name Then
& && && && & oWK.Delete
& && &&&End If
& & Next
& & Application.DisplayAlerts = True
End Sub复制代码会弹出如图所示的错误
2.png (8.01 KB, 下载次数: 0)
13:38 上传
原因就是有两个工作表被深度隐藏了。
为了删除深度隐藏的工作表可以这样修改代码
Sub xyf()
& & Dim oWK As Worksheet
& & Application.DisplayAlerts = False
& &&&For Each oWK In ThisWorkbook.Worksheets
& && &&&If oWK.Name && Me.Name Then
& && && && &oWK.Visible = xlSheetHidden
& && && && & oWK.Delete
& && &&&End If
& & Next
& & Application.DisplayAlerts = True
End Sub
复制代码
(8.72 KB, 下载次数: 12)
13:43 上传
点击文件名下载附件
思路巧妙:)
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
学office，哪能不关注全网最大的Office类微博（新浪）
中级二, 积分 928, 距离下一级还需 122 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学习，思路转换就在一瞬间
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
oWK.Visible = xlSheetHidden复制代码
原来加多这句就可以了
学office，哪能不关注全网最大的Office类微博（新浪）
初级三, 积分 413, 距离下一级还需 87 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byoffice练习
excel操作题目
1.在A列把名次按照1、2、3...的顺序填好2.把C列填入班级“98检验”
1.B1：B99顺序填充学号102 090103...090199。2.从A1单元格开始向下填充7月和8月所有工作日日期。
1.sheet1工作表：F2：K64所有空的单元格填充为“良”。2.sheet2工作表从A1单元格开始向下隔行输入1 2 3 ... 100。
1.在A1:A99顺序填充
...。2.在B1:B90按年顺序填充
1.在A1:A90顺序填充1910年第1学年 1911年第1学年 1912年第1学年...1999年第1学年。2.在B1:B99顺序填充99 98 97 ... 1。
1.工作表“sheet1”改名为“第一学期”2.在工作表“sheet2”右侧插入新的工作表“sheet4”
1.在B1单元格填入“040101”，在B4单元格填入“031869”2.把工作表“sheet1”“sheet3”删除。
1.sheet1 工作表标签改为红色。2.sheet2 工作表隐藏。
1.sheet2 工作表标签改为浅橙色。2.sheet3 工作表取消隐藏。
1.把A1:J60区域设置为字号10pt，斜体效果，文字蓝色。2.“物理”和“生物”两列互换。
1.把第一行删除2.在C列右侧插入空列
1.将sheet2中A1:F10内容移动到G1:L10。2.将sheet1工作表K3:K61的数值复制到M3:M61(只复制数值，不复制公式)。
1.将sheet2中A1:E5内容行列互换放置到sheet3中A1开始。2.把sheet1工作表A1:D20区域内容复制到sheet2工作表B10:E29区域。
1.把sheet1中D2:D58区域设置为小数点后2位。2.把sheet2工作表把C5:C80区域设置为货币符号￥，负数第三种，小数位数1。
1.把A2:A31区域数字格式设置为文本。2.把D2:D31区域日期格式设置为“2001年3月”样式
1.sheet1在D2:D31日期格式更改为"yyyy-mm-dd"2.sheet2将学生的学号设置为302 ...
1.sheet1在所有学生的姓名前加入“（2010护理2）”字样。2.sheet2班级修改为2010级1班，2010级2班 字样。
1.sheet1 K2:K60隐藏公式，C2:J60解除锁定。2.sheet1 设置工作表保护：允许设置单元格格式，允许排序。
1.sheet1 A2单元格设置斜下方向斜线表头。2.sheet2 把D2:D58区域对齐方式设置为垂直居中。
1.sheet1 A1:F1对齐方式设置为跨列居中。2.sheet2 把D1对齐方式设置为自动换行。
1.把sheet1工作表 A1:G2区域合并单元格。2.把sheet2工作表B、C列调整为最合适列宽。(参照最宽内容)
1.sheet1工作表B、C列隐藏。2.sheet2工作表显示6、7、8行。
1.把sheet2工作表2-61行行高都设置为21。2.把sheet2工作表:将A1单元格“成绩单”之后另起一行。
1.把A1:E10区域所有框线 线条样式设置为第一列第二种(“无”为第一种)、颜色为蓝色。2.把A1:E1区域设置为黄底，蓝字。
1.sheet1把A1:F10区域自动套用格式“彩色2”。2.sheet2把A1:E1区域拆分为5个单元格。
1.sheet1 18行到最后一行隐藏。2.sheet1 P列到最后一列隐藏。
1.把B3:B11区域设置条件格式：数值在90－70之间的设置为文字加粗。2.把E3:E11设置条件格式：90分（含90）以上底色淡蓝，60分以下文字红色（按顺序设置条件）
1.sheet1A1:L100 设置间隔底色，双行背景设置为“浅青绿”2.sheet2删除C2:I34所有条件格式
1.sheet1 设置打印标题第一行。2.sheet1 设置打印网格线。
1.sheet1 设置打印区域A5-P15。2.sheet1 加入中页眉“吉林卫校”。
1.sheet1 纸张大小设置为A4，纸张方向横向。2.sheet1 纸张上下边距设置为2厘米，打印页面水平居中
1.将C2:F60数据有效性设置为0-100之间小数。2.将C2:F60数据有效性设置为输入信息标题为：“请输入小数”，输入信息内容为：“0-100之间”
1.将G2:J60数据有效性设置为只能输入“优,良,中,及,不及”。2.将G2:J60数据有效性设置为出错警告标题为：“出错了”，错误信息内容为：“只能输入指定字符”
1.sheet1工作表：使用函数计算每个学生所有科目的平均分（必须使用函数,并且使用“:”从左到右书写范围）2.sheet2工作表：计算平均利润： 平均利润=(预计收入-种子单价)/总时间(按顺序书写公式)
1.sheet1工作表:使用函数计算每个学生"经政" "无机" "数学" "体育" 的和。（必须使用函数,并且使用“:”从左到右书写范围）2.sheet2工作表:平均经验 平均经验=收获经验*收获次数/总时间(按顺序书写公式)
1.sheet1工作表：使用函数计算每个学生"经政"和"体育"两科 的平均分（必须使用函数,从左到右书写范围）2.sheet2工作表：使用公式计算折后价：折后价＝总值×折扣率。
1.sheet1工作表：使用函数计算每个学生"口语"和"听力"两科 的总分（必须使用函数,从左到右书写范围）2.sheet2工作表：计算函数值，按给定顺序书写公式。
1.sheet1计算班费累计支出2.sheet2计算金牌数占总金牌数的百分比（金牌总数放在C89）
1.sheet1计算每个选手的最高分、最低分2.sheet1计算有效裁判数
1.sheet1工作表计算：C61计算数学及格的人数，C62计算数学不及格的人数2.sheet2最小利润公式：预计收入的60%-种子单价，若大于或等于0为“赚钱”，若小于0为“赔钱”
1.sheet1在K2:N6计算四科考查课的各分数段的人数2.sheet2在C列计算每个学生的排名情况(降序)
1.sheet1根据出生日期计算年龄2.sheet2根据身份证号提取性别
1.sheet1 B35:H35计算各科目及格率，缺考算不及格。2.sheet2 在E列设置邮件合并的照片位置。照片的绝对地址是“D:\邮件合并”文件夹，照片文件按照学号命名(扩展名:jpg)。
1.sheet1表中对“无机”按照由高到低进行排序。2.sheet2表中使用自动筛选 筛选“成绩”大于70，并且“系别” 为“计算机” 的所有记录。
1.sheet1表中
筛选“课程”名称为“多媒体技术”或者“人工智能”的课程。2.sheet2表中“总分”作为主要关键字，“数学”作为次要关键字按照由高到低的顺序进行排序。
1.sheet1 按姓名笔画由少到多排序2.sheet2按职务排序：总经理，经理，科长，科员
1.sheet1筛选出所有姓“林”的歌手2.sheet2筛选日期为7月中旬（11日—20日）的所有记录
1.sheet1 筛选“正常人体学”高于或等于80分，或者“微机”是“优” 。在原有区域显示筛选结果。2.sheet2 筛选性别男84分以上(含84），性别女75分以上（含75）的所有记录。在原有区域显示筛选结果。
1.sheet1 分类汇总：分类字段：购买人(升序)，汇总方式：求和，汇总项目：数量和总值2.sheet2 取消分类汇总
1.将图表类型更改为：簇状柱形图。2.将图表区格式更改为：红色边框，浅黄色底色。
1.加入图表标题：“东方商厦彩电销售表”。2.将“长虹”系列更改为蓝色。
1.删除图表中“长虹”系列。2.使图表显示数据表。
1.将绘图区背景设置为浅青绿，边框设置为红色。2.使图表显示图例，图例的边框线条样式设置为最后一种。
1.设置分类轴标题“月份”，数值轴标题“彩电品牌”。2.图表加入分类轴和数值轴，并设置数值轴主要刻度单位60，次要刻度单位20。