按条件隐藏多个工作表，谢谢大神指点！

wk88168 · 发表于 2020-2-25 14:38

本帖最后由 wk88168 于 2020-2-25 14:40 编辑

求VB的公式，要求：点击“按钮1”时，如果B列的单元格为“×”时对应的工作表为隐藏，反之则为显示。如B6=“×”时AC这个工作表为隐藏，B6=“√”时AC这个工作表为显示。如B7=“×”时DE这个工作表为隐藏，B7=“√”时DE这个工作表为显示。如B8=“×”时IJ这个工作表为隐藏，B8=“√”时IJ这个工作表为显示。以此类推所有的工作表都要在此公式内反应。

gbgbxgb · 发表于 2020-2-25 14:44

直接双击A列的代表工作表名称的单元格内容不就行了，整那么个按钮必要吗？
即若隐藏的，双击后则显示，反之，则隐藏。

shenjianrong163 · 发表于 2020-2-25 14:49

Sub 按钮1_Click()
Dim i, arr
Sheets("Sheet18").Activate
arr = Range("A6:B" & Cells(Rows.Count, 2).End(xlUp).Row)
For i = 1 To UBound(arr)
If arr(i, 2) = "√" Then
Sheets(arr(i, 1)).Visible = True
Else
Sheets(arr(i, 1)).Visible = False
End If
Next
End Sub

复制代码

wk88168 · 发表于 2020-2-25 14:49

gbgbxgb 发表于 2020-2-25 14:44
直接双击A列的代表工作表名称的单元格内容不就行了，整那么个按钮必要吗？
即若隐藏的，双击后则显示，反 ...

大神，按钮不是关键！你忽略吧，主要是代码要怎么写才能实现想要的效果，谢谢！

shenjianrong163 · 发表于 2020-2-25 14:50

请参考附件：

工作簿1.rar (25.7 KB, 下载次数: 8)

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

[求助] 按条件隐藏多个工作表，谢谢大神指点！