amurblaga83 |
Дата: Среда, 21.06.2023, 13:42 |
Сообщение № 1 |
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
 2016 | |
При выборе данных в listbox выделение строки. На листе в ячейку вставить данные из массива на соседнем листе. Согласно выбранной строки.
Пример что получилось и куда (нужно) поставить данные из таблицы. Если сможете помочь, заранее благодарен.
При выборе данных в listbox выделение строки. На листе в ячейку вставить данные из массива на соседнем листе. Согласно выбранной строки.
Пример что получилось и куда (нужно) поставить данные из таблицы. Если сможете помочь, заранее благодарен.amurblaga83
|
|
| Ответить
|
RAN |
Дата: Среда, 21.06.2023, 17:18 |
Сообщение № 2 |
|
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
| |
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
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
RAN
Быть или не быть, вот в чем загвоздка!
|
|
| Ответить
|
amurblaga83 |
Дата: Среда, 21.06.2023, 17:25 |
Сообщение № 3 |
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
 2016 | |
Спасибо попробую утром
|
|
| Ответить
|
amurblaga83 |
Дата: Четверг, 22.06.2023, 08:56 |
Сообщение № 4 |
|
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
 2016 | |
Работает спасибо
|
|
| Ответить
|