Выделение найденого из списка в ListBox

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение найденого из списка в ListBox (Иное/Other)

damask_86ru

Дата: Понедельник, 23.05.2016, 22:07 | Сообщение № 1

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

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

Сообщений: 60

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

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

Excel 2010

Доброго времени суток!
В файле есть форма, на которой расположены ListBox1 со списком (Вася, Петя, Саня), есть три CommandButton с соответствующими списку в ListBox1 надписями, которые после нажатия на них отображаются в Label1.
Так вот, как выделить в ListBox1 ту надпись, что отображается в Label1.

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

Ответить

wild_pig

Дата: Понедельник, 23.05.2016, 22:55 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 517

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

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

2003, 2013

Пройтись по значениям listbox и при совпадении выделить строку
[vba]

Код

Private Sub ListSelect()
    Dim i&
'-----------
    With ListBox1
        For i = 0 To .ListCount - 1
            If .List(i) = Label1 Then
                .ListIndex = i
                Exit For
            End If
        Next
    End With
End Sub

[/vba]
Добавить запуск кода в каждую кнопку