Несколько вопросов назад появился совет о том, как отобразить поле «Найти и заменить» и установить для раскрывающегося списка «Внутри» значение «Лист». В то время я сообщил, что я не нашел способа фактически выполнить это, поскольку 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), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2486) применим к Microsoft Excel 97, 2000, 2002 и 2003.