用VBA选择与指定单元格内容同名的被隐藏的工作表

30409266 · 发表于 2011-9-16 23:53

在一个工作薄内有多个工作表，其中一个为主界面，我想通过在一个固定的单元中输入任意的工作表名来快速进入该工作表并且隐藏主界面，这个利用VBA怎样才可以做到？

doryan · 发表于 2011-9-17 00:17

本帖最后由 doryan 于 2011-9-17 00:20 编辑

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then
End
Else
Dim i$
i = Cells(1, 1) '这里表示的是主界面工作表中A1单元格的值赋值给变量i，既是你在A1单元格输入对应的表名，比如sheet2之类的，但必须是你其他表有的名字
Sheets("主界面").Visible = 0
Sheets(i).Visible = True
Sheets(i).Select
End If
End Sub

主界面对应的代码框里编写

30409266 · 发表于 2011-9-17 07:41

doryan 发表于 2011-9-17 00:17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address "$A$1" Then
End

非常感谢！

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