如果需要用VBA代码在Excel工作簿中选择下一个或上一个工作表,可以使用下面的代码。
excel VBA入门基础语句详解
选择一个工作表:Sheets(Balance).Activate.选择单元格:Range(A1).Select选择连续的单元格:Range(A1:G8).Select选择不连续的单元格:Range(A1,B6,D9).SelectRange(A1,B6:B10,D9).Select选择当前活动的工作簿:ThisWorkbo
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属性判断活动工作表是否是工作簿中的第一张工作表。如果活动工作表不是第一张工作表则激活活动工作表的上一张工作表,否则激活最后一张工作表。
如何在Excel2007中显示“开发工具”选项卡
Excel2007的开发工具选项卡中有许多与程序开发和XML功能相关的命令,包括代码、控件、XML和修改组。利用该选项卡,可以进行录制宏、打开VBA编辑器、运行宏命令、插入控件等操作。在默认情