Công cụ AutoFilter cũng đáp ứng được nhu cầu của bạn rồi, sao bạn không dùng?
Ủa đâu cần phải rê tìm gì đâu bạn? AutoFilter cũng cho phép bạn nhập từ khóa dò tìm mà
Bạn dùng:
Dim a(), b(), i As Long, k As Long, x, y, z, LR, j
With Sheet1
a = .Range("A4", .Range("A65000").End(3)).Resize(, 8).Value
LR = UBound(a)
End With
x = Sheet1.Range("B2"): y = Sheet1.Range("C2")
ReDim b(1 To LR, 1 To 8)
With Sheet1
For i = 1 To LR
If Month(a(i, 2)) = x And a(i, 3) = y Then
k = k + 1
b(k, 1) = k
For j = 2 To 8
b(k, j) = a(i, j)
Next j
End If:
Next i
Sheet1.Range("J4:Q1000").ClearContents
If k Then
With Sheet1
.Range("J4").Resize(k, 8) = b
End With
End If
End WithVậy bạn dùng Autofilter cho khỏe, code cũng tương tự.
Em thấy lời khuyên của Anh ndu96081631 rất hay đấy chứ. nếu chị muốn "gõ" thì "gõ" cho nó đúng là được (Ví dụ: tháng 01 gõ "Jan", 02 là Feb, 03 là Mar .... ) Code làm gì cho cực ? nếu như chị vẫn muốn sử dụng VBA thì em gợi ý sử dụng event WS_change với 2 cell B2 & C2 là đc.
