作者WilliamChung (N/A)
看板Visual_Basic
标题Re: [VBA ] 如何快速键切换sheet
时间Sun Oct 30 23:50:39 2011
录制巨集的对话方块，一共有四个项目分别为：
1.巨集名称：______ (<-
文字方块)
2.快速键：Ctrl+___ (<-
文字方块)
3.将巨集储存在： (<-
下拉式选单)
(1)
个人巨集活页簿
(2)新的活页簿
(3)现用活页簿
4.描述：__________ (<-
文字方块)
你只需要将巨集储存在
个人巨集活页簿，
只要是在同一台电脑使用应用程式Excel，
开启任何Excel档案就都有这个巨集可以使用。
若你是直接开启
VBA Editor 编辑巨集的话，
请将该巨集的模组插入在专案
VBA Project (PERSONAL.XLSB) 底下，
此动作即为将巨集存放在个人巨集活页簿中。
※ 引述《tenway (等待是必要的)》之铭言：
: 再请教
: 要怎样让这个巨集每次开启EXCEL时
: 就default有这个聚集阿?
: ※ 引述《ClubT ()》之铭言：
: : 先录制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: 118.160.174.152
※ 编辑: WilliamChung 来自: 118.160.174.152 (10/31 00:22)