Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Office Excel
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Алексей191919
0 / 0 / 0
Регистрация: 06.02.2019
Сообщений: 25
1

Несколько строк из листбокса

11.02.2019, 00:59. Просмотров 1072. Ответов 5
Метки нет (Все метки)

Подскажите у меня при выборе нескольких строк в лист боксе, на рабочий лист выходят все в одну ячейку
что то не хватает в коде
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub btnOK_Click()
Dim ws As Worksheet
Set ws = Worksheets("Лист2")
Dim newRow As Long
newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
For i = 0 To Me.lbDays.ListCount - 1
If Me.lbDays.Selected(i) Then
ws.Cells(newRow, 1).Value = Me.lbDays.List(i) + " "
End If
Next i
End Sub
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.02.2019, 00:59
Ответы с готовыми решениями:

Перенос всех строк из одного листбокса в другой
как при нажатии на кнопку, перенести все строки из Listbox1 в listbox2 везде искал информацию, но...

Записать в файл несколько строк, а затем записать несколько строк из этого файла в другой
Заранее создать текстовый файл 1.txt и записать в него несколько строк текста. Программа должна...

[EMU8086] Количество строк матрицы, где хотя бы один элемент равен C и несколько элементов этих строк равны D
Определить числа строк матрицы R , где хотя бы один элемент равен c и несколько элементов этих...

ToolTipText в несколько строк?
ToolTipText ... в несколько строк? Возможно ли это? Спасибо.

Считать несколько строк
Нужно считать N строк, не нужно их запоминать; строка имеет два пробела То есть, например, "Имя...

5
pashulka
2641 / 1351 / 551
Регистрация: 01.12.2010
Сообщений: 2,691
11.02.2019, 08:07 2
Лучший ответ Сообщение было отмечено Алексей191919 как решение

Решение

Visual Basic
1
2
ws.Cells(newRow, 1).Value = Me.lbDays.List(i)
newRow = newRow + 1
1
Vlad999
2948 / 1798 / 547
Регистрация: 02.11.2012
Сообщений: 4,532
11.02.2019, 08:08 3
вы вне цикла определили последнюю заполненную ячейку и далее она у вас не меняется.
П,С. Последнюю лучше определять так.
Visual Basic
1
newRow = ws.Cells(Rows.Count,1).End(xlUp).Row
0
Narimanych
419 / 336 / 171
Регистрация: 23.03.2015
Сообщений: 1,126
11.02.2019, 08:08 4
Алексей191919,

попробуйте между 8-ой и 9-ой строками newRow=newRow+1

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnOK_Click()
Dim ws As Worksheet
Set ws = Worksheets("Лист2")
Dim newRow As Long
newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
For i = 0 To Me.lbDays.ListCount - 1
If Me.lbDays.Selected(i) Then
ws.Cells(newRow, 1).Value = Me.lbDays.List(i) + " "
newRow=newRow+1
End If
Next i
End Sub
1
Vlad999
2948 / 1798 / 547
Регистрация: 02.11.2012
Сообщений: 4,532
11.02.2019, 08:11 5
меня смущает добавление пробела, а вас? Такое чувство что ТС хотел все в одну ячейку загнать.
0
Алексей191919
0 / 0 / 0
Регистрация: 06.02.2019
Сообщений: 25
11.02.2019, 20:41  [ТС] 6
Спасибо ребята
Изменил строку
Visual Basic
1
ws.Cells(newRow, 1).Value = Me.lbDays.List(i) + " ": newRow=newRow+1
и всё заработало
0
11.02.2019, 20:41
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.02.2019, 20:41

Несколько строк в listviewitem
как в listview(представление listview.view=Details) добавить vistviewitem в котором строка...

Скрыть несколько строк
Добрый день! Уважаемые форумчане, помогите неразумному. Вроде все подобные темы просмотрел, но...

ListBox в несколько строк.
Подскажите, пожалуйста, как сделать так, чтобы, если элемент в ListBoxе не помещается...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru