Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск по заданому критерию / 5 сообщений из 5, страница 1 из 1
05.11.2007, 14:12
    #34916646
R@maN
R@maN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по заданому критерию
Хоху организовать поиск по двойному щелчку по ячейке, но у меня не получается. Находит только на активном листе. В общем задача такова: на первом листе есть столбец с названиями, на втором листе эти же названия только спереди написан адрес (это в одной ячейке), необходимо по двойном щелчке по ячейке первого листа отобразить содержимое соответствующей ячейки на втором листе. Пытался использовать find но не знаю как прописать что бы искало на втором листе
Код: plaintext
1.
2.
3.
Cells.Find(What:=ActiveCell, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
Заранее благодарю!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2007, 15:45
    #34916807
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по заданому критерию
Вообще найти на другом листе так
Код: plaintext
sheets("Лист2").Cells.Find(What:=ActiveCell...
Но только выделить ячейку можно только на активном листе, поэтому если нужно выделить ячейку, то можно сначала активировать лист, а потом найти.
Код: plaintext
1.
2.
3.
sheets("Лист2").Activate
Cells.Find(What:=ActiveCell, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2007, 16:17
    #34916865
R@maN
R@maN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по заданому критерию
Deggasad
Код: plaintext
1.
2.
3.
sheets("Лист2").Activate
Cells.Find(What:=ActiveCell, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Select


Что-то у меня не работает. Выдает ошибку. Что я не верно завершил???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2007, 16:32
    #34916897
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по заданому критерию
CommandButton1 на sheet1:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub CommandButton1_Click()
    Dim objFind As Range
    Dim oWhatToFind As Range
    
    Set oWhatToFind = Application.ActiveCell
    Sheets("Sheet2").Activate
    Set objFind = Sheets("Sheet2").Cells.Find(What:=oWhatToFind.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , SearchFormat:=False)
            
    If Not objFind Is Nothing Then
        objFind.Select
    End If
    
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.11.2007, 19:00
    #34917118
R@maN
R@maN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по заданому критерию
VladConnCommandButton1 на sheet1:

Private Sub CommandButton1_Click()
Dim objFind As Range
Dim oWhatToFind As Range

Set oWhatToFind = Application.ActiveCell
Sheets("Sheet2").Activate
Set objFind = Sheets("Sheet2").Cells.Find(What:=oWhatToFind.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)

If Not objFind Is Nothing Then
objFind.Select
End If

End Sub

Спасибо большое!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск по заданому критерию / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 429ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163133]:
 0ms
get settings:
 11ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 113ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 41ms
get tp. blocked users:
 2ms
others: 229ms
total:  429ms
x
x
Закрыть


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