Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 5938|回复: 11

[已解决]提示:找不到Macrol $A$2

[复制链接]
发表于 2013-3-20 15:55 | 显示全部楼层 |阅读模式
各位我有张表,打开表时,就会提示:找不到Macrol $A$2,怎么回事呢?表中没有链接呀?
最佳答案
2013-3-20 16:09
  1. Sub 名称和宏表()
  2.     Dim MyName
  3.     Dim c As Byte
  4.     Dim sMsg$, sht

  5.     With ThisWorkbook
  6.         For Each MyName In .Names
  7.             If MyName.Visible = False Then
  8.                 c = c + 1
  9.                 MyName.Visible = True
  10.             End If
  11.             '删除名称定义中包含AUTO字样的名称
  12.             If UCase(MyName.Name) Like "*AUTO*" Then MyName.Delete
  13.         Next

  14.         If c > 0 Then sMsg = sMsg & "一共有 " & c & " 个隐藏名称"

  15.         '遍历宏表并清除
  16.         c = 0
  17.         For Each sht In .Excel4MacroSheets
  18.             c = c + 1
  19.             sht.Visible = -1
  20.             .Excel4MacroSheets(sht.Name).Delete
  21.         Next
  22.         If c > 0 Then sMsg = sMsg & vbCr & "一共有 " & c & " 个宏表"
  23.     End With
  24. End Sub
复制代码
QQ截图11.png

-2013年.rar

123.75 KB, 下载次数: 10

发表于 2013-3-20 16:03 | 显示全部楼层
回复

使用道具 举报

发表于 2013-3-20 16:06 | 显示全部楼层
回复

使用道具 举报

发表于 2013-3-20 16:09 | 显示全部楼层    本楼为最佳答案   
  1. Sub 名称和宏表()
  2.     Dim MyName
  3.     Dim c As Byte
  4.     Dim sMsg$, sht

  5.     With ThisWorkbook
  6.         For Each MyName In .Names
  7.             If MyName.Visible = False Then
  8.                 c = c + 1
  9.                 MyName.Visible = True
  10.             End If
  11.             '删除名称定义中包含AUTO字样的名称
  12.             If UCase(MyName.Name) Like "*AUTO*" Then MyName.Delete
  13.         Next

  14.         If c > 0 Then sMsg = sMsg & "一共有 " & c & " 个隐藏名称"

  15.         '遍历宏表并清除
  16.         c = 0
  17.         For Each sht In .Excel4MacroSheets
  18.             c = c + 1
  19.             sht.Visible = -1
  20.             .Excel4MacroSheets(sht.Name).Delete
  21.         Next
  22.         If c > 0 Then sMsg = sMsg & vbCr & "一共有 " & c & " 个宏表"
  23.     End With
  24. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2013-3-20 16:09 | 显示全部楼层
怎么找出来呢?怎样才能把它清除呢?
回复

使用道具 举报

发表于 2013-3-20 16:10 | 显示全部楼层
soft苗苗 发表于 2013-3-20 16:09
怎么找出来呢?怎样才能把它清除呢?

打开VBE,代码复制过,运行。
回复

使用道具 举报

发表于 2013-3-20 16:21 | 显示全部楼层
我也遇到这样的问题,用过了代码,好用谢谢
回复

使用道具 举报

 楼主| 发表于 2013-3-20 16:24 | 显示全部楼层
怎么打开VBE 呢?在哪里打,怎么操作呢?
回复

使用道具 举报

 楼主| 发表于 2013-3-20 16:30 | 显示全部楼层
我已经运行了,这样操作对数值有影响没有呢?
回复

使用道具 举报

 楼主| 发表于 2013-3-20 16:47 | 显示全部楼层
这个就是运行VBE吗?
QQ截图.png
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:48 , Processed in 2.887239 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表