通过宏显示命名与单元格内容相同的工作表

kangyunde · 发表于 2023-3-9 08:33

求助大神们,见附件

佛山小老鼠 · 发表于 2023-3-9 08:43

Option Explicit
Private Sub Worksheet_Change(ByVal T As Range)
Dim x%
If T.Row = 2 And T.Column = 1 Then
For x = 2 To Sheets.Count
Sheets(x).Visible = 0
Next x
Sheets(T.Value).Visible = 1
End If
End Sub

复制代码

魚。。 · 发表于 2023-3-9 08:46

liulang0808 · 发表于 2023-3-9 08:48

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
      Sheets([a2].Value).Visible = True
      For Each sh In Sheets
         If sh.Name <> [a2] And sh.Name <> "Sheet1" Then sh.Visible = False
      Next
End If
End Sub

liulang0808 · 发表于 2023-3-9 08:49

附件内容供参考。。。。。。

zxsea_7426 · 发表于 2023-3-9 08:54

本帖最后由 zxsea_7426 于 2023-3-9 09:02 编辑

看来要多多学习啊。看到了二楼的代码才知道可以使用是否为sheet1来确定是否还保留一个工作表

kangyunde · 发表于 2023-3-9 12:01

魚。。发表于 2023-3-9 08:46

没有跳转到对应的工作表

魚。。 · 发表于 2023-3-9 12:35

kangyunde 发表于 2023-3-9 12:01
没有跳转到对应的工作表

Sheets([a2].Value).Select

复制代码

加一句

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

[求助] 通过宏显示命名与单元格内容相同的工作表

评分