Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Работа с Find в макросе. / 4 сообщений из 4, страница 1 из 1
31.07.2007, 11:22:14
    #34694888
Любопытный поиск
Любопытный поиск
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с Find в макросе.
Решил написать простой макрос в Excel и столкнулся с загадочной работой Find. Может вы растолкуете в чем дело.

Sub FindTest()

Set ws = Worksheets("back")

MsgBox (Str(ws.Cells.Find(What:="Test").Row))

End Sub

Если значения на листе нет, то вылетает "Object variable or With block variable not set"
Если есть, то 1 - вне завимости от положения найденной ячейки
Если вместо текста ищу число, например
ws.Cells.Find(What:="123").Row
то все работает нормально.

Игрался с остальными параметрами разницы не почувствовал. Где подводный камень ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2007, 11:38:34
    #34694941
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с Find в макросе.
Подводных камней, работает отлично, но нужно разобраться, что функция возвращает диапазон и если ни чего не найдено, то возвращает "ничего", из-за этого ошибка. Лучше использовать в такой конструкции:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub test()
Dim FoundRng As Range
Dim SoughtStr As String
    
    SoughtStr = "Test"

    Set FoundRng = Worksheets("back").Cells.Find(What:=SoughtStr)
    
    If FoundRng Is Nothing Then
        MsgBox "Строка """ & SoughtStr & """ найдена в ячейке " & FoundRng.Address
    Else
        MsgBox "Строка """ & SoughtStr & """ не найдена на листе!"
    End If
    
    Set FoundRng = Nothing
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.07.2007, 12:09:50
    #34695080
Любопытный поиск...
Любопытный поиск...
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с Find в макросе.
Действительно, возвращает диапозон :-)

vbapro, спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.10.2007, 17:17:57
    #34902500
LogaN
LogaN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с Find в макросе.
ВАХ, спасибо за совет, целый дёнь искал хороший выход из ситуации и тут вы! :) АТЛИЧНА!!!!!!!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Работа с Find в макросе. / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 727ms
Закрыть
start [/forum/search_topic.php?author=Dobro&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 6ms
get forum list:
 10ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 39ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 20ms
get tp. blocked users:
 1ms
others: 624ms
total:  727ms
x
x
Закрыть


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