Страницы: 1
RSS
Поиск текста в текущей книге excel, макрос
 
Добрый день!
Возник вопрос по VBA. Имеется довольно большой макрос.
В начале идет кусок кода который выполняется в любом случае. Назовем его "Безусловный код". Далее в зависимости от условия: если в документе  хотя бы единожды содержится определенное словосочетание, например "ОПРЕДЕЛЕННОЕ СЛОВОСОЧЕТАНИЕ" (можно искать после выполнения "Безусловного кода"), то необходимо выполнить другой кусок кода, назовем его "Код выполняемый по условию". Если текст документа не содержит сочетания "ОПРЕДЕЛЕННОЕ СЛОВОСОЧЕТАНИЕ", то этот "Код выполняемый по условию" выполнять не нужно (как будто этого "Кода выполняемого по условию" и нет).
Что-то типа блок-схемы из воспоминаний о школьном курсе информатики  :)   :

Код
[Безусловный код];
If {Текст документа содержит сочетание "ОПРЕДЕЛЕННОЕ СЛОВОСОЧЕТАНИЕ"} then  [Код выполняемый по условию]
Else {Конец} 
Прошу помочь прописать это условие в VBA
 
:?:  

Код
If Not UsedRange.Find("ОПРЕДЕЛЕННОЕ СЛОВОСОЧЕТАНИЕ", , xlValues) Is Nothing Then
    [Код выполняемый по условию]
End If 
Согласие есть продукт при полном непротивлении сторон
 
Выбивает с ошибкой "Object Required" и подсвечивает эту строчку

Код
If Not UsedRange.Find("ОПРЕДЕЛЕННОЕ СЛОВОСОЧЕТАНИЕ", , xlValues) Is Nothing Then 
:(
 
попробуйте так:

Код
If Not UsedRange.Find("ОПРЕДЕЛЕННОЕ СЛОВОСОЧЕТАНИЕ", LookIn:=xlValues) Is Nothing Then
Согласие есть продукт при полном непротивлении сторон
 
Тоже самое пишет (((
 
Ну да, мой недосмотр.
Код
If Not Sheets("Лист1").UsedRange.Find("ОПРЕДЕЛЕННОЕ СЛОВОСОЧЕТАНИЕ", , xlValues) Is Nothing Then 
Лист1 замените именем того листа, на котором ищите ОПРЕДЕЛЕННОЕ......
Изменено: Sanja - 19.06.2014 10:26:41
Согласие есть продукт при полном непротивлении сторон
 
Sanja, огромное спасибо, работает!
Страницы: 1
Наверх