Диалоговое окно "Найти Заменить" в Excel

[VictorM]

Здравствуйте, Господа!
Вопрос такого плана:
есть ли возможность вызвать диалоговое окно "Найти (Find) Заменить (Replace)" в Excel VBA
я не нашел в стандартном списке такого xlDialogFindFile есть, а просто Find нет
может оно не так называется?
Спасибо.

[Pavel55]

Наверное, что-то в этом роде

Код: Выделить всё

Sub Макрос1()
Dim dlgAnswer
    dlgAnswer = Application.Dialogs(xlDialogFormulaReplace).Show
End Sub

а зачем вам это окно? заменяйте без окна

например, заменяем 5 на 10, с галочкой "ячейка целиком"

Код: Выделить всё

Sub Макрос2()
    ActiveSheet.UsedRange.Replace What:="5", Replacement:="10", LookAt:=xlWhole 'ячейка целиком
End Sub

P.S. LookAt:=xlPart - без галочки "ячейка целиком"

P.P.S. Все виды окон диалогов смотрите в справке VBA по критерию "Built-In Dialog Box Argument Lists"

[VictorM]

Pavel55, спасибо за совет, но мне нужно именно окно "Найти", собственно "Заменить" и применяться не будет.

P.S. Built-In Dialog Box Argument Lists- здесь я и искал

[bi-lya]

Я это делал через эмуляцию нажатия на стандартную кнопку

[VictorM]

bi-lya, простите, и как же?
Можно поподробнее?
Макрорекордер не записывает эти действия.

[bi-lya]

Ехсел_2003

Код: Выделить всё

Dim kn As CommandBarButton

Set kn = Application.CommandBars.FindControl(Type:=msoControlButton, ID:=1849)

kn.Execute

[VictorM]

bi-lya, спасибо!
Вот это ТО что нужно!!!
P.S. А где берется эта информация - msoControlButton, ID:=1849 ? Почитать бы :-)
Спасибо

[bi-lya]

Справка VBA

[VictorM]

Спасибо. Почитаю.

[Teslenko_EA]

Здравствуйте VictorM.
This example (from help Microsoft Excel) uses the SendKeys method.

Код: Выделить всё

Application.SendKeys "^f"

Таким способом тоже можно вызвать диалог поиска.
Евгений.