Удалить пустые строки из ListBox

Вход

Регистрация

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

= Мир MS Excel/Удалить пустые строки из ListBox - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить пустые строки из ListBox (Макросы/Sub)

Удалить пустые строки из ListBox

parovoznik

Дата: Пятница, 15.01.2016, 14:47 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 442

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

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

Excel 2013

Добрый день.
На форме размещен ListBox со списком транспортных средств. При инициализации формы ListBox должен заполнен без пустых строк.
вопрос : как удалить пустые строки?

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

Ответить

Roman777

Дата: Пятница, 15.01.2016, 14:58 | Сообщение № 2

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

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

Сообщений: 980

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

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

Excel 2007, Excel 2013

parovoznik, можно вот в этом участке:
[vba]

Код

   For i = 6 To LastRow - 1
        With Me.ListBox1
            .AddItem ""
            .List(x, 0) = i
            .List(x, 1) = Cells(i, 2).Value
            x = x + 1
        End With
    Next

[/vba]
вставить условие:
[vba]

Код

   For i = 6 To LastRow - 1
     If Cells(i, 2) <> "" Then
        With Me.ListBox1
            .AddItem ""
            .List(x, 0) = i
            .List(x, 1) = Cells(i, 2).Value
            x = x + 1
        End With
      End If
    Next

[/vba]

Много чего не знаю!!!!

Ответить

parovoznik

Дата: Пятница, 15.01.2016, 15:13 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 442

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

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

Excel 2013

Roman777, спасибо все работает. hands

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить пустые строки из ListBox (Макросы/Sub)

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