Сбор данных из двух таблиц в listbox

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

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

Сбор данных из двух таблиц в listbox (Макросы/Sub)

Паштет

Дата: Вторник, 30.10.2018, 11:07 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

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

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

Excel 2010

Доброго времени суток!
Необходимо собрать в listbox данные с двух таблиц: с листа "Журнал ИБ" и "reestr" для дальнейшей обработки. С одной таблицы без проблем получилось, но как подвязать вторую не догоняю. Думал справлюсь с помощью Find, но на выделенную строку эксель ругается:
[vba]

Код

i = 5
    Do While Sheets("Журнал ИБ").Cells(i, 1) <> 0
       If Sheets("Журнал ИБ").Cells(i, 13) = "У" And Sheets("Журнал ИБ").Cells(i, 15) = "" Then
       With ListBox1
            .AddItem Sheets("Журнал ИБ").Cells(i, 1)
            j = .ListCount - 1
            .List(j, 0) = Sheets("Журнал ИБ").Cells(i, 1)
            .List(j, 1) = Sheets("Журнал ИБ").Cells(i, 7)
            .List(j, 2) = Sheets("Журнал ИБ").Cells(i, 21)
            .List(j, 3) = Sheets("Журнал ИБ").Cells(i, 22)
            [b].List(j, 4) = Sheets("reestr").Range("D2", "F" & Row).Find(What:=.List(j, 1), LookAt:=xlWhole).Row[/b]

        End With
        End If
        i = i + 1
    Loop

[/vba]
В листбокс берутся изначально данные из "Журнала ИБ" с буквой "У" в 13 столбце и незаполненной ячейкой в 15 столбце. Необходимо по данным из .List(j, 1) подтянуть соответствующее значение с листа "reestr" из столбца F.
P.S. не обращайте внимание на заголовки в листбоксе, их меньше, чем реальных столбцов.

К сообщению приложен файл: __v2-0__25-10-1.xlsm (72.6 Kb)

Ответить

_Boroda_

Дата: Вторник, 30.10.2018, 11:33 | Сообщение № 2

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Добавил кусок
[vba]

Код

    With Sheets("reestr")
        r1_ = .Cells(.Rows.Count, 1).End(3).Row
        ar = .Cells(2, 4).Resize(r1_ - 1, 3)
    End With
    Set slov = CreateObject("Scripting.Dictionary")
    With slov
        For i = 1 To UBound(ar)
            .Item(ar(i, 1)) = ar(i, 3)
        Next i
    End With

[/vba]
Тогда
[vba]

Код

.List(j, 4) = slov(.List(j, 1))

[/vba]

К сообщению приложен файл: _v2-0_25-10-1_1.xlsm (71.8 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Паштет

Дата: Вторник, 30.10.2018, 11:55 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

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

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

Excel 2010

Борода, вы настоящий профи! Еще Вы и телепат, тк догадались о какой из 4 форм я говорил.
Спасибо огромное!!!

Ответить

Паштет

Дата: Вторник, 30.10.2018, 14:55 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 159

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

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

Excel 2010

А можно еще вопросик?
Как можно вставить номер акта из формы Util в столбец 15 "Журнала ИБ" по выбранным элементам листбоксе (по первому столбцу) при нажатии на кнопку "сформировать акт"?
Попробовал сам включить кусок:
[vba]

Код

Y = 5
    Do While Sheets("Журнал ЗС").Cells(Y, 1) <> 0
       If Sheets("Журнал ЗС").Cells(Y, 1) = ListBox1.List(k, 0) Then
        Sheets("Журнал ЗС").Cells(Y, 15) = Val(akt)
    End If
        Y = Y + 1
    Loop

[/vba]Идет какая-то обработка, но результата нет.

Ответить

_Boroda_

Дата: Вторник, 30.10.2018, 15:07 | Сообщение № 5

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Это другой вопрос, и другой файл с листом Журнал ЗС, которого в этом файле вообще нет, и другим макросоом

Ответить

Сбор данных из двух таблиц в listbox (Макросы/Sub)

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