ListBox Поднять опустить, строку.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

ListBox Поднять опустить, строку. (Макросы/Sub)

lopuxi

Дата: Четверг, 11.02.2016, 14:18 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 142

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007, 2013

Добрый день.
У меня что-то не получается корректно поднять выделенную строку в Listbox, во второй колонке.
А еще ее надо опустить.

Суть того что я хочу довольно проста. Просто перемещать выделенную строку в ListBox вверх и вниз.

Я приложу файл, где все ОК, с первой колонкой. А со второй нет. Почему то при поднятии, к примеру выделенной строки №5, элемент во второй колонке поднимается не корректно...
И я ни как не пойму, что именно делаю не так. У меня такое ощущение что все не так...
Не ругайте строго :-)

К сообщению приложен файл: ListBox.xlsm (24.5 Kb)

О_о ...и так можно было?

Сообщение отредактировал lopuxi - Четверг, 11.02.2016, 14:29

Ответить

Manyasha

Дата: Четверг, 11.02.2016, 17:01 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

lopuxi, вроде так:
[vba]

Код

Private Sub ButtonUP_Click()
    Dim ListUP As Integer
    With ListBox2
        ListUP = .ListIndex
        If ListUP > 1 Then
            .AddItem .List(ListUP, 0), ListUP - 1
            .Column(1, ListUP - 1) = .List(ListUP + 1, 1)
            .RemoveItem ListUP + 1
            .ListIndex = ListUP - 1
        End If
    End With
End Sub

[/vba][vba]

Код

Private Sub ButtonDown_Click()
    Dim ListDown As Integer
    With ListBox2
       ListDown = .ListIndex
       If ListDown < ListBox2.ListCount - 1 And ListDown > 0 Then
           .AddItem .List(ListDown), ListDown + 2
           .Column(1, ListDown + 2) = .List(ListDown, 1)
           .RemoveItem ListDown
           .ListIndex = ListDown + 1
       End If
    End With
End Sub

[/vba]