自动定位到相应的工作表需要使用VBA的change事件来处理
Excel版本参考:2010
1、ALT+F11,进入VBE编辑去
2、双击Sheet1,粘贴如下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets(Target.Value).Select
End If
End Sub
3、返回工作表,在A1单元格输入工作表名
4、回车,查看效果
自动定位到相应的工作表需要使用VBA的change事件来处理
Excel版本参考:2010
1、ALT+F11,进入VBE编辑去
2、双击Sheet1,粘贴如下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets(Target.Value).Select
End If
End Sub
3、返回工作表,在A1单元格输入工作表名
4、回车,查看效果