定容摩尔热容计算公式轻松解决excel中找不到Macro1

2020年11月4日发(作者：羊士谔)
轻松解决excel中找不到Macro1$$A$$2
轻松解决“找不到macro1$$A$$2”

在打开excel表格的时候，是不是总 是弹出“找不到macro1$$A$$2”
的对话框呢，下面的办法可以轻松的帮你解决掉问题哦

方法一：

打开要解决问题的工作表，按Alt+F11打开VB编辑器，在“视图”
下选择“工程资源管理器”，打开后双击”ThisWorkbook”,在右边的编
辑页面复 制下面的代码

Sub HideMacroSheet()
(
End Sub '（显示隐藏的宏表macro1）
Sub DisplayNames()
Dim Na As Name
For Each Na In
e = True
Next
End Sub '（显示隐藏的“Auto_Activate”）
然后点击“运行”下面的“运行子过程用户窗体”，或按F5，弹出
宏对话框，选择：“T hisWorkbook. HideMacroSheet”，然后再点“运
行”，此时就可以在工作 表中看到表Macro1显示出来。然后再点击
“运行”下面的“运行子过程用户窗体”，或按F5，弹 出宏对话框，
选择：“T hisWorkbook. DisplayNames”，然后再点“运行 ”，此时
就可以在表Macro1的A2看到“Auto_Activate”，点击“名称管理器”< br>(
Ctrl+F3
)，里面有很多定义的名称，把含有Auto_Activate
的全部删掉就可以了。


方法二：

关闭有问题的 表，新建一个表，按Alt+F11打开VB编辑器，“视图”
下选择“工程资源管理器”，然后点击“ 插入”，插入模块，在右边
的编辑区域复制下面的代码：

Sub RmvMacros()
Dim wbk As Workbook
Dim strFilename As String
strFilename = nFilename( 文件(*.xls;*.xlsx),*.xls;*.xlsx要删除宏的文
件名
If strFilename =
Events = False '禁止在打开时触发事件
yAlerts = False
Set wbk = (strFilename)
For Each sht In
e = True
If = 3 Or = 4 Then
Next
For i = To 1 Step -1
If (i).Visible = False Then (i).Delete
Next i
savechanges:=True
yAlerts = True
Events = True
End Sub
鼠标点击，并选中左侧V BAProject（打开表格的名字），然后再点击
“运行”，选择“运行宏”，在弹出的对话框中， 选中你要解决问题
的表，就ok了，再打开你的表，就会发现之前的问题都解决了。