Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > ПОМОГИТЕ С ДОБАВЛЕНИЕМ 2 СТОЛБЦОВ

Автор: Anton555 15.2.2006, 04:27

Господа помоги пожалуйста программным кодом!

Есть лист в Excel " Кафель"
В нем имееются 2 колонки - Код и Название

Необходимо добавить в Listbox1 две колонки c содержанием кода и названия.

код Название кафеля
1 Белый
2 Черный
3 Синий

Я могу добавлять только все в 1 столбец, подскажите как добавить в 2 столбца.
И как потом обращаться к этим столбцам чтобы присвоить данные к другим переменным.

Вот что у меня имеется

Worksheets.Item("Кафель").Activate
' Выбиделяем диапазон
Dim kaf As Range
' Объект выделения
Set kaf = Range("A2:B4")
' Выделяем
Dim vars As Variant
'Идем по списку
For Each vars In kaf
' Добавляем в список
UserForm3.ListBox1.AddItem (vars)
Next vars

Помогите люди добрые!!!!

Автор: Staruha 15.2.2006, 21:43

Код


Private Sub CommandButton1_Click()
Dim spisok(1 To 5, 1 To 2) 'Обьявляем массив 5строк два столбца
Dim i As Integer
Dim r As Integer
ComboBox1.Clear
For i = 1 To 5
 For r = 1 To 2
      
      spisok(i, r) = Cells(i, r) 'присваиваем значение  
      ListBox1.List = spisok ' Заполняем список массивом

Next r
Next i

End Sub

не забудь только columnCount 2 поставить