Страницы: 1
RSS
Как сделать настройки поиска макросом со своими настройками, макрос
 
Код
Sub Поиск()
    Application.CommandBars.ExecuteMso "FindDialogExcel"
    SendKeys ("0")
End Sub
Здравствуйте
Как сделать настройки поиска: искать значения, ячейка целиком (галочка), искать по столбцам
 
эти настройки сохраняются после последнего поиска, значит можно использовать фэйковый range.find
The settings for  LookIn,  LookAt,  SearchOrder, and  MatchByte are saved each time you use this method. If you do not specify values for these arguments the next time you call the method, the saved values are used. Setting these arguments changes the settings in the Find dialog box, and changing the settings in the Find dialog box changes the saved values that are used if you omit the arguments. To avoid problems, set these arguments explicitly each time you use this method.
Изменено: БМВ - 28.04.2018 21:57:34
По вопросам из тем форума, личку не читаю.
 
БМВ, что то непонятное вышло у меня
Код
Sub Поиск()
    Application.CommandBars.ExecuteMso "FindDialogExcel"
.Find(  , , xlValues , 1 , xlByColumns , 1 , False ,  ,) ' . Find( What , After , LookIn , LookAt , SearchOrder , SearchDirection , MatchCase , MatchByte , SearchFormat )
End Sub
Изменено: Goldenito - 28.04.2018 17:57:15
 
А так?
Код
Sub Поиск()
    Range("a1").Find "", , xlValues, 1, xlByColumns, 1, False
    Application.CommandBars.ExecuteMso "FindDialogExcel"
    SendKeys ("0")
End Sub
По вопросам из тем форума, личку не читаю.
 
БМВ, отлично работает, огромное спасибо
Страницы: 1
Наверх