• Пётр
  • Восстановленный участник
  • На форуме с 20 июня 2006г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Добавление в раскрывающийся список ComboBox из таблицы.

Добрый день уважаемые эксперты.
Помогите пожалуйста, я немогу добавить в ComboBox данные из таблицы и сохронить их на другом листе.
Вот макрос для добавления введённых данных в таблицу:
Private Sub CommandButton2_Click()
Sheets("Лист3").Select
Dim i As Integer
i = TextBox1 + 1
Cells(i, 1).Value = TextBox1.Text
i = TextBox1 + 1
Cells(i, 2).Value = TextBox2.Text
i = TextBox1 + 1
Cells(i, 3).Value = TextBox3.Text
  Cells(i, 4).Value = TextBox3.Text / 100 * 13
  Cells(i, 5).Value = TextBox3.Text - TextBox3 / 100 * 13
End Sub
а вот что я зделал чтобы в данные введённые в поле TextBox2 отобразились в ComboBox, но этот скрипт не работает,он не выводит списка введённых данных.
Dim n As Integer
Dim isk As Variant
i = 1
Do While Cells(i, 2) <> ""
ComboBox1.AddItem (Cells(i, 2))
i = i + 1
Loop
isk = ComboBox1.Text
Если я что не правильно сделал справти пзжалуйста.
Зарание спосибо.

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Добавление в раскрывающийся список ComboBox из таблицы.

Do While Cells(i, 2) <> ""

Наверное, так: Cells(i, 2).Value <> ""?
А то условие получается, вроде как, некорректное..

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Добавление в раскрывающийся список ComboBox из таблицы.

> Сидор Лютый
Value не всегда бывает нужный текст. Это может быть и формула. Поэтому я бы записал так

Do While Len(Cells(i, 2).Text)>0
ComboBox1.AddItem Cells(i, 2).Text
i = i + 1
Loop

> Пётр
Cells(i, 2) - это объект и он не может быть помещен в комбобокс

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Добавление в раскрывающийся список ComboBox из таблицы.

brigval пишет:

Value не всегда бывает нужный текст. Это может быть и формула. Поэтому я бы записал так

с этим согласен, но вот только длина len(Cells(i, 2).Text) возвращает длину вышеупомянутого Value. А если в ячейке формула, возвращающая "0" и в настройках excel отключен показ нулевых значений, то len() так же вернет "0" , так что len(.text) тоже не подходит. Наверное, надо делать дополнительную проверку на формулы.

Cells(i, 2) — это объект и он не может быть помещен в комбобокс

- с этим не согласен. Пробовать код лень, но под рукой дословный пример из довольно авторитетного учебника:

For Row = 1 to 12
    UserForm1.ListBox.AddItem Sheets("Лист1").Cells(Row, 1)
Next Row

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Добавление в раскрывающийся список ComboBox из таблицы.

> brigval
А, я просто Вас не понял. Я имел в виду вставку всего, в т.ч. и формул, а Вы предполагаете вставку любого значения, кроме формул.
Первую часть предыдущего поста отзываю. Там все верно.))