Xem Code tìm kiếm

[huancau]

tui có 1 frm_tim kiem có 1 TextBox txthoten và 1 cmdtimkiem khi nhập vào họ tên học sinh và nhấn vào nút TìmKiếm sẽ tìm kiếm thông tin học sinh trong DS_TrungTuyen. xem rùi tui đoạn code này với:::
Private Sub cmdtimkiem_Click()
Dim i As Integer, t As Integer, c As Integer, d As Integer
Dim chuoitim As String, chuoinhap As String

With Sheets("DS_TrungTuyen")
.Select
i = 0
t = 0
Do While .Range("B" & 132 + i).Select And ActiveCell.FormulaR1C1 <> ""
If chuoinhap = txthoten.Text Then
chuoitim = "*" & Replace(chuoinhap, " ", "*") & "*"
.Range("B" & 132 + i & ":J" & 132 + i).Select
Selection.Copy
.Range("S" & 132 + t).Select
ActiveSheet.Paste
t = t + 1
End If
i = i + 1
Loop
End With
End Sub

 

[Mr Okebab]

tui có 1 frm_tim kiem có 1 TextBox txthoten và 1 cmdtimkiem khi nhập vào họ tên học sinh và nhấn vào nút TìmKiếm sẽ tìm kiếm thông tin học sinh trong DS_TrungTuyen. xem rùi tui đoạn code này với:::
Private Sub cmdtimkiem_Click()
Dim i As Integer, t As Integer, c As Integer, d As Integer
Dim chuoitim As String, chuoinhap As String

With Sheets("DS_TrungTuyen")
.Select
i = 0
t = 0
Do While .Range("B" & 132 + i).Select And ActiveCell.FormulaR1C1 <> ""
If chuoinhap = txthoten.Text Then
chuoitim = "*" & Replace(chuoinhap, " ", "*") & "*"
.Range("B" & 132 + i & ":J" & 132 + i).Select
Selection.Copy
.Range("S" & 132 + t).Select
ActiveSheet.Paste
t = t + 1
End If
i = i + 1
Loop
End With
End Sub

Bạn Post File lên thì dễ cho mọi người hơn!!

Thân!

 

[chibi]

Tôi không hiểu tại sao bạn lại tìm từ dòng 132.
Theo tôi, bài toán của bạn nên giải quyết một cách đơn giản hơn. Hãy sử dụng chính công cụ tìm kiếm của Excel (Find), sau khi tìm thấy thì thiết kế một nút lệnh để in thông tin của dòng hiện tại (tìm thấy) ra mẫu kết quả trúng tuyển.

 

[mstfistlove]

đoạn code trên chẳng nhằm mục đích gì cả!

 

[SA_DQ]

đoạn code trên chẳng nhằm mục đích gì cả!

Có chứ bạn! Theo mình thì nó dùng để tìm họ tên trong 1 DS (danh sách); Khi tìm thấy thì Chép khối dữ liệu của record này đến nơi mới; Tạo ra 1 DS khác (có thể là HS thi đỗ hay thi trượt. . .

Tuy nhiên tác gia viết chưa chân phương lắm & còn có thể sửa đỏi đôi chỗ cho hợp lý hơn!
Nếu dùng các phương thức & thuộc tính của Range như End(XlUp), . . thì đỡ phải dùng một số biến đếm trong vòng lặp;
Ta có thể chỉ xài vòng lặp For .. Next cũng xong!

Chúc mừng xuân mới!