展开全部
先设置数据有效性
然后在当前表中设置单元格响应代码(2003直接用VBA,2007先在选项中打开显示“开发工具”的开关,然后编辑VBA)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 2 Then '如果当前用户激活的单元格行数为1列数为2,就根据单元格中的数值(即表名)来激活 sheet(单元格数值)
Sheets(Target).Select
End If
End Sub
然后在当前表中设置单元格响应代码(2003直接用VBA,2007先在选项中打开显示“开发工具”的开关,然后编辑VBA)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 2 Then '如果当前用户激活的单元格行数为1列数为2,就根据单元格中的数值(即表名)来激活 sheet(单元格数值)
Sheets(Target).Select
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询