ListBox выделение строки

Старая форма входа

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

ListBox выделение строки (Макросы/Sub)

urlchik

Дата: Вторник, 23.01.2018, 18:22 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 68

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

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

Excel 2010

Привет всем! Не могу решить вопрос...
Есть форма, на ней ЛистБокс. Этот ЛистБокс отображает диапазон, указанный через свойство RowSourse A2:L500

Как при запуске формы выделить первую или последнюю строку ЛистБокса я нашел, а как выделить последню ЗАПОЛНЕННУЮ (не пустую) строку - не могу решить.

Заранее благодарю!
в VBA я = 0!

Век живи - век учись!

Ответить

krosav4ig

Дата: Вторник, 23.01.2018, 18:52 | Сообщение № 2

Группа: Друзья

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

Сообщений: 2347

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

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

Excel 2007,2010,2013

Зравствуйте

Цитата urlchik, 23.01.2018 в 18:22, в сообщении № 1 ()

выделить последню ЗАПОЛНЕННУЮ (не пустую) строку

а оно вам надо?
[vba]

Код

Private Sub UserForm_Initialize()
    With ActiveSheet
        Me.ListBox1.RowSource = .Range(.[A2], .Cells(.Rows.Count, "L").End(xlUp)).Address(0, 0, 1, 1)
    End With
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

urlchik

Дата: Среда, 24.01.2018, 09:38 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 68

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

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

Excel 2010

krosav4ig, Спасибо! Просто есть форма с листбоксом, а в нем огромный список, след.строка заполняется на основе предыдущей через текстбоксы. Оно мне надо чтоб каждый раз не листать до конца списка.

Но у меня чего-то не сработало! А несработало, наверное, это with activSheet - это значит на активном листе, а мне надо выделить строку в листбоксе! Нарыл вот такой метод, но работает через раз - иногда выделяется пустая строка далеко ниже конца списка

[vba]

Код

UserForm.ListBox1.ListIndex = Cells.SpecialCells(xlLastCell).row - 2

[/vba]

Офис 2010

Век живи - век учись!

Сообщение отредактировал urlchik - Среда, 24.01.2018, 11:02

Ответить

RAN

Дата: Среда, 24.01.2018, 13:44 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата urlchik, 24.01.2018 в 09:38, в сообщении № 3 ()

но работает через раз - иногда

Иногда погода в Африке совпадает с нужной вам.
Исключительно решение озвученного вопроса (к тому, что нужно, и как нужно, отношения не имеет)
[vba]

Код

Private Sub CommandButton1_Click()
    With Me.ListBox1
        For i = .ListCount - 1 To 0 Step -1
            For j = .ColumnCount - 1 To 0 Step -1
                If Len(.List(i, j)) Then MsgBox "Row " & i: Exit Sub
            Next
        Next
    End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

ListBox выделение строки (Макросы/Sub)

Страница 1 из 1
1