移至特定的表格
我需要制作一个盒子，在其中input你想要去的工作表号码，然后把你带到那里。 我想要一个button，但是因为我有大约60张纸，所以没什么意义。
运行这个小macros：
Sub GoThere() Dim N As Long On Error Resume Next N = Application.InputBox(Prompt:="Enter sheet number", Type:=1) Sheets(N).Select On Error GoTo 0 End Sub 我需要制作一个盒子，在其中input你想要去的工作表号码，然后把你带到那里。 我想要一个button，但是因为我有大约60张纸，所以没什么意义。
运行这个小macros：
Sub GoThere() Dim N As Long On Error Resume Next N = Application.InputBox(Prompt:="Enter sheet number", Type:=1) Sheets(N).Select On Error GoTo 0 End Sub