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

Вход

Регистрация

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

 

= Мир MS Excel/При выборе данных в listbox выделение строки. На листе встав - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При выборе данных в listbox выделение строки. На листе встав (Макросы/Sub)
При выборе данных в listbox выделение строки. На листе встав
amurblaga83 Дата: Среда, 21.06.2023, 13:42 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
При выборе данных в listbox выделение строки. На листе в ячейку вставить данные из массива на соседнем листе. Согласно выбранной строки.

Пример что получилось и куда (нужно) поставить данные из таблицы.
Если сможете помочь, заранее благодарен.
К сообщению приложен файл: index2.xlsm (31.3 Kb)
 
Ответить
СообщениеПри выборе данных в listbox выделение строки. На листе в ячейку вставить данные из массива на соседнем листе. Согласно выбранной строки.

Пример что получилось и куда (нужно) поставить данные из таблицы.
Если сможете помочь, заранее благодарен.

Автор - amurblaga83
Дата добавления - 21.06.2023 в 13:42
RAN Дата: Среда, 21.06.2023, 17:18 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1162 ±
Замечаний: 0% ±

2010
[vba]
Код
Private Sub ListBox1_Click()
    [BD2] = ListBox1.List(ListBox1.ListIndex, 1)
    [BD3] = ListBox1.List(ListBox1.ListIndex, 0)
    [BD4] = ListBox1.List(ListBox1.ListIndex, 3)
    [BR2] = ListBox1.List(ListBox1.ListIndex, 2)
End Sub

Private Sub TextBox1_Change()
    Dim LastRow As Long, i As Long, x As Long, Arr()
    Me.ListBox1.Clear
    If TextBox1 = "" Then Exit Sub
    With Sheets("base_online")
        LastRow = .Cells(Rows.Count, 3).End(xlUp).Row
        Arr = .Range(.Cells(3, 2), .Cells(LastRow, 5)).Value
    End With
    With ListBox1
        For i = 1 To UBound(Arr)
            If UCase(Arr(i, 2)) Like UCase(Me.TextBox1) & "*" Then
                .AddItem
                .List(ListBox1.ListCount - 1, 0) = Arr(i, 2)
                .List(ListBox1.ListCount - 1, 1) = Arr(i, 1)
                .List(ListBox1.ListCount - 1, 2) = Arr(i, 3)
                .List(ListBox1.ListCount - 1, 3) = Arr(i, 4)
            End If
        Next
    End With
End Sub
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Private Sub ListBox1_Click()
    [BD2] = ListBox1.List(ListBox1.ListIndex, 1)
    [BD3] = ListBox1.List(ListBox1.ListIndex, 0)
    [BD4] = ListBox1.List(ListBox1.ListIndex, 3)
    [BR2] = ListBox1.List(ListBox1.ListIndex, 2)
End Sub

Private Sub TextBox1_Change()
    Dim LastRow As Long, i As Long, x As Long, Arr()
    Me.ListBox1.Clear
    If TextBox1 = "" Then Exit Sub
    With Sheets("base_online")
        LastRow = .Cells(Rows.Count, 3).End(xlUp).Row
        Arr = .Range(.Cells(3, 2), .Cells(LastRow, 5)).Value
    End With
    With ListBox1
        For i = 1 To UBound(Arr)
            If UCase(Arr(i, 2)) Like UCase(Me.TextBox1) & "*" Then
                .AddItem
                .List(ListBox1.ListCount - 1, 0) = Arr(i, 2)
                .List(ListBox1.ListCount - 1, 1) = Arr(i, 1)
                .List(ListBox1.ListCount - 1, 2) = Arr(i, 3)
                .List(ListBox1.ListCount - 1, 3) = Arr(i, 4)
            End If
        Next
    End With
End Sub
[/vba]

Автор - RAN
Дата добавления - 21.06.2023 в 17:18
amurblaga83 Дата: Среда, 21.06.2023, 17:25 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
Спасибо попробую утром
 
Ответить
СообщениеСпасибо попробую утром

Автор - amurblaga83
Дата добавления - 21.06.2023 в 17:25
amurblaga83 Дата: Четверг, 22.06.2023, 08:56 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

2016
Работает спасибо
 
Ответить
СообщениеРаботает спасибо

Автор - amurblaga83
Дата добавления - 22.06.2023 в 08:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При выборе данных в listbox выделение строки. На листе встав (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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