Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
как вернуть предыдущие настройки поиска?
 
#1
08.04.2015 07:51:52
добрый день. например,я провел поиск с помощью макроса с использованием метода Find. затем я хочу вернуть настройки поиска,чтобы в окне "Найти и заменить" были прежние настройки.

можно ли это сделать ? т.е. перед запуском макроса мне нужно запомнить настройки поиска,а затем,после работы макроса,вернуть обратно. например,как запомнить перед запуском макроса параметр "LookIn".
Изменено: Karataev - 08.04.2015 07:53:43
 
 
 
#2
08.04.2015 08:10:05
Записать в переменную, ячейку листа, имя...
 
 
 
#3
08.04.2015 08:54:13
а что в коде написать,чтобы записать в переменную параметр "LookIn" ? я не знаю,как обратиться к тому,что содержит эти параметры
 
 
 
#4
08.04.2015 09:02:01
Цитата
Karataev написал: записать в переменную параметр "LookIn"
наоборот - параметру LookIn присвойте значение переменной, определенной Вами ранее, например
Код
N = xlValues
Set c = Worksheets(1).Range("a1:a100").Find(2, LookIn:=N)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
08.04.2015 09:03:11
Зачем Вам окно, если поиск и замена производится автоматически?
 
 
 
#6
08.04.2015 09:14:12
потому что после макроса окно Найти и заменить  изменяется. пользователь может не заметить этого и если будет пользоваться окном Найти и заменить,то у пользователя могут быть неправильные данные. поэтому после работы макроса нужно вернуть прежние параметры поиска.

Sanja,мне как раз наоборот нужно -записать не в параметр,а из параметра
Изменено: Karataev - 08.04.2015 09:33:15
 
 
 
#7
08.04.2015 11:14:48
Для изменения параметров диалогового окна нужно провести поиск (чего угодно где угодно) с нужными параметрами.
Об этом Sanja и пишет
F1 творит чудеса
 
 
 
#8
08.04.2015 11:25:19
а как считать параметры из Find? где-то записаны эти параметры? может быть в реестре Windows .
 
 
 
#9
08.04.2015 12:28:26
Напрямую через VBA - никак. Где хранятся эти параметры - неизвестно.

Но можно поискать кота
Код
Sub GetCurentFindSettings()
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
With Sheets.Add(After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)).Range("A:A")
    .Cells(2, 1).Formula = "=""C""&""atalog"""
    .Cells(3, 1).Formula = "=""c""&""atalog"""
    .Cells(4, 1).Formula = "=""C""&""at"""
    .Cells(5, 1).Formula = "=""c""&""at"""
    .Cells(6, 1).Formula = "Catalog"
    .Cells(7, 1).Formula = "catalog"
    .Cells(8, 1).Formula = "Cat"
    .Cells(9, 1).Formula = "cat"
    
    Select Case .Find("cat", After:=.Cells(1, 1)).Row
        Case 2
            MsgBox "LookIn:Values, LookAt:Part, MatchCase:False"
       Case 3
            MsgBox "LookIn:Values, LookAt:Part, MatchCase:True"
        Case 4
            MsgBox "LookIn:Values, LookAt:Whole, MatchCase:False"
        Case 5
            MsgBox "LookIn:Values, LookAt:Whole, MatchCase:True"
        Case 6
            MsgBox "LookIn:Formulas, LookAt:Part, MatchCase:False"
       Case 7
            MsgBox "LookIn:Formulas, LookAt:Part, MatchCase:True"
        Case 8
            MsgBox "LookIn:Formulas, LookAt:Whole, MatchCase:False"
        Case 9
            MsgBox "LookIn:Formulas, LookAt:Whole, MatchCase:True"
    End Select
End With

ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Delete

Application.DisplayAlerts = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
F1 творит чудеса
 
 
 
#10
08.04.2015 12:34:00
спасибо всем ответившим
 
 
 
Страницы: 1
Наверх