Nhờ tạo dùm texbox tìm kiếm trên UserFỏm

[LYLY63]

Chào mọi người,
mình có 1 file excel đã tạo form nhập số liệu ,nay cần tạo thêm listbox, làm mấy hôm vẩn bị lỗi, mong mọi người chỉ giúp cám ơn mọi người,,,

mình đã tạo 1 texbox và 1 listbox, mình cần đánh tên khách hoặc số Inv thì listbox sẽ hiện ra hết thông tin, đồng thời đưa dữ liệu từ ô ListBox sang TextBox .

mình đọc được 1 Web hướng dẫn làm theo những không hiện ra , mong mọi người chỉ giúp , xin cám ơn......

Code cho nút tìm kiếm:

Private Sub Userform_intialize() '// thiet lap form de tim kiem
Me.txtSearch.SetFocus
End Sub

Private Sub btnSearch_Click() '// tim kiem du lieu
On Error Resume Next
Me.ListBox1.Clear
Me.ListBox1.AddItem Sheet1.Cells(1, "A")
For B = 2 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, B - 1) = Sheet1.Cells(1, B)
Next B
Me.ListBox1.Selected(0) = True
Dim i As Long
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For x = 1 To 6
a = Len(Me.txtSearch.Text)
If Left(Sheet1.Cells(i, x).Value, a) = Me.txtSearch.Text And Me.txtSearch.Text <> "" Then
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
For c = 1 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, c) = Sheet1.Cells(i, c + 1).Value
Next c
End If
Next x
Next i
End Sub

Code đưa dữ liệu từ ô ListBox sang TextBox

Private Sub ListBox1_Click()
On Error Resume Next
Me.txtMa.Text = ListBox1.List(ListBox1.ListIndex, 0)
Me.txtDate.Text = ListBox1.List(ListBox1.ListIndex, 1)
Me.txtTen.Text = ListBox1.List(ListBox1.ListIndex, 2)
Me.txtNgaysinh.Text = ListBox1.List(ListBox1.ListIndex, 3)
Me.txtNghenghiep.Text = ListBox1.List(ListBox1.ListIndex, 4)
Me.txtDiachi.Text = ListBox1.List(ListBox1.ListIndex, 5)
End Sub

 

[SA_DQ]

mình đã tạo (3) 1 texbox và 1 listbox, mình cần đánh (2) tên khách hoặc (1) số Inv thì listbox sẽ hiện ra hết thông tin, đồng thời đưa dữ liệu từ ô ListBox sang TextBox .

A
1) mình có thể đoán mò là cột đầu (Số Inv-HĐ) Nhưng để người có nhã ý giúp bạn phải đón mò là chưa được lịch sự cho lắm!
(2) Cái này mình thực sự không thể đón ra, nhất là tên trường lại nữa tây nữa ta (!?)
(3) Trên Form của bạn không chỉ có 1 TextBox duy nhất, mà hàng hà sa số các TextBox, vậy TextBox này mà bạn muốn nói đến có tên là gì vậy?
Nhũ với bạn: Không nên viết những gì mình hiểu mà nên viết những gì để người khác hiểu!

B Hiện tại ListBox1 của bạn chỉ có 1 cột, vậy nếu tìm ra được dữ liệu cần tìm thì trên nó cần hiện cột (trường) nào trong 2 cột đang cần tìm?

Chúc mọi người vui vẻ nhân dịp xuân về!

 

[Excel my love_1]

Chào mọi người,
mình có 1 file excel đã tạo form nhập số liệu ,nay cần tạo thêm listbox, làm mấy hôm vẩn bị lỗi, mong mọi người chỉ giúp cám ơn mọi người,,,

mình đã tạo 1 texbox và 1 listbox, mình cần đánh tên khách hoặc số Inv thì listbox sẽ hiện ra hết thông tin, đồng thời đưa dữ liệu từ ô ListBox sang TextBox .

mình đọc được 1 Web hướng dẫn làm theo những không hiện ra , mong mọi người chỉ giúp , xin cám ơn......

Code cho nút tìm kiếm:


Code đưa dữ liệu từ ô ListBox sang TextBox

Bạn tham khảo file được gửi ở #5 của Link này

Giúp Code Userform tìm kiếm

Anh chị giúp em code tìm kiếm: VD khi đánh chữ "cắt" thì sẽ tìm được những dòng nào có chữ cắt hiện lên form, khi kích đúp vào thì sẽ đi đến vị trí dòng đó Mong anh chị giúp đỡ em!

www.giaiphapexcel.com

Trong bài đó chủ thớt chỉ mong muốn Trong file đó chỉ đơn thuần tìm kiếm; Bạn dựa vào Form đó để nhồi vào form của bạn nhé
Mình cũng chỉ đơn thuần copy paste code vào thôi hy vọng bạn cũng sẽ paste thành công vào form của bạn