[已解决]用VBA如何获得活动工作表的前一个工作表的序号？

gemini_

        我想在活动工作表中引用排在当前活动工作表前一位的工作表的数据。比如：1到12月共计12个工作表，我按时间顺序从左到右排列，我想12月引用11月的，11月引用10月的，10月又引用9月的。。。并且以此类推，
        请问如何能得到“当前活动工作表前一位的工作表的序号”？？
请高手赐教

最佳答案

月排行榜 / 总排行榜

爱疯

2016-8-10 15:42

Sub test()
    Dim sh As Worksheet
    Set sh = ActiveSheet.Previous
End Sub


可用worksheet对象的Previous属性来获取。
注，ActiveSheet必须不是第1个工作表。

跳转到最佳答案楼层

fjmxwrs

Sheets(ActiveSheet.Index - 1)
就是指的当前工作表的前一个工作表

这儿有肥猫

ActiveSheet.Index - 1

爱疯

Sub test()
    Dim sh As Worksheet
    Set sh = ActiveSheet.Previous
End Sub


可用worksheet对象的Previous属性来获取。
注，ActiveSheet必须不是第1个工作表。

gemini_

爱疯 发表于 2016-8-10 15:42
Sub test()
    Dim sh As Worksheet
    Set sh = ActiveSheet.Previous

谢谢老师！
这个方法可行！
顺便问一下，是不是03版的VBA不能使用高版本的一些事件？
比如03版就不能使用13版的workbook事件，对吗？？

gemini_

fjmxwrs 发表于 2016-8-10 13:05
Sheets(ActiveSheet.Index - 1)
就是指的当前工作表的前一个工作表

谢谢老师

gemini_

这儿有肥猫 发表于 2016-8-10 13:08
ActiveSheet.Index - 1

谢谢老师

爱疯

"03版就不能使用13版的workbook事件"

没明白这句话具体说的是什么意思？

gemini_

爱疯 发表于 2016-8-12 11:52
"03版就不能使用13版的workbook事件"

没明白这句话具体说的是什么意思？

你看，我的excel是03版的，在使用事件时，只能使用worksheet事件，连workbook事件都没有，而且worksheet事件右边的边框下来菜单列表也只有这几个，好像还有很多情况都没有，我就是想问下，是不是03版excel不能使用高版本的一些事件？？

gemini_

爱疯 发表于 2016-8-12 11:52
"03版就不能使用13版的workbook事件"

没明白这句话具体说的是什么意思？

高手，我回复你了，能帮忙看下吗？