Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Добавление зависимого текста в TextBox при клике LisrBox
 
#1
11.10.2024 21:44:12
Добрый день, есть форма с тремя зависимыми ListBox, по ним все норм, столкнулся с проблемой отражения зависимого текста от ListBox_3 в TextBox_2, есть вкладка "Лист1" откуда тянуться данные, при выборе ListBox_3 (данные по нему в столбце "С") нужно чтобы текст из столбца "D" подтягивался в TextBox_2,  
 
 
 
#2
11.10.2024 21:55:59
Добрый.Так?
 
 
 
#3
12.10.2024 09:23:06
doober, Да, то что надо. Спасибо огромное.
 
 
 
#4
12.10.2024 14:52:03
 doober, а как сделать чтобы отражались еще данные из столбцов правее? Т.е. в TextBox1 отразились данные из столбца D, а если добавить еще данные в столбец E и они отражаться будут дополнительно в TextBox2/
 
 
 
#5
12.10.2024 15:02:15
По аналогии с кодом
Код
Private Sub ListBox2_Change()
    ListBox3.Clear
    With CreateObject("scripting.dictionary")
        For i = 2 To Worksheets("Лист1").Cells(Rows.Count, 3).End(xlUp).Row
            If ListBox2.Value = Worksheets("Лист1").Cells(i, 2) Then
                If Not .Exists(Trim(Worksheets("Лист1").Cells(i, 3))) Then
                    .Add Trim(Worksheets("Лист1").Cells(i, 3)), i
                    ListBox3.AddItem Worksheets("Лист1").Cells(i, 3).Value
                    ListBox3.List(ListBox3.ListCount - 1, 1) = Worksheets("Лист1").Cells(i, 4).Value
                     ListBox3.List(ListBox3.ListCount - 1, 2) = Worksheets("Лист1").Cells(i, 5).Value
                
                End If
            End If
        Next i
    End With
End Sub
Private Sub ListBox3_Click()
If ListBox3.ListIndex = -1 Then Exit Sub
   TextBox1.Value = ListBox3.List(ListBox3.ListIndex, 1)
  TextBox2.Value = ListBox3.List(ListBox3.ListIndex, 2)
End Sub
 
 
 
#6
12.10.2024 15:17:16
doober, Спасибо
 
 
 
Страницы: 1
Читают тему
Наверх