几个问题之前，出现了有关如何显示“查找和替换”框并将“内部”下拉列表设置为“工作表”的提示。当时，我报告我还没有找到一种方法来实际完成此操作，因为VBA没有提供一种方法来显示按Ctrl + F时出现的相同“查找和替换”对话框。

过去一周，由于慷慨的_ExcelTips_订阅者的贡献，我找到了解决方法。以下宏显示了如何完成任务：

Sub DoBox()

ActiveSheet.Cells.Find What:="", LookAt:=xlWhole     Application.CommandBars("Worksheet Menu Bar").FindControl( _       ID:=1849, recursive:=True).Execute End Sub

使用Find方法可以在“查找和替换”对话框中设置不同的参数，然后访问CommandBars对象以实际显示对话框。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2486）适用于Microsoft Excel 97、2000、2002和2003。