[已解决]显示指定的工作表

暗夜男 · 发表于 2016-1-26 08:49

工作簿里面有多个工作表,按要求显示不同的工作表

比如一共9个工作表

只显示123,隐藏4-9

只显示56789,隐藏1-4

最佳答案

爱疯

2016-1-26 10:09

Sub test1()
Call show("老虎|狮子")
End Sub

Sub test2()
Call show("大象|企鹅|兔子")
End Sub

Sub show(str)
Dim arr, i%
Application.ScreenUpdating = False
Call allHidden
arr = VBA.Split(str, "|")
For i = 0 To UBound(arr)
Sheets(arr(i)).Visible = -1
Next i
End Sub

Private Sub allHidden()
Dim i%
For i = 2 To Sheets.Count
Sheets(i).Visible = 0
Next
End Sub

显示指定工作表2.rar (14.25 KB, 下载次数: 8)

sry660 · 发表于 2016-1-26 09:25

Sub 显示1到3隐藏4到9()
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Index > 3 Then
Sh.Visible = False
End If
Next
End Sub
Sub 显示5到9隐藏1到4()
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Index < 5 Then
Sh.Visible = False
End If
Next
End Sub
Sub 全部工作表显示()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Visible = True
Next
End Sub

复制代码

暗夜男 · 发表于 2016-1-26 09:28

sry660 发表于 2016-1-26 09:25

= = 感谢大侠,我的描述让您产生歧义了

1-9的表名只是举例子,实际上是:大象,老虎,狮子,恐龙之类的不规则命名

sry660 · 发表于 2016-1-26 09:33

暗夜男发表于 2016-1-26 09:28
= = 感谢大侠,我的描述让您产生歧义了

1-9的表名只是举例子,实际上是:大象,老虎,狮子,恐龙之类的不规则 ...

那就请传附件吧

暗夜男 · 发表于 2016-1-26 09:39

sry660 发表于 2016-1-26 09:33
那就请传附件吧

好哒~

显示指定工作表.rar (9.81 KB, 下载次数: 5)

sry660 · 发表于 2016-1-26 09:51

暗夜男发表于 2016-1-26 09:39
好哒~

Sub 显示老虎狮子()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In Worksheets
Sh.Visible = True
Next
For Each Sh In Worksheets
If Sh.Name <> "动物园" And Sh.Name <> "老虎" And Sh.Name <> "狮子" Then
Sh.Visible = xlSheetVeryHidden
End If
Next
Application.ScreenUpdating = True
End Sub
Sub 显示大象企鹅兔子()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In Worksheets
Sh.Visible = True
Next
For Each Sh In Worksheets
If Sh.Name <> "动物园" And Sh.Name <> "大象" And Sh.Name <> "企鹅" And Sh.Name <> "兔子" Then
Sh.Visible = xlSheetVeryHidden
End If
Next
Application.ScreenUpdating = True
End Sub
Sub 显示所有工作表()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In Worksheets
Sh.Visible = True
Next
Application.ScreenUpdating = True
End Sub

复制代码

爱疯 · 发表于 2016-1-26 10:09

Sub test1()
Call show("老虎|狮子")
End Sub

Sub test2()
Call show("大象|企鹅|兔子")
End Sub

Sub show(str)
Dim arr, i%
Application.ScreenUpdating = False
Call allHidden
arr = VBA.Split(str, "|")
For i = 0 To UBound(arr)
Sheets(arr(i)).Visible = -1
Next i
End Sub

Private Sub allHidden()
Dim i%
For i = 2 To Sheets.Count
Sheets(i).Visible = 0
Next
End Sub

显示指定工作表2.rar (14.25 KB, 下载次数: 8)

暗夜男 · 发表于 2016-1-26 10:22

sry660 发表于 2016-1-26 09:51

感谢

请问这个if有没有限制? 假如我有几百个表,是不是会失效?

If Sh.Name <> "动物园" And Sh.Name <> "大象" And Sh.Name <> "企鹅" And Sh.Name <> "兔子"

复制代码

sry660 · 发表于 2016-1-26 10:25

暗夜男发表于 2016-1-26 10:22
感谢

请问这个if有没有限制? 假如我有几百个表,是不是会失效?

如果按照你现在的显示要求，是没有问题的

暗夜男 · 发表于 2016-1-26 10:28

爱疯发表于 2016-1-26 10:09
Sub test1()
Call show("老虎|狮子")
End Sub

这个通俗易懂= =感谢

		自动登录	找回密码
密码			注册