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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить пустые строки из ListBox (Макросы/Sub)
Удалить пустые строки из ListBox
parovoznik Дата: Пятница, 15.01.2016, 14:47 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 5 ±
Замечаний: 0% ±

Excel 2007
Добрый день.
На форме размещен ListBox со списком транспортных средств. При инициализации формы ListBox должен заполнен без пустых строк.
вопрос : как удалить пустые строки?
К сообщению приложен файл: 0078009.xlsm(26Kb)
 
Ответить
СообщениеДобрый день.
На форме размещен ListBox со списком транспортных средств. При инициализации формы ListBox должен заполнен без пустых строк.
вопрос : как удалить пустые строки?

Автор - parovoznik
Дата добавления - 15.01.2016 в 14:47
Roman777 Дата: Пятница, 15.01.2016, 14:58 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 748
Репутация: 81 ±
Замечаний: 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, можно вот в этом участке:
[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]

Автор - Roman777
Дата добавления - 15.01.2016 в 14:58
parovoznik Дата: Пятница, 15.01.2016, 15:13 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 5 ±
Замечаний: 0% ±

Excel 2007
Roman777, спасибо все работает. hands
 
Ответить
СообщениеRoman777, спасибо все работает. hands

Автор - parovoznik
Дата добавления - 15.01.2016 в 15:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить пустые строки из ListBox (Макросы/Sub)
Страница 1 из 11
Поиск:

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