ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как правильно указать диапазон для поиска?
6 сообщений из 6, страница 1 из 1
Как правильно указать диапазон для поиска?
    #35166924
Dimon111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimon111
Участник
Делаю так:

Код: plaintext
1.
2.
3.
Cells.Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Работает, но ищет по всему листу. Нужно чтоб искало в колонке A.

Делаю так:
Код: plaintext
1.
2.
3.
Range("A1:a1082").Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

Выдает ошибку 13 несовпадения типов. Как правильно задать диапазон для поиска?

Спасибо.
...
Рейтинг: 0 / 0
03.03.2008, 13:40
| Ответить | Цитировать | Написать  
Как правильно указать диапазон для поиска?
    #35166954
Dimon111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimon111
Участник
Прошу прощения. Поспешил.

Правильно будет так:

Код: plaintext
1.
2.
3.
4.
    Range("A1:A1082").Select
    Selection.Find(What:=S, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

Но есть еще вопрос: как организовать цикл поиска с выводом результата на новый лист. Лист можно не отображать.

Спасибо.
...
Рейтинг: 0 / 0
03.03.2008, 13:49
| Ответить | Цитировать | Написать  
Как правильно указать диапазон для поиска?
    #35167118
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
В Help (F1) посмотрите пример с Find, FindNext. Вот там как раз пример организации поискового цикла.
...
Рейтинг: 0 / 0
03.03.2008, 14:31
| Ответить | Цитировать | Написать  
Как правильно указать диапазон для поиска?
    #35167469
Dimon111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimon111
Участник
Да нет там ничего. И мелкомягкие молчат...
...
Рейтинг: 0 / 0
03.03.2008, 16:16
| Ответить | Цитировать | Написать  
Как правильно указать диапазон для поиска?
    #35167588
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Ну как же нет. Есть. Вот:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
FindNext Method
...
Example
This example finds all cells in the range A1:A500 that contain the value  2  and changes their values to  5 .

With Worksheets( 1 ).Range("a1:a500")
    Set c = .Find( 2 , lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value =  5 
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
...
Рейтинг: 0 / 0
03.03.2008, 16:39
| Ответить | Цитировать | Написать  
Как правильно указать диапазон для поиска?
    #35167743
Dimon111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimon111
Участник
Да, работает. А я почему - то не нашел...

Огромное спасибо. Вопрос закрыт.
...
Рейтинг: 0 / 0
03.03.2008, 17:16
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как правильно указать диапазон для поиска?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35166954&tid=2162606]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 72ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 247ms
total:  383ms
созд. / загр.: 383ms
x
x
Закрыть


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