在excel中sheet1设置几个按扭,每个按扭分别可打开sheet2,sheet3、、

我想在表中设置这些按扭后,把子表都删除,(不显示子表),直接在总表上点击按扭即可操作子表就行... 我想在表中设置这些按扭后,把子表都删除,(不显示子表),直接在总表上点击按扭即可操作子表就行 展开
 我来答
boy11121113
2011-12-23 · 超过16用户采纳过TA的回答
知道答主
回答量:55
采纳率:0%
帮助的人:37.1万
展开全部
简单 选中sheet1中任意一表格 右键--超链接--本文档中位置---选sheet2或sheet3--确认 就可以了 快去试试 不懂就问 给分 哈哈
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
wfgdz
2011-12-23 · TA获得超过736个赞
知道小有建树答主
回答量:437
采纳率:93%
帮助的人:194万
展开全部
用VBA。
设置一个按钮,指定一个宏,宏里的代码就是:
sheets(2).delete
这就删掉2表了。以此类推。
如果你想一次除SHEET1之外全删掉,可以:
Dim Sh
For Each Sh In Worksheets
If Sh.Name <> "sheet1" Then 'sheet1为表1的名字
Sh.Delete
End If
Next
追问
这位老师,您可能误会我的意思了,由于子表太多了,不想全部显示出来,就像在插入对象里插入的表可以不跟原表链接一样,希望能不在表中显示子表,直接在总表里点击按扭就可以对子表进行操作,请您赐教,谢谢
追答
不过如果想简单处理的话,那还是选用上面那位大哥的答案吧,简洁多了。
如果你想复杂点,像隐藏再显示之类的,还是可以用VBA操作一下的:
做一个按钮用于全部隐藏:
Dim Sh
For Each Sh In Worksheets
If Sh.Name "sheet1" Then 'sheet1为表1的名字
if Sh.Visible then
Sh.Visible=false
else
Sh.Visible=true
end if
End If
Next
注一下:这里可以实现点一下全部显示,再点一下全部隐藏。
另做一个按钮,用在显示的时候:
sheets(2).Visible=true
sheets(2).select
range("a1").select
注意:这里只显示2表,然后再选择打开2表。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式