Маркировка строк, выбранных в listbox

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

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

Маркировка строк, выбранных в listbox (Макросы/Sub)

Паштет

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

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

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

Сообщений: 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]
Идет какая-то обработка, но результата нет.

К сообщению приложен файл: 3961014.xlsm (71.8 Kb)

Ответить

boa

Дата: Среда, 31.10.2018, 10:29 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

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

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

365

Паштет,
наверное так?
[vba]

Код

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then 'если элемент в листбоксе выделен
        Y = 5
        Do While Sheets("Журнал ИБ").Cells(Y, 1) <> 0
            If Sheets("Журнал ИБ").Cells(Y, 1) = Val(ListBox1.List(i, 0)) Then Sheets("Журнал ИБ").Cells(Y, 15) = Val(Akt)
            Y = Y + 1
        Loop
    End If
Next

[/vba]

Сообщение отредактировал boa - Среда, 31.10.2018, 10:30

Ответить

Паштет

Дата: Среда, 31.10.2018, 16:49 | Сообщение № 3

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

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

Сообщений: 159

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

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

Excel 2010

Да, так. То что нужно. Спасибо

Ответить

Маркировка строк, выбранных в listbox (Макросы/Sub)

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