只想求助一个快捷键，百度都快翻烂了也没找到TOT

苏景然

如图。。这个快捷键怎么按出来的啊。或者说有没有什么宏能按出来这个。。。本人40+工作簿。每次都鼠标点感觉手都快废了。就想一直待在键盘上。。

sobili

40多张工作表来回切换？CTRL+PgUp或者CTRL+PgUp试试。

苏景然

sobili 发表于 2022-3-17 20:28
40多张工作表来回切换？CTRL+PgUp或者CTRL+PgUp试试。

不行。太卡了。如果想从1个工作表，切到第35个工作表，要按好久。

正常的大冒险1

Sub t()
Dim i
i = Application.InputBox(prompt:="请输入想要切换的表格数：", Type:=1)
Sheets(i).Select
End Sub

正常的大冒险1

Sub t()
Dim i
i = Application.InputBox(prompt:="请输入想要切换的表格数：", Type:=1)
Sheets(i).Select
End Sub

zpy2

苏景然 发表于 2022-3-17 20:51
不行。太卡了。如果想从1个工作表，切到第35个工作表，要按好久。

worksheets("sheet35").select

这个vba录制一下应该有的，然后，分配宏一个快捷键就行了。
不过你这个好像太多了。
或者做个 超级链接 到每个表吧。

rarnma

有这么多表不给表子们做个目录吗?

sobili

苏景然 发表于 2022-3-17 20:51
不行。太卡了。如果想从1个工作表，切到第35个工作表，要按好久。

楼主，我做了个宏，名为工作表切换。看下符合你的需求吗？快捷键按Ctrl+m。
工作表切换.rar (62.9 KB, 下载次数: 8)

2022-3-18 10:45 上传

点击文件名下载附件

苏景然

sobili 发表于 2022-3-18 10:46
楼主，我做了个宏，名为工作表切换。看下符合你的需求吗？快捷键按Ctrl+m。

谢谢老哥！但是我那个工作表是带名字。可能没办法记住几号工作表对应哪个名字。就是那个系统自带的那个是用快捷键调用不出来的对嘛。TOT

苏景然

正常的大冒险1 发表于 2022-3-18 08:51
Sub t()
Dim i
i = Application.InputBox(prompt:="请输入想要切换的表格数：", Type:=1)

感谢老哥。。不太会用宏啊TOT