[已解决]是否显示工作表

学习E

Book1.zip (13.85 KB, 下载次数: 9)

2011-10-27 22:24 上传

点击文件名下载附件

B列写不显示的就隐藏工作表，如写显示的就不隐藏工作表。
b列可以修改。

谢谢各位

最佳答案

月排行榜 / 总排行榜

爱疯

2011-10-27 22:39

Private Sub 是否显示工作表_Click()
    Dim r, i
    r = Range("b65536").End(xlUp).Row
    For i = 2 To r
        If Sheets("目录").Cells(i, 2) = "显示" Then
            Sheets(Cells(i, 1).Value).Visible = True
        Else
            Sheets(Cells(i, 1).Value).Visible = False
        End If
    Next i
End Sub

跳转到最佳答案楼层

爱疯

Private Sub 是否显示工作表_Click()
    Dim r, i
    r = Range("b65536").End(xlUp).Row
    For i = 2 To r
        If Sheets("目录").Cells(i, 2) = "显示" Then
            Sheets(Cells(i, 1).Value).Visible = True
        Else
            Sheets(Cells(i, 1).Value).Visible = False
        End If
    Next i
End Sub

学习E

谢谢各位