Question

excel能不能通过VB实现：当某个特定单元格为特定值时，自动显示或隐藏某些工作表？

RT
如果可以，如何实现？没有用过，求具体操作方法，谢谢！

举例：sheet1工作薄A1单元格内数据为“是”的时候，sheet2、sheet3、sheet4工作薄自动隐藏，sheet5、sheet6、sheet7自动显示；如果不是"否"的时候，sheet2、sheet3、sheet4工作薄自动显示，sheet5、sheet6、sheet7自动隐藏。

Answer 1

If Sheet1.[a1] = 2 Then'假碰老如sheet1的A1单元格的值为2（特定值）
Sheet1.Visible = xlSheetVisible　'sheet1显示
Sheet2.Visible = xlSheetHidden　'sheet2隐藏
Sheet3.Visible = xlSheetHidden　笑伍升橘颂'sheet3隐藏
End If

Answer 2

Private Sub Workbook_Open()
   扮谨 For Each ws In Worksheets
        If ws.Range("A1") = 1 Then ws.Visible = False
   冲谈 散缺碰Next
End Sub

追问

请问这个意思是如果如果sheet1工作薄里A1单元格是1，则sheet1工作薄隐藏的意思吗

追答

打开工作簿时，逐个循环检查所有工作表，如果工作表A1的单元格是1就隐藏这个工作表