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.
