1、打开Excel工作簿文档，按ALT+F11组合键进入VBA编辑器窗口
3、复制下面的代码，粘贴到模块框中Function gname(x As Integer)If x = 0 Thengname = ActiveSheet.NameElseIf x > 0 And x <= Sheets.Count Thengname = Sheets(x).NameElseIf x > Sheets.Count ThenMsgBox "超出范围"End IfApplication.VolatileEnd Function
