作者ClubT ()
看板Visual_Basic
标题Re: [VBA ] 如何快速键切换sheet
时间Wed Oct 26 11:17:43 2011
※ 引述《tenway (等待是必要的)》之铭言:
: 请问如何设定快速键之後
: sheet之间快速切换
: 如: ctrl+r
: 就从现在的这个sheet跳到下一个sheet (sheet名字不一定是123)
: 按一次就跳下一个sheet
: 跳到最後一个sheet再按的话就跳到第一个sheet
: 这要怎麽弄阿
: PS别叫我用滑鼠和ctrl+page up/down 因为我想要一只左手就可以完成
: 拜托各位大大了><
先录制2个巨集
Sub NextSheet() '跳到下一个sheet
If Application.ActiveSheet.Index < Sheets.Count
Then
Sheets(Application.ActiveSheet.Index + 1).Select
Else
Sheets(1).Select
End If
End Sub
Sub PreSheet() '跳到上一个sheet
If Application.ActiveSheet.Index > 1 Then
Sheets(Application.ActiveSheet.Index - 1).Select
Else
Sheets(Sheets.Count).Select
End If
End Sub
如果不要跳回第一个或最後一个sheet就自己把else之後的拿掉
然後回到EXCEL编辑这2个巨集的快速键 (
http://tinyurl.com/3q7kp6o )
这样就OK罗 ^^
--
我的P2个板 自然就是美 倾听‧自然之美
NB_COLSPRING 科技 Σ 冷 泉 港 >生命孕育地,海洋之心
ClubT [风]
有空可以来逛逛^_^
Blog:
http://www.wretch.cc/blog/ClubT http://clubtblog.blogspot.com
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.136.55.122
1F:推 tenway:好威喔 ~!! 感激不尽~! 10/27 22:34
2F:→ auxmathew:index.假如有大量修改过sheet...可能不会照想要的顺序 10/31 08:41
3F:→ auxmathew:跑到你想要的sheet上吧 10/31 08:42