Tại sao phải xoá mà không phải là lấy ra kết quả là những điều kiện bạn cho trước từ bảng dữ liệu?
Dạ xóa đi cho gọn rồi mới lấy kết quả trong những hàng còn lại bác ah, sợ ghi điều kiện ra nhiều quá mấy bác đọc nó rối nên e chỉ ghi trước 2 bước đầu thôi ah. Mong bác giúp e.
Bạn thử miêu tả điều kiện để lấy dữ liệu của bạn từ Sheet1 xem sao nhé.
E ghi lại điều kiện lấy dữ liệu trong file đính kèm.
Bạn xem file đính kèm xem đúng ý bạn không nhé ? Tạm thời mình cho ẩn các dòng theo bạn phải xóa đi . Nhưng nếu không đúng thì mất dữ liệu . Tạm vậy nhé !
Đúng rồi bạn, không xóa cũng được bạn. Bạn xem file đính kèm bài 5 mình ghi đầy đủ yêu cầu cho lọc dữ liệu. Bạn giúp mình nhé.
Trời đất ! Mình làm bài 1 khi thầy Hai lúa chưa hỏi thì mình làm nốt . Giờ bạn chờ thày giúp đi...đừng sốt ruột.
Chạy thử code sau rồi phản hồi tiếp
Sub LayDL()
Dim cnn As Object
Dim rst As Object
Set cnn = CreateObject("ADODB.Connection")
cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 8.0;Hdr=No""")
Set rst = cnn.Execute("Select * from (Select * from [Data$] where F16 < " & Sheets("Sheet2").Range("O10") & _
") where F12<F4 or F12<F5")
Sheet3.Range("A2").CopyFromRecordset rst
End Sub
Bạn xem thử File này cứ nhập số vô O10 sheet2 là sẽ tự cập nhật.
Sao giá trị trong Q3, Q4 lại trùng E11, E12 vậy bạn. Lọc theo thứ tự E11, E12 xong rồi tiếp hàng kế tiếp để đưa giá trị vô Q3, Q4, R3, R4...
Chủ topic phản hồi thì sửa tiếp. Còn cỡ "chàng" tự nếu muốn tự sửa phát một. Còn hông muốn thì càng hông cần sửa
Nếu không nhìn ra code của Giang huynh đệ "xui" ở đâu thì cũng hông chế cho dữ liệu chạy sai được Giang huynh đệ àChủ topic phản hồi thì sửa tiếp. Còn cỡ "chàng" tự nếu muốn tự sửa phát một. Còn hông muốn thì càng hông cần sửa
Cái file đó có 256 cột thôi. "Soi" quá ai mà chịu cho nổi. huhu
Bác xem sửa giùm lỗi bài 12 giùm e cái. Thanks.Chủ topic phản hồi thì sửa tiếp. Còn cỡ "chàng" tự nếu muốn tự sửa phát một. Còn hông muốn thì càng hông cần sửa
Giang huynh đệ yên tâm là tại hạ không bao giờ đi hỏi thăm những cái vớ vẩn như Sheet thì có bao nhiêu cột đâu à
ElseIf Arr(I, 2) > Arr(I, 1) And Arr(I, 2) > Arr(I, 9) Then
vlArr(2, [SIZE=5][B]K[/B][/SIZE]) = Arr(I, 13)À. Cảm ơn nhiều nhé. hehe
Bạn tải lại file bài 11 nhé. Không được cũng chạy luôn. GPE giờ có "thánh soi" nên dễ bị hại não quá.
Cảm ơn bác, Cái module1 không có tác dụng trong bài toán, xóa nó đi được đúng không bác? Ý e là xóa cái sheet Data và KetQua đi, không sử dụng nó mà sử dụng sheet1 và sheet2 thôi.
