在excel中sheet1设置几个按扭,每个按扭分别可打开sheet2,sheet3、、
2个回答
展开全部
简单 选中sheet1中任意一表格 右键--超链接--本文档中位置---选sheet2或sheet3--确认 就可以了 快去试试 不懂就问 给分 哈哈
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用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
设置一个按钮,指定一个宏,宏里的代码就是:
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表。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询