[حل شده] حل مشکل یک تازه کار

[amirjjc]

سلام ببخشید من تازه vb رو شروع کردم ، داشتم یه چیز کوچیکو ادیت میکردم برای خودم ، برای یه جاش مشکل بر خوردم ، یکی اینکه چجوری قسمت های علامت گذاری شده در جستجو رو بیارم داخل باکس سفید ، دوم اینکه قسمت شماره پرونده رو چجوری بیارم تو قسمت جستجو ، ممنون میشم راهنمایی یا رفع اشکال بشه

[amirjjc]

ببخشید کسی نبود کمکم کنه ؟

[iranweld]

با سلام

در فایل پیوست مورد جستجو برای تکست باکس اول انجام شد.

Private Sub TextBox1_Change()

ListBox1.Clear

ListBox1.ColumnCount = 5

ListBox1.ColumnWidths = "80;80;80;80;80"

z1 = Cells(Rows.Count, "C").End(xlUp).Row

Set Rng = Sheet4.Range("C2:C" & z1)

For Each cell In Rng

If Len(TextBox1) And TextBox1 = Left(cell, Len(TextBox1)) Then

ListBox1.AddItem cell

For i = 1 To 5
                      
    ListBox1.List(ListBox1.ListCount - 1, i - 1) = Cells(cell.Row, i + 1)
    
    Next i
    
    End If
    
    Next cell
    
End Sub 

[amirjjc]

ممنون ازتون