使单张名称出现在单元格中的精益函数

Question

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

让我们说，第一页被称为“黑色”。我希望这个单张的名字出现在第10页的一个单元格中等等。

如何才能将单张名称放入带有函数的单元格中？

Answer 1

您只能使用宏或自定义函数精确地执行所要求的操作。我会给你定制的功能：

功能：

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")  

将返回工作表的完整路径。如果您只想要选项卡名，它还需要一些字符串操作，例如：

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

瑞典文本可能是：

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