用于使sheetname出现在单元格中的function

我在Excelfile中有10个工作表，而在最后一个工作表中，我希望获取单元格中的每个工作表。

可以说表1被称为“黑色”。 我希望这个sheetname出现在表格10中的单元格等

我怎么能得到一个函数的单元格到sheetname？

Answer 1

您只能使用macros或自定义函数来完成您所要求的操作。 我会给你的自定义function：

function：

Public Function sheetName(sheetIndex As Integer) As String Dim wb As Workbook Application.Volatile True Set wb = Application.Caller.Worksheet.Parent If sheetIndex < 1 Or sheetIndex < wb.Sheets.Count Then sheetName = wb.Sheets(sheetIndex).Name Else sheetName = "Index Out of Range!" End If End Function 

使用：

将上面的代码粘贴到工作簿中的一个模块中（如果您需要帮助，请直接询问）。 然后使用公式： =sheetName(TheNumberOfTheSheet)其中TheNumberOfTheSheet为1为第一个表，2为第二个，等等

Answer 2

一旦保存工作簿：

 =CELL("filename") 

将返回表单的完整path。 如果你只想要标签名称，它也需要一些string操作，比如：

 =MID(CELL("filename"),FIND("]",CELL("filename"))+1,LEN(CELL("filename"))) 

瑞典版本可能是：

 =EXTEX(CELL("filnamn");HITTA("]";CELL("filnamn"))+1;LÄNGD(CELL("filnamn")))