[已解决]批量忽略错误绿色小三角单元----代码提速

yjwdjfqb · 发表于 2014-7-1 09:42

Sub 批量忽略错误绿色小三角单元()
Application.ScreenUpdating = False
Dim sht As Worksheet, rng As Range
For Each sht In Sheets
      For Each rng In sht.UsedRange
         rng.Errors.Item(xlEvaluateToError).Ignore = True       '单元格计算为错误值。
         rng.Errors.Item(xlTextDate).Ignore = True             '单元格包含用 2 位数表示年份的文本日期。
         rng.Errors.Item(xlNumberAsText).Ignore = True          '单元格包含以文本形式存储的数字。
         rng.Errors.Item(xlInconsistentFormula).Ignore = True    '单元格包含一个区域中不一致的公式。
         rng.Errors.Item(xlOmittedCells).Ignore = True          '单元格包含一个忽略了区域中某个单元格的公式。
         rng.Errors.Item(xlUnlockedFormulaCells).Ignore = True '取消锁定的单元格包含一个公式。
         rng.Errors.Item(xlEmptyCellReferences).Ignore = True    '单元格包含一个引用空单元格的公式。
      Next
Next
Application.ScreenUpdating = True
End Sub

批量忽略错误绿色小三角单元----代码提速
这个代码功能上能达到要求，目前存在的问题是，运行时，速度太慢了，请老师们帮帮提下速度，谢谢老师们了！

最佳答案

月排行榜 / 总排行榜

cbg2008

2014-7-1 17:47

yjwdjfqb 发表于 2014-7-1 17:21
老师，我传上附件，请帮帮看看！谢谢了！

超级汇总1.rar (30.5 KB, 下载次数: 31)

cbg2008 · 发表于 2014-7-1 10:09

Application.ErrorCheckingOptions.EvaluateToError = False
Application.ErrorCheckingOptions.TextDate = False
Application.ErrorCheckingOptions.NumberAsText = False
Application.ErrorCheckingOptions.InconsistentFormula = False
Application.ErrorCheckingOptions.UnlockedFormulaCells = False
Application.ErrorCheckingOptions.EmptyCellReferences = False
忽略检查行不行

yjwdjfqb · 发表于 2014-7-1 10:57

cbg2008 发表于 2014-7-1 10:09
Application.ErrorCheckingOptions.EvaluateToError = False
Application.ErrorCheckingOptions.TextDate ...

谢谢老师，这个运行可以，但速度还是跟以前差不多。

cbg2008 · 发表于 2014-7-1 11:13

yjwdjfqb 发表于 2014-7-1 10:57
谢谢老师，这个运行可以，但速度还是跟以前差不多。

不会啊，这个不用for 循环了，只要运行一次就可以了

su45 · 发表于 2014-7-1 12:07

有必要用代码吗？在选项中，把勾都去掉！

QQ截图20140701120345.png

yjwdjfqb · 发表于 2014-7-1 17:21

cbg2008 发表于 2014-7-1 11:13
不会啊，这个不用for 循环了，只要运行一次就可以了

老师，我传上附件，请帮帮看看！谢谢了！

超级汇总.rar (27.95 KB, 下载次数: 8)

cbg2008 · 发表于 2014-7-1 17:47

这个最佳答案由 cbg2008 给出，感谢 cbg2008 的回答。

单击隐藏图章

yjwdjfqb 发表于 2014-7-1 17:21
老师，我传上附件，请帮帮看看！谢谢了！

超级汇总1.rar (30.5 KB, 下载次数: 31)

		自动登录	找回密码
密码			注册