ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как написать - если Cells.Find не находит ничего то ActiveCell.
5 сообщений из 5, страница 1 из 1
Как написать - если Cells.Find не находит ничего то ActiveCell.
    #38035640
Excel rookie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel rookie
Гость
Такая задача. У меня в Excel с помощью макроса убираются обработанные строки. Строки прыгают одна с одной по значению Mystring. Так вот сегодня там было пусто и из-зи этого макрос выкинул ошибку.


Так вот вопрос как так сделать, что если не срабатывает:

Cells.Find(What:=MyString, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

то надо выполнить:
ActiveCell.Parent.Cells(Rows.Count, 1).End(xlUp).Select 'Íàõîäèì ïîñëåäíóþ ñòðîêó ñ çàïîëíåííûì 1-ûì ñòîëáöîì
...
Рейтинг: 0 / 0
13.11.2012, 08:36
| Ответить | Цитировать | Написать  
Как написать - если Cells.Find не находит ничего то ActiveCell.
    #38035642
Excel rookie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel rookie
Гость
Windows xp sp3, Excel 2003 sp3
...
Рейтинг: 0 / 0
13.11.2012, 08:38
| Ответить | Цитировать | Написать  
Как написать - если Cells.Find не находит ничего то ActiveCell.
    #38035678
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
как-то так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim r As Range
Set r = Cells.Find(What:=MyString, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
 xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
 , SearchFormat:=False)
If Not r Is Nothing Then
  r.Parent.Cells(Rows.Count, 1).End(xlUp).Select
End If
...
Рейтинг: 0 / 0
13.11.2012, 09:29
| Ответить | Цитировать | Написать  
Как написать - если Cells.Find не находит ничего то ActiveCell.
    #38035683
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
внимательнее прочитал условие, наверное так имелось ввиду
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim r As Range
Set r = Cells.Find(What:=MyString, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
 xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
 , SearchFormat:=False)
If r Is Nothing Then
  ActiveCell.Parent.Cells(Rows.Count, 1).End(xlUp).Select
Else
  r.Select
End If
...
Рейтинг: 0 / 0
13.11.2012, 09:32
| Ответить | Цитировать | Написать  
Как написать - если Cells.Find не находит ничего то ActiveCell.
    #38037287
Excel rookie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel rookie
Гость
Shocker.Proвнимательнее прочитал условие, наверное так имелось ввиду
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim r As Range
Set r = Cells.Find(What:=MyString, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
 xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
 , SearchFormat:=False)
If r Is Nothing Then
  ActiveCell.Parent.Cells(Rows.Count, 1).End(xlUp).Select
Else
  r.Select
End If



Спасибо, добрый человек! :)
...
Рейтинг: 0 / 0
14.11.2012, 03:40
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как написать - если Cells.Find не находит ничего то ActiveCell.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]