Sub Timkiem()
Dim sArr(), dArr()
Dim i As Long, j As Long, k As Long
Dim MaTv, BoPhan
With Sheet1
sArr = .Range("C4", .Range("C65535").End(3)).Resize(, 20).Value2
End With
ReDim dArr(1 To UBound(sArr), 1 To 20)
MaTv = Sheet2.Range("E8"): BoPhan = Sheet2.Range("E5")
For i = 1 To UBound(sArr)
If sArr(i, 1) = BoPhan Then
If sArr(i, 3) = MaTv Then
k = k + 1
dArr(k, 1) = sArr(i, 2) 'Thanh Vien
dArr(k, 2) = sArr(i, 3) ' Ma TV
dArr(k, 4) = sArr(i, 4) 'Chuc vu
dArr(k, 5) = sArr(i, 6) 'So ngay lam viec
dArr(k, 6) = sArr(i, 12) 'Phu cap
dArr(k, 7) = sArr(i, 13) 'Thuong
dArr(k, 8) = sArr(i, 20) 'Thuc lanh
End If
End If
Next i
With Sheet2
.Range("C15:J65535").Borders.LineStyle = xlNone
.Range("C15:J65535").ClearContents
If k Then
.Range("C15").Resize(k, 8) = dArr
.Range("C15").Resize(k, 8).Borders.LineStyle = 1
Else
MsgBox "Khong tim thay du lieu", vbInformation, "Thong bao"
End If
End With
End Sub
