Гость
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поиск на другом листе xl / 4 сообщений из 4, страница 1 из 1
02.01.2019, 16:46
    #39755519
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск на другом листе xl
Ребята подскажите! не могу понять где в коде обозначить лист с которого будет производится поиск, есть код (но не мой), пример приложил
...
Рейтинг: 0 / 0
02.01.2019, 18:28
    #39755546
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск на другом листе xl
assei,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub ПоискЗначений()
Dim Rng As Range, Адрес As String
ListBox1.Clear

With Worksheets("Лист2") 'добавлено
  With .Range("A7:A" & .Cells(Rows.Count, 1).End(xlUp).Row) 'изменено
    Set Rng = .Find(Me.TextBox1.Value, , , Abs(Abs(chbxPart + 1) + 1))
    If Not Rng Is Nothing Then
        Адрес = Rng.Address
        Do
            ListBox1.AddItem Rng: Set Rng = .FindNext(Rng)
        Loop While Адрес <> Rng.Address
    End If
  End With 'добавлено
End With

End Sub
...
Рейтинг: 0 / 0
03.01.2019, 11:15
    #39755636
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск на другом листе xl
Казанский, Спасибо большое! а попутный вопрос можно?
если функция зарезервирована возможно ли прописать еще одну? например активировать другую ячейку на этом же листе!
Код: vbnet
1.
2.
3.
4.
5.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'при активной ячейке 
     If Not Application.Intersect(Range("B2"), Target) Is Nothing Then
         anncalendar.Show
     End If
End Sub
...
Рейтинг: 0 / 0
04.01.2019, 02:00
    #39755771
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск на другом листе xl
assei,
в смысле, написать еще одну процедуру Worksheet_SelectionChange в этом же модуле? Нельзя. Но можно в существующую процедуру дописать команды или вызов другой процедуры.
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поиск на другом листе xl / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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