Excel 2010 VBA：使用 Range.Find() 时如何保存/缓存查找参数？

Question

我以前做过，但已经很多年了。 拿这个代码：

Set Find = r.Find(Text, LookIn:=xlFormulas, lookat:=xlWhole)

这在我拥有的宏中运行。 问题是当我用 CTRL+F go 进行常规查找时，我的宏代码中使用的参数被保存了。 我通常喜欢在单元格内容中搜索，而不是像上面的代码那样搜索整个单元格。 每次打开查找 window 时，扩展查找选项并取消选中“匹配整个单元格内容”有点痛苦。

我以前做的是将当前的查找设置保存到变量 run.Find()，然后将参数设置回原来的值，但我无法弄清楚。

Answer 1

在您的代码结束时，当您完成您需要做的事情时，只需将其设置回来：

Set Find = r.Find(Text, LookIn:=xlValues, lookat:=xlPart)

Answer 2

来自msdn 文章：

备注每次使用此方法时，都会保存 LookIn、LookAt、SearchOrder 和 MatchByte 的设置。 如果下次调用该方法时没有为这些 arguments 指定值，则使用保存的值。 设置这些 arguments 会更改“查找”对话框中的设置，如果您省略 arguments，则更改“查找”对话框中的设置会更改使用的保存值。 为避免出现问题，请在每次使用此方法时明确设置这些 arguments。

我从未听说过任何检索和恢复“查找”对话框设置的方法。

我猜这些是查找 function 实现中的 static 参数，实际上没有外部位置可以获取当前值。 不影响查找 function 的最佳选择是尝试使用“匹配”重新实现您当前的功能。