作者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
推 tenway:好威喔 ~!! 感激不盡~! 10/27 22:34
→ auxmathew:index.假如有大量修改過sheet...可能不會照想要的順序 10/31 08:41
→ auxmathew:跑到你想要的sheet上吧 10/31 08:42