Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как написать - если Cells.Find не находит ничего то ActiveCell. / 5 сообщений из 5, страница 1 из 1
13.11.2012, 08:36
    #38035640
Excel rookie
Excel rookie
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать - если Cells.Find не находит ничего то ActiveCell.
Такая задача. У меня в 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:38
    #38035642
Excel rookie
Excel rookie
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать - если Cells.Find не находит ничего то ActiveCell.
Windows xp sp3, Excel 2003 sp3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2012, 09:29
    #38035678
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать - если Cells.Find не находит ничего то ActiveCell.
как-то так
Код: 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:32
    #38035683
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать - если Cells.Find не находит ничего то ActiveCell.
внимательнее прочитал условие, наверное так имелось ввиду
Код: 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
    #38037287
Excel rookie
Excel rookie
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как написать - если Cells.Find не находит ничего то ActiveCell.
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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как написать - если Cells.Find не находит ничего то ActiveCell. / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 483ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2175220]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 335ms
total:  483ms
x
x
Закрыть


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