轻松解决“找不到macro1$A$2”
来源:高中英语教学交流
发布时间:2013-02-18 13:51:00
查看次数:
方法一
一、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”,然后再点“运行”,此时就可以在表Macro1的A2看到“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了,再打开你的表,就会发现之前的问题都解决了。
- 相关文章
- ·Win10系统开机启动文件夹在哪里?04-16·XP不回车直接登录方法03-03·CKEditor 简单使用和配置02-26·少点鼠标,让手轻松一些10-29·Word轻松排版四步曲 08-30·全国教师职称计算机考试应试技巧03-11·JS 自动答题脚本07-01·一分钟彻底清除电脑中的垃圾10-11·笔记本小键盘切换的问题08-13·qlv格式视频转mp4方法08-10
- 最新文章
- ·一列数据轻松转换成多行多列02-05·MPC-HC如何加速播放不变音调?01-06·利用打印机迁移功能实现三个步骤快速批量安装所有网10-27·视频号视频的四种下载方法07-07·Win10系统开机启动文件夹在哪里?04-16·十秒免工具激活windows 1002-25·批量替换word文档中的第一行作为文件的文件名06-21·连接打印机时需要输入用户名密码怎么办?05-15
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·Excel 进行学生成绩统计分析03-13·我的电脑图标不见了,怎么找回来!09-14·不同电脑文件字体改变了的解决方法12-15·Win10电脑的一些安装提示12-03·Word高级替换技巧03-05·巧妙管理 为打印机减负05-25·巧用Excel数组公式统计各班优秀人数04-24
点击这里识别二维码关注公众号