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.
Bạn cứ xóa 2 sheet với cái module1 đi nếu bạn không cần tới. Thử là biết ngay có xóa được hay không ấy mà.
Ok bác, nhưng bài toán so sánh cột D, E, L trong sheet1 không đúng khi e cho giá trị trong cột L nhỏ hơn 2 cột kia thì khi chạy đúng ra E12=0.42882, tiếp hàng nữa thì Q4=0.508906 chứ bác. Bác xem file đính kèm giúp e nhé. Thanks.
Không xảy ra trường hợp đó bạn ah? Vì giá trị cột P tăng từ trên xuống dưới bác ah.công nhận số mình đen chạy code cứ lỗi hoài
Chủ topic cho hỏi nếu O10 = 1.3 mà P12 = 1 thì có lọc hàng 12 không đó ?
Lần này lại cho D1 và E1 bằng nhau. Dòng 2 chơi lại chiêu cũ chứ gì.
ờ vậy cũng vui , Như thế là có người lại "hên" tập 2
"Chàng" giúp luôn đi. Giờ có "độ" tới tối luôn rồi.
ẹc , đang chơi vui mà bỏ đi sao ? Thôi được rồi , Giang huynh đệ đã mời thì tại hạ phải uống thôi
Public Sub GiangLeLoiNhoVietDum()
Dim arr, r As Long, lm As Double, k As Long, sIF(1 To 2, 1 To 2) As Long, i As Byte
arr = Sheet1.Range("A1:P" & Sheet1.[A65000].End(xlUp).Row).Value
sIF(1, 2) = 11: sIF(2, 2) = 12
With Sheet4
lm = Val(.[O10].Value)
.[E11:E12].ClearContents
.Range("Q3:Q4").Resize(, 200).ClearContents
For r = 1 To UBound(arr) Step 1
If arr(r, 16) > lm Then Exit For
If arr(r, 4) > arr(r, 12) Or arr(r, 5) > arr(r, 12) Then
If arr(r, 4) >= arr(r, 5) Then i = 1 Else i = 2
If sIF(i, 1) = 0 Then
.Range("E" & sIF(i, 2)) = arr(r, 16)
Else
.Range("Q2").Offset(i, sIF(i, 1) - 1).Value = arr(r, 16)
End If
sIF(i, 1) = sIF(i, 1) + 1
End If
Next
End With
End SubĐúng là cao thủ. Viết có vài dòng là khác hẳn mấy chục bài. Mốt đừng có "soi" nữa nha chàng. "Thiếp" sợ chàng rùi.
bạn í có vẻ tỉnh sớm , chắc uống toàn nước ngọt chăng ?
Không phải tỉnh sớm. Mà sắp bất tỉnh rồi vẫn nhớ GPE nên vô xem có gì "hot" không. "Giao lưu" thì chẳng ngán bao giờ. Có gì bữa khác mình sẽ "giao lưu". Giờ đã đến thiên đường "sung sướng". G9.
lòng kiên nhẫn của tôi không được đánh giá cao đâu , bạn mà cứ lâu lâu vô tỉa thêm 1 nhát là bạn tự làm luôn đó
Không đâu bác, xong cái này là hoàn thành rồi. Không dám phiền bác nữa đâu.
Ok rồi bác nhưng e muốn nó hiển thị như trong file đính kèm, hiển thị theo cột X Y X Y X Y sẽ so sánh và lọc phụ thuộc vào giá trị trong ô E11, E12, Q3, Q4, R3, R4, S 3, S4, T3, T4...của sheet2, có giá trị thì lọc, không có thì dừng.
