| 楼主 wise |
Function ShName(Optional Rng As Range) As String Application.Volatile '重新计算 If Rng Is Nothing Then '如果单元格不存在 ShName = Application.Caller.Parent.Name '在工作表中使用ShName函数，application.caller代表你在工作表的某一单元格,而单元格的父对象是该单元格所对应的上一级——工作表，并显示其工作表名 Else ShName = Rng.Parent.Name '该函数里面引用的是里面的单元格，则直接显示该单元格所对应的工作表名 End If End Function  ShName.rar |
| 2楼 wise |
觉得这个parent很有意思，附上一个提取当前工作簿的自定义函数 Function getName(Optional Rng As Range) As String Application.Volatile If Rng Is Nothing Then getName = Application.Caller.Parent.Parent.Name Else getName = Rng.Parent.Parent.Name End If End Function |
| 3楼 hlxz |
很好 很不错 |
| 4楼 水星钓鱼 |
学习了,不过为什么不直接用
|