作者tenway (等待是必要的)
看板Visual_Basic
标题Re: [VBA ] 如何快速键切换sheet
时间Thu Oct 27 22:55:24 2011
再请教
要怎样让这个巨集每次开启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