VBA 函数：获取工作表名称

这是一个 VBA 函数，可以用于返回 Excel 工作表的名称。

Function gname(x As Integer)
If x = 0 Then
gname = ActiveSheet.Name
ElseIf x > 0 And x <= Sheets.Count Then
gname = Sheets(x).Name
ElseIf x > Sheets.Count Then
'MsgBox "超出范围"
End If
Application.Volatile
'=gname(ROW(A1))
End Function

要使用这个函数，按照以下步骤操作：

1. 打开 Excel 文件，并按下 Alt + F11 打开 VBA 编辑器。
2. 在 VBA 编辑器中，插入一个新的模块（如果没有已经存在的模块）。
3. 将上述代码复制粘贴到新的模块中。
4. 关闭 VBA 编辑器。
5. 在 Excel 工作表中的一个单元格中输入 =gname(ROW(A1))，然后按下 Enter 键。

这个函数将根据输入的参数返回不同的结果：

• 如果参数为 0，则返回当前活动工作表的名称。
• 如果参数大于 0 且小于等于工作表数量，则返回对应编号的工作表名称。
• 如果参数大于工作表数量，则什么都不返回。

请注意，这个函数使用了 Application.Volatile，这表示函数将在任何单元格发生变化时重新计算。这是为了确保该函数能够正确地返回活动工作表的名称。