谁能帮我做一个EXCEL表格,里边有很多个工作表,打开时,只显示第一个工作表,其它工作表都隐藏
然后通过第一个工作表中的宏(设置为按钮)打开其它工作表,当然这时第一个工作表又自动隐藏,当返回第一个工作表时,其它工作表又自动隐藏,求哪位高手帮我做好发...
然后通过第一个工作表中的宏(设置为按钮)打开其它工作表,当然这时第一个工作表又自动隐藏,当返回第一个工作表时,其它工作表又自动隐藏,求哪位高手帮我做好发
展开
4个回答
展开全部
首先是打开工作簿事件,只留下第一个工作表显示,其他隐藏。
Private Sub Workbook_Open()
Dim she1 As Worksheet, i&
i = 1
For Each she1 In Worksheets
If she1.Index <> 1 Then
she1.Visible = 2 '不是第一个工作表,就隐藏
i = i + 1
With Sheets(1)
.Cells(i, 1) = she1.Name '建立工作表目录
End With
End If
Next she1
End Sub
在第一个工作表中建立单元格单击事件,显示对应的工作表,隐藏第一工作表
方法类似打开事件
Private Sub Workbook_Open()
Dim she1 As Worksheet, i&
i = 1
For Each she1 In Worksheets
If she1.Index <> 1 Then
she1.Visible = 2 '不是第一个工作表,就隐藏
i = i + 1
With Sheets(1)
.Cells(i, 1) = she1.Name '建立工作表目录
End With
End If
Next she1
End Sub
在第一个工作表中建立单元格单击事件,显示对应的工作表,隐藏第一工作表
方法类似打开事件
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你看看这个方法对你有用没有。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
还不如在A1单元格,写入1 打开第一个表,写入2打开第二个…………
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我家里有现成的。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询