激活由名工作表列表中的

Question

我的每一个工作表的代表项目 在第一个工作表（“选择项目”）我已经创建了一个包含所有工作表的名称（单元格A3：A50）列表 在一个特定的细胞（E4），该工作表中，我从列表中 选择一个项目，我想用这个名字

Answer 1

（细胞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，它被改变了，如果是的话，它会根据这个单元格中的值激活表单。