• Mypppka
  • Восстановленный участник
  • На форуме с 24 мая 2006г.
  • Сообщений: 30
  • Спасибо: 0

Тема: Как вывести на рабочий лист элементы ListBox?

Здравствуйте!Помогите, плиzzz
У меня возникла такая проблема:
Надо, чтобы любые подсвеченные элементы из списка (множественный выбор) при нажатии на кнопку записывались в столбец “B” любого рабочего листа.
Вот что я написала:

Private Sub Na_list_Click()
Dim i As Integer, n As Integer
With Cpicok
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
 g = .List(i)
 n = Range("A1").CurrentRegion.Rows.Count
End If
Next i
Cells(n + 1, 2).Value = g
End With
End Sub

Она записывает, но только одну фамилию с наибольшим индексом из всех подсвеченных. Что надо изменить, чтобы сразу выводились на листе все выделенные фамилии из списка?

  • VK
  • Восстановленный участник
  • На форуме с 17 марта 2003г.
  • Сообщений: 1,980
  • Спасибо: 0

Re: Как вывести на рабочий лист элементы ListBox?

Не врубился, что конкретно требуется, однако, ежели собирать все в одной строке, то как то так примерно...

 g = g & .List(i)

А если надо в разные ячейки впихивать, то совсем иначе - можно вычислять каждую новую ячейку например.

  • Mypppka
  • Восстановленный участник
  • На форуме с 24 мая 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Как вывести на рабочий лист элементы ListBox?

> VK
Ой, а не подскажете, как вычислить? С этим то и парюсь

  • Mypppka
  • Восстановленный участник
  • На форуме с 24 мая 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Как вывести на рабочий лист элементы ListBox?

> Mypppka
вот еще вопросики есть :/
1.Я установила у ComboBox’а свойство ColumnHeads=True, теперь когда список раскрывается, сверху появляются названия столбцов «Столбец А», «Столбец В»(Данные(имя, фам, отч) берутся с рабочего листа из столбцов А,В,С)… А Мне надо, чтобы столбцы назывались «№п.п», «Имя», «Фамилия»...
.Как это делается?
2.Как сделать, чтобы в списке, в столбце «№п.п» были номера элементов начиная с 1?

  • VK
  • Восстановленный участник
  • На форуме с 17 марта 2003г.
  • Сообщений: 1,980
  • Спасибо: 0

Re: Как вывести на рабочий лист элементы ListBox?

> Mypppka
Если совсем просто - то примерно так

Private Sub Na_list_Click()
  Dim i As Integer
  Dim r As Integer
  r = 1
  With Cpicok
    For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
        ActiveSheet.Cells(r, 1).Value = .List(i)
        r = r + 1
      End If
    Next i
  End With
End Sub

> Mypppka
Гадать не хочется. Файлик замыль, чтоли...

  • Mypppka
  • Восстановленный участник
  • На форуме с 24 мая 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Как вывести на рабочий лист элементы ListBox?

> VK
Отослала, да не один, а целых два :)

  • Mypppka
  • Восстановленный участник
  • На форуме с 24 мая 2006г.
  • Сообщений: 30
  • Спасибо: 0

Re: Как вывести на рабочий лист элементы ListBox?

А как узнать номер выбранной строки на рабочем листе?

  • VK
  • Восстановленный участник
  • На форуме с 17 марта 2003г.
  • Сообщений: 1,980
  • Спасибо: 0

Re: Как вывести на рабочий лист элементы ListBox?

  MsgBox Application.Selection.Row

Если выбрано несколько строк - то будет номер первой строки.