请教：在单元格中能否获取工作表名

playyun

请教：如何在单元格中获取工作表名，当工作表更改名字时，单元格也自动相应改变。

livewire

Sub get_active_sheet_name()

ActiveCell = ActiveSheet.Name

End Sub

slc

谢谢1楼和6楼

现在我把100多个工作表名称列了出来了！！！！！！！！！！！！！

playyun

又学到一种方法：

插入-名称 - 定义  A=SUBSTITUTE(GET.DOCUMENT(1),"["&GET.DOCUMENT(88)&"]",)&T(NOW())

在任一单元格输入：  =TEXT(A,"@")就可以了

只是在第5张工作表任一单元格中如何自动获取第二张及第三张工作表名？

llbover

[em02]

playyun

非常感谢各位朋友的帮助。谢谢！！

HSQ8888

或 插入-名称 - 定义 A=REPLACE(GET.CELL(32),1,FIND("]",GET.CELL(32)),)&T(NOW())
C5输 = A

HSQ8888

REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW()) ）
GET.WORKBOOK(1)的结果为[book1]工作表名
用REPLACE 将[book1]去掉 就得工作表名（是个数组）

HSQ8888

以下是引用playyun在2006-12-22 23:32:00的发言：


谢谢！！二种方法都不错。使我学到了不少知识。

只是第一种方法（A=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW()) ）始终只能定义第1张表，那第2张、第3张、第n张如何定义？

" [ "、" ] ",这个是什么意思？

=INDEX(A,N)   N为你想要的工作表，如第一张 N就为1 第2张 N为2 ......
" [ "、" ] ",这个是符号.
                                                                                                                    

playyun

谢谢！！二种方法都不错。使我学到了不少知识。

只是第一种方法（A=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW()) ）始终只能定义第1张表，那第2张、第3张、第n张如何定义？

" [ "、" ] ",这个是什么意思？

[此贴子已经被作者于2006-12-23 1:19:11编辑过]