跳转指定Sheet

zllyyz

如题：如何能按VBA属性的Sheet名称（下图蓝色方框内的）跳转指定的工作表 或 按工作表名称（表1、表2、大学二班） 输入近似的工作表名称（二班）跳转至《大学二班》此工作表？

shiruiqiang

instr(工作表名，输入格)

zllyyz

shiruiqiang 发表于 2024-1-24 11:29
instr(工作表名，输入格)

请写下完整的程序代码，谢谢

arsong

供参考，不存在输入的工作表的代码自己加

arsong

算了，防止你再问

sj15627581616

Sub test()
    Dim ShtName As String
    ShtName = Application.InputBox("请输出工作表名称：")
    For Each sht In Worksheets
        If InStr(sht.Name, ShtName) Then
            sht.Select
            Exit Sub
        End If
    Next
    MsgBox "未找到相关工作表"
End Sub
默认只找第一个