Nhờ tạo nhãn tìm kiếm danh sách trong EXCEL (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Tran Mui

Thành viên thường trực
Tham gia
29/12/07
Bài viết
237
Được thích
56
Nhờ GPE giúp tạo nhãn tìm kiếm trong Sheet 1, tìm học sinh trong danh sách ở Sheet 2
File đính kèm
Xin cám ơn
 

File đính kèm

File đính kèm

Tận dụng ngay phần đầu sheet đỡ tạo form (Nếu cần tạo form thì chuyển code qua)
Mã:
Sub Button1_Click()
Dim tam, Kq(), i, j, n, Dk
ReDim Kq(1 To 1000, 1 To 10)
If Left([c2], 1) = 1 Then
Dk = [d2]
ElseIf Left([c2], 1) = 2 Then
Dk = [d2] & "*"
ElseIf Left([c2], 1) = 3 Then
Dk = "*" & [d2] & "*"
ElseIf Left([c2], 1) = 4 Then
Dk = "*" & [d2]
End If
tam = Sheet2.Range("A5:j" & Sheet2.[c10000].End(3).Row)
For i = 1 To UBound(tam, 1)
If tam(i, 3) Like Dk Then
n = n + 1
For j = 1 To 10
Kq(n, j) = tam(i, j)
Next j
End If
Next i
Sheet1.[a9:j1000].Clear
Sheet1.[a9:j1000] = Kq
Sheet2.[a6:J6].Copy
Sheet1.Range("A9:J" & n + 9).PasteSpecial Paste:=xlPasteFormats
Sheet1.[c2].Select
End Sub
 

File đính kèm

Sao mở file ra mà lại không click vào thanh search được các Pác ơi, toàn yêu cầu enable macro gì gì đó, em enable rồi disable mãi chả được. Các Pác chỉ giáo giúp với ạ. Big thanks.
 
Web KT

Bài viết mới nhất

Back
Top Bottom