您的位置: 首页 > EXCEL技巧 > ExcelVBA >

用VBA选择上一个或下一个工作表

时间:2013-12-10 整理:docExcel.net

如果需要用VBA代码在Excel工作簿中选择下一个或上一个工作表,可以使用下面的代码。

  Sub DownSheet()
   Dim i As Integer
   i = Worksheets.Count
   If ActiveSheet.Index < i Then
Worksheets(ActiveSheet.Index + 1).Activate
   Else
Worksheets(1).Activate
   End If
  End Sub
  Sub UpSheet()
   Dim i As Integer
   i = Worksheets.Count
   If ActiveSheet.Index > 1 Then
Worksheets(ActiveSheet.Index - 1).Activate
   Else
Worksheets(i).Activate
   End If
  End Sub

说明:DownSheet过程选择下一个工作表,第3、12行代码使用Worksheets对象的Count属性取得工作表的数目,第4行到第7行代码根据Index属性判断活动工作表是否是工作簿中的最后一张工作表。如果活动工作表不是最后一张工作表则激活活动工作表的下一张工作表,否则激活第一张工作表。
UpSheet过程选择上一个工作表,第13行到第16行代码根据Index属性判断活动工作表是否是工作簿中的第一张工作表。如果活动工作表不是第一张工作表则激活活动工作表的上一张工作表,否则激活最后一张工作表。

用VBA选择工作表中所有包含超链接的单元格 问题:用VBA选择工作表中所有包含超链接的单元格
回答:要选择工作表中所有包含超链接的单元格,用定位或查找的方法无法实现。下面的VBA代码可以实现这一目的。 按Alt+F11,打开VBA编辑器,在“工程”窗口中双击某个工作表,在右侧的代码窗口中输入下列代码: Sub SelectHyperlinkCel...
用VBA选择并打开多个工作簿文件 问题:用VBA选择并打开多个工作簿文件
回答:...on.GetOpenFilename方法显示“打开”文件对话框,然后打开所选择的一个或多个Excel工作簿文件。 Sub OpenWorkbooks() On Error Resume Next Dim SelectFiles As Variant   显示打开文件对话框   SelectFiles = Application.GetOpenFilename( Excel 文件 (*.xl*)...
用VBA选择上一个或下一个工作表 问题:用VBA选择上一个或下一个工作表
回答:如果需要用VBA代码在Excel工作簿中选择下一个或上一个工作表,可以使用下面的代码。   Sub DownSheet()    Dim i As Integer    i = Worksheets.Count    If ActiveSheet.Index < i Then Worksheets(ActiveSheet.Index + 1).Activate  &n...
VBA入门基础语句详解 问题:VBA入门基础语句详解
回答:选择一个工作表:Sheets( Balance ).Activate.选择单元格:Range( A1 ).Select选择连续的单元格:Range( A1:G8 ).Select选择不连续的单元格:Range( A1,B6,D9 ).SelectRange( A1,B6:B10,D9 ).Select选择当前活动的工作簿:ThisWorkbook.Activate如果选择其他工作簿,注意该...
VBA中Activate方法和Select方法的区别 问题:VBA中Activate方法和Select方法的区别
回答:...区别的。Activate方法的作用是激活,而Select方法的作用是选择。其区别如下: 1.对于“Sheets”对象 Sheets.Select可以同时选择多个工作表,而Sheets.Active不能同时激活多个工作表。如下面的语句: Sub Test1() ActiveWorkbook.Sheets(Array(1, 2...
用VBA在受到保护的工作表中进行自动筛选 问题:用VBA在受到保护的工作表中进行自动筛选
回答:当在工作表中设置了自动筛选,而在保护工作表时没有选择允许“使用自动筛选”,那么自动筛选功能在保护工作表后无法使用。如果需要在不解除工作表保护的情况下能够使用自动筛选,可以用下面的VBA代码:1.按Alt+F11,打开...
相关推荐: