Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.02.2019, 20:16   #1
Алексей191919
Пользователь
 
Регистрация: 07.02.2019
Сообщений: 12
По умолчанию Разные столбцы в листбоксе

Всем привет, будьте добры подскажите
как сделать так чтоб из листа выводилось два столбца в литбокс

Раньше был вот такой код и всё работало
в лист бокс выводилось два столбца

Код:
Private Sub UserForm_Initialize()
With ListBox1
.ColumnHeads = True
.ColumnCount = 4
.ColumnWidths = "60;80;60;30"
.RowSource = "=A2:D50"
.MultiSelect = fmMultiSelectSingle
.TextColumn = 1
.BoundColumn = 0
End With
End Sub
Но мне надо было всё усложнить чтоб ещё и выбирало с именем "см" и код изменился,теперь не не берёт с двух столбцов а только с первого, но вот теперь не знаю как совместить приятное с полезным, мне бы вставить
Код:
.RowSource = "=A2:D50"
обратно но уже в
Код:
Private Sub UserForm_Initialize()
With ListBox1
.ColumnHeads = True
.ColumnCount = 4
.ColumnWidths = "60;80;60;30"
 .MultiSelect = fmMultiSelectSingle
.TextColumn = 1
.BoundColumn = 0
For i = 1 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
If Sheets(1).Cells(i, 2).Value = "см" Then .AddItem (Sheets(1).Cells(i, 1).Value)
Next
 
End With

Раньше с этим кодом работало, а теперь с ним ошибка
Код:
.RowSource = "=A2:D50"

Последний раз редактировалось Алексей191919; 11.02.2019 в 20:18.
Алексей191919 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
отобразить определенные столбцы в листбоксе yuresku Microsoft Office Excel 4 17.01.2016 17:20
Копирование данных из одной книги в другую в разные столбцы. kipish_lp Microsoft Office Excel 15 15.07.2015 07:27
Дана целочисленная матрица размера MXN. Найти ее столбцы, все элементы которых различны.Эти столбцы должны закрашиваться. Kate21143 Общие вопросы Delphi 2 11.06.2014 07:54
Разные пароли на разные диапазоны zenner Microsoft Office Excel 22 27.11.2010 01:25
Разные компиляторы - разные результаты Кипящий чайник Общие вопросы C/C++ 3 16.07.2010 14:54