激活由名工作表列表中的
问题描述:
我的每一个工作表的代表项目 在第一个工作表(“选择项目”)我已经创建了一个包含所有工作表的名称(单元格A3:A50)列表 在一个特定的细胞(E4),该工作表中,我从列表中 选择一个项目,我想用这个名字激活由名工作表列表中的
答
(细胞E4)来激活工作表将此代码添加到您的“选择项目” VBA模块:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E4")) Is Nothing Then
Dim projectName As Variant
projectName = [E4]
Sheets(projectName).Activate
End If
End Sub
此事件处理程序(当您的“选择项目”工作表中的任何值发生更改时触发)将检查是否它是单元格E4,它被改变了,如果是的话,它会根据这个单元格中的值激活表单。
你试了一下。你能发布你的代码吗? – litelite