如何在表中实现自动提取表格名称？

哄哄 · 发表于 2009-6-13 10:32

杨成云，谢谢
我用了你的第一个方法。
但是发现一个SHEET变了，全变了呢
比如，我SHEET分别有 1月、2月、3月。。。。。，
用你的公式后，发现这个引用不能随着SHEET的增加而变化，所有的要么全是1月，要么全是2月。。。。

杨成云 · 发表于 2009-6-13 19:53

原帖由哄哄于 2009-6-13 10:32 发表
杨成云，谢谢
我用了你的第一个方法。
但是发现一个SHEET变了，全变了呢
比如，我SHEET分别有 1月、2月、3月。。。。。，
用你的公式后，发现这个引用不能随着SHEET的增加而变化，所有的要么全是1月，要么全是2 ...

你最好上传一个附件，写明具体要求，这样才更好。

再提供一种方法：用VBA自定义函数
方法四
使用自定义函数
Function Intsheet(x As Integer)
If x = 0 Then
Intsheet = ActiveCell.Parent.Name
ElseIf x > 0 And x <= Sheets.Count Then
Intsheet = Sheets(x).Name
ElseIf x > Sheets.Count Then
MsgBox "超出范围"
End If
Application.Volatile
End Function
取当前工作表名称
=Intsheet(0)
取第N个工作表名称
=Intsheet(N)
N为正整数

fly8699 · 发表于 2013-3-14 11:21

留底...备用.....

青见 · 发表于 2013-9-7 16:15

收藏！！！！！！！！！！！！！！！

cqcbc · 发表于 2014-11-1 09:04

谢谢8楼杨成云，不错的知识，全面。

awscn · 发表于 2015-7-22 10:08

wj2368 发表于 2009-6-10 09:30
=MID(CELL("filename",A1),FIND("]",CELL("filename"))+1,255)

阁下这个提取表名的方法最好，会自动变化，顶你

pea95 · 发表于 2015-9-8 20:18

get.workbook（1）

砖头20122012 · 发表于 2015-9-9 07:19

学习了，感谢回答

酉水滔滔 · 发表于 2015-11-5 09:56

杨成云发表于 2009-6-10 09:21
方法一
　　常规方法 cell函数
　　也可以这样取得工作表名，在任一单元格输入：

太厉害了，赞一个！

zyhui1961 · 发表于 2023-2-14 10:46

wj2368 发表于 2009-6-10 09:30
=MID(CELL("filename",A1),FIND("]",CELL("filename"))+1,255)

怎么获取所有工作表名？谢谢！

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

[求助] 如何在表中实现自动提取表格名称？

评分