Gửi bởi
Mr Okebab
[SIZE=3]Mình muốn dùng VBA mà không muốn tạo ra name động mới.
Nếu muốn dùng VBA liên quan đến mảng Mr.Okebab có thể sử dụng
http://home.pacbell.net/beban/
Trong đó có hàm
From Mr OKEBAB:
Cụ thể đi bác ơi, không hiểu lắm. Bác làm theo VD trên kia cho em hiểu, chứ theo ý bác thì có mà . . . chết em (thông cảm, trình độ có hạn nhưng ham muốn lại lớn)
Cảm ơn các bác nhiều!!!
LVD
Có nghĩa là nếu bạn đưa vào một mảng và đưa vào điều kiện lọc thì hàm này sẽ trả về một mảng kết quả tương ứng.
Ví dụ:
Mã:
Sub TestArrayFilter()
Dim OutputArr As Variant
Dim rngRange As Range
Set rngRange = Range("DATAARRAY")
OutputArr = ArrayRowFilter1(rngRange, 1, "PN002")
MsgBox "So cot cua mang la: " & UBound(OutputArr, 2) & vbCrLf & _
"So hang cua mang ket qua la: " & UBound(OutputArr, 1), vbOKOnly, "Thong bao"
Application.Worksheets("Sheet1").Range("OutPut") = OutputArr
End Sub
Được chưa? [IMG]images/smilies/a12.gif[/IMG]
Lê Văn Duyệty