点击这里查看首页

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


来源:高中英语教学交流
发布时间:2013-02-18 13:51:00
查看次数:

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

方法一

  一、VBE窗口添加新模块,代码窗口粘贴下面代码并运行
  
  Sub test()
  
  Dim sh As Worksheet
  
  For Each sh In ThisWorkbook.Sheets
  
  sh.Visible = xlSheetVisible
  
  Next
  
  Dim nm As Name
  
  For Each nm In ThisWorkbook.Names
  
  nm.Visible = True
  
  Next
  
  End Sub
  
  二、回到EXCEL名称管理器(公式--名称管理器),把那些不知道来由的名称删除
  
  三、如果不想保存为启用宏文件,回到VBE窗口把刚新增的这个模块移除不保存,重新保存EXCEL文件,完成OK!

方法二:

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

Sub HideMacroSheet()

ThisWorkbook.Sheets("macro1").Visible = 1

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”,然后再点“运行”,此时就可以在表Macro1A2看到“Auto_Activate”,点击“名称管理器”(Ctrl+F3),里面有很多定义的名称,把含有Auto_Activate

的全部删掉就可以了。

方法三:

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

Sub RmvMacros()
Dim wbk As Workbook
Dim strFilename As String
strFilename = Application.GetOpenFilename("Excel 文件(*.xls;*.xlsx),*.xls;*.xlsx") '要删除宏的文件名
If strFilename = "False" Then Exit Sub
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了,再打开你的表,就会发现之前的问题都解决了。


相关文章
· 解决gmail不稳定的方法03-17
· WORD批量插入图片和文件名11-12
· Excel 利用行号引用数据09-02
· WORD在所有数字前加回车12-10
· win7 隐藏文件夹设置方法08-14
· [亲测有效]excel批量修改文件名10-29
· EXCEL输入的技巧08-11
· 如何在Word中输入国际音标08-30
· XP修改文件排序方式为按修改时间排列04-19
· excel怎么生成随机数?02-03
最新文章
· 视频加速脚本TimerHooker (计时器掌控者)06-17
· [亲测有效]excel批量修改文件名10-29
· Excel随机生成区间数值06-23
· PS如何一键批量裁剪图片?06-02
· 微课制作注意事项06-02
· 删除 word 中所有的中文字符03-17
· WORD批量插入图片和文件名11-12
· VBA撤销excel工作表保护09-01
· JS 自动答题脚本07-01
· VBA文本类型转换成数值型05-06
阅读排行