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

Вход

Регистрация

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

 

= Мир MS Excel/Выделение найденого из списка в ListBox - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение найденого из списка в ListBox (Иное/Other)
Выделение найденого из списка в ListBox
damask_86ru Дата: Понедельник, 23.05.2016, 22:07 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

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

Автор - damask_86ru
Дата добавления - 23.05.2016 в 22:07
wild_pig Дата: Понедельник, 23.05.2016, 22:55 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 489
Репутация: 91 ±
Замечаний: 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]
Добавить запуск кода в каждую кнопку
 
Ответить
СообщениеПройтись по значениям 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]
Добавить запуск кода в каждую кнопку

Автор - wild_pig
Дата добавления - 23.05.2016 в 22:55
Karataev Дата: Вторник, 24.05.2016, 14:06 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 890
Репутация: 336 ±
Замечаний: 0% ±

Excel
[vba]
Код
Private Sub CommandButton1_Click()
    Label1.Caption = CommandButton1.Caption
    Me.ListBox1.Value = Label1.Caption
End Sub
[/vba]


 
Ответить
Сообщение[vba]
Код
Private Sub CommandButton1_Click()
    Label1.Caption = CommandButton1.Caption
    Me.ListBox1.Value = Label1.Caption
End Sub
[/vba]

Автор - Karataev
Дата добавления - 24.05.2016 в 14:06
damask_86ru Дата: Вторник, 24.05.2016, 22:52 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
wild_pig, Karataev, спасибо!
 
Ответить
Сообщениеwild_pig, Karataev, спасибо!

Автор - damask_86ru
Дата добавления - 24.05.2016 в 22:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение найденого из списка в ListBox (Иное/Other)
Страница 1 из 11
Поиск:

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