EXCEL怎么写公式能让单元格的值等于工作表的名字,且不用易失性函数

Question

=MID(CELL("filename"),FIND("]",CELL("filename"))+1,255)
=MID(CELL("filename",$A$1),22,5)
我看网上有用这两个公式,但是这种易失性函数关闭老问是否保存,可以把易失函数变成别的函数替代吗

Answer 1

亲，我还纳闷呢，刚才您加了“$A$1”，保存就不会提示了吗？

貌似易失函数，除了改为手动重算，别无他法。

追问

不能手动,要自动呢,没想好怎么改公式

追答

亲，只有VBA可以做到，例如，您需要在第一个sheet的A1单元格保存工作表名，则在Thisworkbook的BeforeClose事件中加入一行代码。也就是在关闭整个工作簿的时候检查一下，A1单元格的数值和工作表名是否一样，如果一样就忽略过去；如果不一样，就说明用户更改过表名，就对A1单元格重新赋值：

If Sheet1.[A1] <> Sheet1.Name Then Sheet1.[A1] = Sheet1.Name

 

追问

没明白能加我秋秋号吗
524021

追答

可以

Answer 2

不用公式，

 

Alt+F11  视图--代码窗口     如下代码复制进去，  F5运行

sub xxx() 
  with activesheet
    .[A1]=activesheet.name   'A1 写入表名
  end with
end sub

Answer 3

复制后，“选择性粘贴”“数值”。
用VBA代码获取工作表名称也行。追问

不行啊,不能等于,没看明白

追答

第一种方法就是，选择公式单元格区域，复制后，依次点击“编辑/选择性粘贴/数值/确定”。