在Excel里面，如何运用宏让表格里面的内容随着表格的名字变化

Question

比如单元格A1里面写着（市场调查），这个Excel的名字也叫（市场调查），当我重命名时，将表格的名字改为（员工调查），那么A1这个单元格里面的内容也会随着而改变成（员工调查）。不可以复制粘贴，就是用公式，有谁会吗？

Answer 1

你是说工作表表名吧？不是excel名字，我理解excel名字就是工作簿名了。
那么A1输入
=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1,LEN(CELL("filename",$A$1))-FIND("]",CELL("filename",$A$1)))
注意，文件要是保存过的才可以。
公式就能办到的事，就不要麻烦vba先生了吧。追问

我说的Excel名字指的是在我没有打开这个表的情况的下名字，是这整个表的名字，不是打开后里面sheet1的名字

 

 

追答

用这个公式
=SUBSTITUTE(MID(CELL("filename",$A$1),FIND("[",CELL("filename",$A$1))+1,FIND("]",CELL("filename",$A$1))-FIND("[",CELL("filename",$A$1))-1),".xls","")

Answer 2

有种函数叫宏表函数，可以实现你的要求
先CTRL+F3，然后新建一个名称，公式填=left(get.workbook(16),len(get.workbook(16))-5)
回到A1，比如你刚才新建的名称是xxx，那么A1输入=xxx就可以了。
03版的话，把-5改成-4就好了。

Answer 3

设置一个按钮，按钮代码：
Private Sub CommandButton1_Click() ActiveWorkbook.SaveAs Sheet1.Cells(1, 1)End Sub在写上以下代码：
Private Sub Workbook_Open() Sheet1.Cells(1, 1) = ActiveWorkbook.FilenameEnd Sub

Answer 4

嗯，这个$A$1很重要