vba跳转到指定工作表

答案:1 悬赏:0 手机版

解决时间 2021-03-30 15:00

提问者网友：心牵心
2021-03-30 03:09

vba跳转到指定工作表

最佳答案

五星知识达人网友：琴狂剑也妄
2021-03-30 04:09

以下代码可以实现输入工作表名称，按回车或点击确定后跳转至当前工作簿的该工作表
Sub 跳转()

Dim sn As String
Dim x As Integer
sn = InputBox("请输入要跳转到的工作表的名字")

For i = 1 To Sheets.Count

If Sheets(i).Name = sn Then

Sheets(i).Activate
x = 1

End If

Next i

If x = 0 Then

MsgBox ("当前工作簿中没有以" & sn & "命名的工作表")

End If

End Sub已上传附件，点击按钮即可验证

追问我记得以前网上搜到的只有1行vba命令没那么复杂啊，现在找也找不到了追答因为要判断工作簿中是否存在该工作表，否则程序会报错
想要简单的可以直接用
Sub 跳转()

Sheets(InputBox("请输入要跳转到的工作表的名字")).Activate

End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息