请教VBA高手！关于显隐工作表的问题！

来源：百度知道 编辑：UC知道 时间：2024/06/04 04:01:56
我想做一个目录，如图，我想在显隐这列设置一个下拉列表，当选择√
时，显示该工作表，当选择空白时，隐藏该工作表。比如说选择E7单元格里的√时，打开表1资产评估结果工作表，如果选择空白时，隐藏表1资产评估结果表。谢谢高手们了。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$E$7" Then
If Target.Value = "√" Then Sheets("表1资产评估结果表").Visible = True Else Sheets("表1资产评估结果表").Visible = False
End If
End Sub

这段代码应该放在工作表下面，具体操作步骤如下：
1、点击需要这个功能的工作表标签，
2、在标签上右键-查看宏，
3、将上面的代码复制到打开的窗口的右侧空白区域

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow, iCol As Integer
Dim x As String
iRow = Target.Row
iCol = Target.Column
If iRow >= 7 And iCol = 5 Then
Application.EnableEvents = False
Application.ScreenUpdating = False
On Error Resume Next
x = Cells(iRow, iCol - 2).Value
If Target.Value = "√" Then
ThisWorkbook.Worksheets(x).Visible = True
Else
ThisWorkbook.Worksheets(x).Visible = False
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
End Sub

已经回复你的邮件