powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск по заданому критерию
5 сообщений из 5, страница 1 из 1
Поиск по заданому критерию
    #34916646
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
Поиск по заданому критерию
    #34916807
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
Поиск по заданому критерию
    #34916865
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
Поиск по заданому критерию
    #34916897
Фотография 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
Поиск по заданому критерию
    #34917118
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
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск по заданому критерию
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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