Снова цикл select, организация поиска одинаковых значений.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Снова цикл select, организация поиска одинаковых значений. (Макросы/Sub)

Olena

Дата: Пятница, 28.04.2023, 20:13 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 68

Репутация: 1 ±

Замечаний: 20% ±

Всем доброго времени.
Подскажите пожалуйста как реализовать выделение строки Select через Listboks.
Поиск происходит для выделения строки по столбцу "С", но загвоздка в том что как всегда у нас могут быть одинаковые номера в столбце "С", но разные название (параметры) в столбце "Е". И тут я снова застопорилась.
Пробовала чего только не пробовала, Find находит первое значение и дальше отказывается переключать селект. Так как часто теперь бывает у нас один и тот же номер в "С" но разная группа в "Е"
Find использую специально потому как использую скрытие строк.
Как мне быть в данной ситуации. Ума не приложу, толь индексы столбца не верно прописываю, что бы был селект постоянно...
Прошу помощи форума. Сама точно не справлюсь.
Всем хорошего вечера)

К сообщению приложен файл: snova_cikl.xls (113.5 Kb)

Ответить

Pelena

Дата: Пятница, 28.04.2023, 21:19 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19392

Репутация: 4537 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Примерно так можно
[vba]

Код

Private Sub ListBox1_Click()
    Dim r1 As Range, r2 As Range
    If ListBox1.ListIndex = -1 Then Exit Sub
    Set r1 = Range("c7:C1000").SpecialCells(xlCellTypeVisible).Find(ListBox1.Text, LookAt:=xlWhole)
    Do Until Cells(r1.Row, 4) = ListBox1.Column(1) And Cells(r1.Row, 5) = ListBox1.Column(2)
        Set r1 = Range("c7:C1000").SpecialCells(xlCellTypeVisible).FindNext(r1)
    Loop
    Cells(r1.Row, 3).Select
End Sub

[/vba]

К сообщению приложен файл: 5935362.xls (110.5 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Olena

Дата: Пятница, 28.04.2023, 22:10 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 68

Репутация: 1 ±

Замечаний: 20% ±

Цитата Pelena, 28.04.2023 в 21:19, в сообщении № 2 (

)

Do Until Cells(r1.Row, 4) = ListBox1.Column(1) And Cells(r1.Row, 5) = ListBox1.Column(2)

Цитата Pelena, 28.04.2023 в 21:19, в сообщении № 2 (

)

Примерно так можно

Ая прописывала условие для текстбоксов, считывала ячейки и писала через "if" , если условие выполниться то поиск начинался...но он же начинался с самого начала и до первого значения. Про этот метод никогда не догадалась бы(
Леночка, огромная вам благодарность

Ответить

Снова цикл select, организация поиска одинаковых значений. (Макросы/Sub)

Страница 1 из 1
1