Re: [VBA ] 如何快速鍵切換sheet

[tenway (等待是必要的)]

再請教
要怎樣讓這個巨集每次開啟EXCEL時
就default有這個聚集阿?



※ 引述《ClubT ()》之銘言：
: ※ 引述《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 34mThen
:             Sheets(Application.ActiveSheet.Index - 1).Select
:           Else
:             Sheets(Sheets.Count).Select
:           End If
:         End Sub
:         如果不要跳回第一個或最後一個sheet就自己把else之後的拿掉
:         然後回到EXCEL編輯這2個巨集的快速鍵 (http://tinyurl.com/3q7kp6o )
:         這樣就OK囉 ^^

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.110.202.107