[已解决]单元格返回当前工作表名称要用VBA

wucj80

单元格返回当前工作表名称要用VBA

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2015-4-8 23:50

1. Sub a()
   
2. [b2] = ActiveSheet.Name
   
3. End Sub

复制代码

跳转到最佳答案楼层

橘子红

1. Function myname()
   
2.     Application.Volatile
   
3.     myname = Application.Caller.Parent.Name
   
4. End Function
   

复制代码

wucj80

你的这个能用模块吗

橘子红

就是模块啊

wucj80

我是说能用sub这个来开头的吗

wucj80

发现这个有错
可能是不是2003的表会这样

橘子红

Sub x()
   myname = ActiveSheet.Name
End Sub

这儿有肥猫

1. Sub a()
   
2. [b2] = ActiveSheet.Name
   
3. End Sub

复制代码