Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/ListBox перенос на лист с листбокса данных - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ListBox перенос на лист с листбокса данных (Макросы/Sub)
ListBox перенос на лист с листбокса данных
kamarali Дата: Четверг, 18.08.2016, 16:55 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Форумчане с надеждой на вас, подскажите как перенести из ListBox данные в табличку екселя,
дата в ячейку А а ФИО в ячейку Б
Лист бокс создал. Теперь по клику кнопки, хочу перенести данные в вниз первого листа причем каждый должен быть в своей ячейке.

С уважением, Анатолий.
К сообщению приложен файл: --1.xls(97Kb)


Сообщение отредактировал kamarali - Четверг, 18.08.2016, 17:20
 
Ответить
СообщениеФорумчане с надеждой на вас, подскажите как перенести из ListBox данные в табличку екселя,
дата в ячейку А а ФИО в ячейку Б
Лист бокс создал. Теперь по клику кнопки, хочу перенести данные в вниз первого листа причем каждый должен быть в своей ячейке.

С уважением, Анатолий.

Автор - kamarali
Дата добавления - 18.08.2016 в 16:55
Manyasha Дата: Четверг, 18.08.2016, 17:29 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1823
Репутация: 765 ±
Замечаний: 0% ±

Excel 2007, 2010
kamarali, переносятся данные из ListBox2 у которых checked=true
[vba]
Код
Private Sub CommandButton4_Click()
    Dim i%, lr&
    With ThisWorkbook.Sheets("Отчет")
        lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        For i = 0 To Me.ListBox2.ListCount - 1
            If Me.ListBox2.Selected(i) Then
                .Cells(lr, 1) = Me.Label1.Caption
                .Cells(lr, 2) = Me.ListBox2.List(i)
                lr = lr + 1
            End If
        Next i
    End With
End Sub
[/vba]
К сообщению приложен файл: -1-1.xls(96Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеkamarali, переносятся данные из ListBox2 у которых checked=true
[vba]
Код
Private Sub CommandButton4_Click()
    Dim i%, lr&
    With ThisWorkbook.Sheets("Отчет")
        lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        For i = 0 To Me.ListBox2.ListCount - 1
            If Me.ListBox2.Selected(i) Then
                .Cells(lr, 1) = Me.Label1.Caption
                .Cells(lr, 2) = Me.ListBox2.List(i)
                lr = lr + 1
            End If
        Next i
    End With
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 18.08.2016 в 17:29
kamarali Дата: Четверг, 18.08.2016, 22:46 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Большое спасибо и все работает. Возможно ли еще один вопрос как в лист боксе расположить фамилии по алфавиту.
Me.ListBox1.Sorted = True
выдает ошибку.


Сообщение отредактировал kamarali - Пятница, 19.08.2016, 06:58
 
Ответить
СообщениеБольшое спасибо и все работает. Возможно ли еще один вопрос как в лист боксе расположить фамилии по алфавиту.
Me.ListBox1.Sorted = True
выдает ошибку.

Автор - kamarali
Дата добавления - 18.08.2016 в 22:46
parovoznik Дата: Пятница, 19.08.2016, 10:07 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 5 ±
Замечаний: 0% ±

Excel 2007
Свойство sorted-это в visual basic net.
Надо писать код
 
Ответить
СообщениеСвойство sorted-это в visual basic net.
Надо писать код

Автор - parovoznik
Дата добавления - 19.08.2016 в 10:07
parovoznik Дата: Пятница, 19.08.2016, 15:38 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 5 ±
Замечаний: 0% ±

Excel 2007
Посмотрите файл. Вроде бы получилось :D
К сообщению приложен файл: Sorted_listBox.rar(27Kb)
 
Ответить
СообщениеПосмотрите файл. Вроде бы получилось :D

Автор - parovoznik
Дата добавления - 19.08.2016 в 15:38
kamarali Дата: Воскресенье, 21.08.2016, 22:02 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
parovoznikспасибо за участие.
Нет сортировка не работает в предложенном файле.
Нашел пример на сайта Большого Била она. показана на примере (см ниже)
Как я понимаю в предложенном коде как и в вашей сортируются на листе а потом переносятся в листбокс.

[vba]
Код
Sub SortData()

'Building data to sort on the active sheet.
Range("A1").Value = "Name"
Range("A2").Value = "Bill"
Range("A3").Value = "Rod"
Range("A4").Value = "John"
Range("A5").Value = "Paddy"
Range("A6").Value = "Kelly"
Range("A7").Value = "William"
Range("A8").Value = "Janet"
Range("A9").Value = "Florence"
Range("A10").Value = "Albert"
Range("A11").Value = "Mary"
MsgBox "The list is out of order. Hit Ok to continue...", vbInformation

'Selecting a cell within the range.
Range("A2").Select

'Applying sort.
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A2:A11"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A1:A11")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
MsgBox "Sort complete.", vbInformation

End Sub
[/vba]


Сообщение отредактировал kamarali - Воскресенье, 21.08.2016, 22:09
 
Ответить
Сообщениеparovoznikспасибо за участие.
Нет сортировка не работает в предложенном файле.
Нашел пример на сайта Большого Била она. показана на примере (см ниже)
Как я понимаю в предложенном коде как и в вашей сортируются на листе а потом переносятся в листбокс.

[vba]
Код
Sub SortData()

'Building data to sort on the active sheet.
Range("A1").Value = "Name"
Range("A2").Value = "Bill"
Range("A3").Value = "Rod"
Range("A4").Value = "John"
Range("A5").Value = "Paddy"
Range("A6").Value = "Kelly"
Range("A7").Value = "William"
Range("A8").Value = "Janet"
Range("A9").Value = "Florence"
Range("A10").Value = "Albert"
Range("A11").Value = "Mary"
MsgBox "The list is out of order. Hit Ok to continue...", vbInformation

'Selecting a cell within the range.
Range("A2").Select

'Applying sort.
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SortFields.Clear
.SortFields.Add Key:=Range("A2:A11"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("A1:A11")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
MsgBox "Sort complete.", vbInformation

End Sub
[/vba]

Автор - kamarali
Дата добавления - 21.08.2016 в 22:02
parovoznik Дата: Понедельник, 22.08.2016, 09:26 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 149
Репутация: 5 ±
Замечаний: 0% ±

Excel 2007
kamarali, я поверил на своем примере все работает. Занес в базу клиента. Закрыл файл и сохранил. Открыл и все по алфавиту.
Спасибо Вам закод сортировки. . Забираю в свою копилку.
 
Ответить
Сообщениеkamarali, я поверил на своем примере все работает. Занес в базу клиента. Закрыл файл и сохранил. Открыл и все по алфавиту.
Спасибо Вам закод сортировки. . Забираю в свою копилку.

Автор - parovoznik
Дата добавления - 22.08.2016 в 09:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ListBox перенос на лист с листбокса данных (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!