Em đang lập hóa đơn tự động "Hóa đơn nhanh" theo 2 đk là ngày và tên KH. Hiện tại e đang gặp rắc rối ở việc trích xuất dữ liệu nếu trích xuất bằng chức năng
Advanced Filter thì không hợp với ý định . nó sẽ liệt kê cả sản phẩm không có và chỉ dàn hàng ngang em muốn nó theo đúng ý đồ như trong sheet "Hóa đơn nhanh". Hi vọng anh hoặc chị chỉ giáo
Mình đề nghị dùng VBA( marco) , bạn nghiên cứu và thử viết code --> trong quá trình viết code nếu có gì vướng mắc thì pm lại vào topic này
Mình cũng đưa ra 1 đoạn code để bạn tham khảo --> bạn phải tự tuỳ biến để code đó trở thành của chính bạn
[GPECODE=vb]
Sub HDN()
Dim n As Long, i As Long, j As Long
Dim tmp(), Arr, sArr, KH As String, Ng
sArr = Sheet2.Range("A1:W1000").Value
tmp = Sheet1.Range("A1:W1000").Value
ReDim Arr(1 To 5, 1 To 21)
KH = CStr(Trim([B4])): Ng = CStr(Trim([A4]))
For i = 1 To UBound(sArr, 1)
If CStr(Trim(sArr(i, 1))) = Ng And CStr(Trim(sArr(i, 2))) = KH Then
For j = 3 To 23
If Len(sArr(i, j)) Then
n = n + 1
Arr(n, 1) = n
Arr(n, 2) = sArr(1, j)
Arr(n, 3) = sArr(i, j)
Arr(n, 4) = Gia(tmp, KH, CStr(Trim(Arr(n, 2))))
Arr(n, 5) = Arr(n, 3) * Arr(n, 4)
End If
Next
Exit For
End If
Next
[A6:E1000].ClearContents
[A6:E6].Resize(n) = Arr
End Sub[/GPECODE]