[已解决]请求编写一个vba代码，打开一个工作表时，其它工作表隐藏

1091126096

从首页要能打开任何一个工作表，从任何工作表能返回首页，打开一个工作表时其它的工作表隐藏。

最佳答案

月排行榜 / 总排行榜

EXCEL-YQ

2011-8-27 02:28

Book1.zip (288.1 KB, 下载次数: 96)

2011-8-27 02:25 上传

点击文件名下载附件

代码在tihsworkbook和sheet1 里面

Thisworkbook代码：

1. Private Sub Workbook_Open()
   
2. Dim i%
   
3. For i = 2 To Sheets.Count
   
4. Sheets(i).Visible = 2
   
5. Next
   
6. End Sub

复制代码

Sheet1代码：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim i%
   
3. If Target.Row = 5 Then
   
4. If Target.Value <> "" Then
   
5. For i = 2 To Sheets.Count
   
6. If Sheets(i).Name = Target.Value Then
   
7. Sheets(i).Visible = 1
   
8. Sheets(i).Activate
   
9. Else
   
10. Sheets(i).Visible = 2
    
11. End If
    
12. Next
    
13. End If
    
14. End If
    
15. End Sub

复制代码

跳转到最佳答案楼层

EXCEL-YQ

Book1.zip (288.1 KB, 下载次数: 96)

2011-8-27 02:25 上传

点击文件名下载附件

代码在tihsworkbook和sheet1 里面

Thisworkbook代码：

1. Private Sub Workbook_Open()
   
2. Dim i%
   
3. For i = 2 To Sheets.Count
   
4. Sheets(i).Visible = 2
   
5. Next
   
6. End Sub

复制代码

Sheet1代码：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim i%
   
3. If Target.Row = 5 Then
   
4. If Target.Value <> "" Then
   
5. For i = 2 To Sheets.Count
   
6. If Sheets(i).Name = Target.Value Then
   
7. Sheets(i).Visible = 1
   
8. Sheets(i).Activate
   
9. Else
   
10. Sheets(i).Visible = 2
    
11. End If
    
12. Next
    
13. End If
    
14. End If
    
15. End Sub

复制代码

WUPIFANG

回复 EXCEL-YQ 的帖子

牛B{:101:}

1091126096

回复 EXCEL-YQ 的帖子

谢谢。感谢您的辛勤劳动。

EXCEL-YQ

不客气，你评了最佳答案也是对我的认可。