取得工作表前一个工作表的名称【已解决】感谢LangQueS版主和CTFuture大侠热情指导！

阳光雨露168 · 发表于 2010-8-8 16:56

如何取得当前工作表前一个工作表的名称？现在有一个能取得当前工作表名称和取得指定第几个工作表名称的自定义函数。各位大侠指点下如何能取得当前工作表前一个工作表名称的方法？

[ 本帖最后由阳光雨露168 于 2010-8-8 18:08 编辑 ]

yvhgydn · 发表于 2010-8-8 17:05

Sub fd()

ActiveSheet.[a1] = ActiveSheet.Name
r = ActiveSheet.Index - 1
ActiveSheet.[a2] = Sheets(r).Name
End Sub

阳光雨露168 · 发表于 2010-8-8 17:07

原帖由 yvhgydn 于 2010-8-8 17:05 发表
Sub fd()

ActiveSheet.[a1] = ActiveSheet.Name
r = ActiveSheet.Index - 1
ActiveSheet.[a2] = Sheets(r).Name
End Sub

谢谢！我先试下！

阳光雨露168 · 发表于 2010-8-8 17:18

原帖由 yvhgydn 于 2010-8-8 17:05 发表
Sub fd()

ActiveSheet.[a1] = ActiveSheet.Name
r = ActiveSheet.Index - 1
ActiveSheet.[a2] = Sheets(r).Name
End Sub

好像不行；看VBA代码中也没有出现fd；我是在工作薄中有很多工作表，每个几乎每个工作表都要引用前一个工作表的数据；

[ 本帖最后由阳光雨露168 于 2010-8-8 17:20 编辑 ]

CTFuture · 发表于 2010-8-8 17:21

定义名称 =Get.workbook(38) 即可

阳光雨露168 · 发表于 2010-8-8 17:30

原帖由 CTFuture 于 2010-8-8 17:21 发表
定义名称 =Get.workbook(38) 即可

谢谢！定义名称后，好像是当前工作表的名称，不是当前工作表前一个工作表的名称

阳光雨露168 · 发表于 2010-8-8 17:34

原帖由 yvhgydn 于 2010-8-8 17:05 发表
Sub fd()

ActiveSheet.[a1] = ActiveSheet.Name
r = ActiveSheet.Index - 1
ActiveSheet.[a2] = Sheets(r).Name
End Sub

大侠：这不是完整的代码吧？

CTFuture · 发表于 2010-8-8 17:35

定义再个名称：
TTC=Get.workbook(38)
TMP=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
再用公式：
=INDEX(TMP,MATCH(TTC,TMP,0)-1)

LangQueS · 发表于 2010-8-8 17:41

Sub 打印前一工作表()
Sheets(ActiveSheet.Index - 1).PrintOut
End Sub

阳光雨露168 · 发表于 2010-8-8 17:45

原帖由 LangQueS 于 2010-8-8 17:41 发表
Sub 打印前一工作表()
Sheets(ActiveSheet.Index - 1).PrintOut
End Sub

版主，我是要引用前一工作表的内容，不是打印，哈哈

		自动登录	找回密码
密码			免费注册

[求助] 取得工作表前一个工作表的名称【已解决】感谢LangQueS版主和CTFuture大侠热情指导！