轻松解决excel中找不到Macro1$A$2

轻松解决“找不到macro1$A$2”

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

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

ThisWorkbook.Sheets(\

End Sub （ 显示隐藏的宏表macro1） Sub DisplayNames() Dim Na As Name

For Each Na In ThisWorkbook.Names Na.Visible = True Next

End Sub （显示隐藏的“Auto_Activate”） 然后点击“运行”下面的“运行子过程/用户窗体”，或按F5，弹出宏对话框，选择：“T hisWorkbook. HideMacroSheet”，然后再点“运行”，此时就可以在工作表中看到表Macro1显示出来。然后再点击“运行”下面的“运行子过程/用户窗体”，或按F5，弹出宏对话框，选择：“T hisWorkbook. DisplayNames”，然后再点“运行”，此时就可以在表Macro1的 A2看到“Auto_Activate”，点击“名称管理器”，里面有很

多定义的名称，把含有Auto_Activate 的全部删掉就可以了。 方法二：

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

=

Application.GetOpenFilename(\

文

件

(*.xls;*.xlsx),*.xls;*.xlsx\要删除宏的文件名 If strFilename = \

Application.EnableEvents = False '禁止在打开时触发事件 Application.DisplayAlerts = False Set wbk = Workbooks.Open(strFilename) For Each sht In wbk.Sheets sht.Visible = True

If sht.Type = 3 Or sht.Type = 4 Then sht.Delete Next

For i = wbk.Names.Count To 1 Step -1

If wbk.Names(i).Visible = False Then wbk.Names(i).Delete Next i

wbk.Close savechanges:=True Application.DisplayAlerts = True Application.EnableEvents = True end sub

鼠标点击，并选中左侧VBAProject（打开表格的名字），然后再点击“运行”，选择“运行宏” ，在弹出的对话框中，选中你要解决问题的表，就ok了，再打开你的表，就会发现之前的问题都解决了。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库轻松解决excel中找不到Macro1$A$2在线全文阅读。