powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Работа с Find в макросе.
4 сообщений из 4, страница 1 из 1
Работа с Find в макросе.
    #34694888
Решил написать простой макрос в 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
Работа с Find в макросе.
    #34694941
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подводных камней, работает отлично, но нужно разобраться, что функция возвращает диапазон и если ни чего не найдено, то возвращает "ничего", из-за этого ошибка. Лучше использовать в такой конструкции:

Код: 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
Работа с Find в макросе.
    #34695080
Действительно, возвращает диапозон :-)

vbapro, спасибо!
...
Рейтинг: 0 / 0
Работа с Find в макросе.
    #34902500
LogaN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ВАХ, спасибо за совет, целый дёнь искал хороший выход из ситуации и тут вы! :) АТЛИЧНА!!!!!!!!!!!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Работа с Find в макросе.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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