Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Маркировка строк, выбранных в listbox - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Маркировка строк, выбранных в listbox (Макросы/Sub)
Маркировка строк, выбранных в listbox
Паштет Дата: Вторник, 30.10.2018, 15:26 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 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)
 
Ответить
СообщениеКак можно вставить номер акта из формы 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]
Идет какая-то обработка, но результата нет.

Автор - Паштет
Дата добавления - 30.10.2018 в 15:26
boa Дата: Среда, 31.10.2018, 10:29 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 188
Репутация: 39 ±
Замечаний: 0% ±

2013, 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
 
Ответить
СообщениеПаштет,
наверное так?
[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:29
Паштет Дата: Среда, 31.10.2018, 16:49 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Да, так. То что нужно. Спасибо
 
Ответить
СообщениеДа, так. То что нужно. Спасибо

Автор - Паштет
Дата добавления - 31.10.2018 в 16:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Маркировка строк, выбранных в listbox (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!