Tìm ngày không nằm trong vùng được chọn (1 người xem)

[Miccpro]

Em có 3 cột trong đó 2 cột dữ liệu ngày bắt đầu và ngày kết thúc, cột thứ 3 là cột từ Min(ngày bắt đầu) đến Max(ngày kết thúc). Giờ em muốn tìm những ngày ở cột thứ 3 mà không nằm trong 2 cột dữ liệu có được không ạ, giải bài toán bằng hàm hay VBA tiện hơn vì dữ liệu tương đối nhiều. Em xin cảm ơn cả nhà

 

[giangleloi]

Em có 3 cột trong đó 2 cột dữ liệu ngày bắt đầu và ngày kết thúc, cột thứ 3 là cột từ Min(ngày bắt đầu) đến Max(ngày kết thúc). Giờ em muốn tìm những ngày ở cột thứ 3 mà không nằm trong 2 cột dữ liệu có được không ạ, giải bài toán bằng hàm hay VBA tiện hơn vì dữ liệu tương đối nhiều. Em xin cảm ơn cả nhà

Tại I6 xài công thức sau rồi fill xuống. Sau đó Filter những giá trị bằng 0 là cái cần tìm. Thích có màu báo hiệu thì sử dụng Conditional Formatting.

=COUNTIF($E$6:$F$11,H6)

P/s: Dữ liệu nhiều là bao nhiêu vậy bạn? Cứ xài công thức thử đi nè.

 

[phulien1902]

Tại I6 xài công thức sau rồi fill xuống. Sau đó Filter những giá trị bằng 0 là cái cần tìm. Thích có màu báo hiệu thì sử dụng Conditional Formatting.

=COUNTIF($E$6:$F$11,H6)

P/s: Dữ liệu nhiều là bao nhiêu vậy bạn? Cứ xài công thức thử đi nè.

Chưa đúng ý của chủ Topic rồi bạn ơi.
Trong File chỉ có 4 ngày thiếu thôi.

 

[Miccpro]

Tại I6 xài công thức sau rồi fill xuống. Sau đó Filter những giá trị bằng 0 là cái cần tìm. Thích có màu báo hiệu thì sử dụng Conditional Formatting.

=COUNTIF($E$6:$F$11,H6)

P/s: Dữ liệu nhiều là bao nhiêu vậy bạn? Cứ xài công thức thử đi nè.

Công thức của bác chưa đúng với trường hợp của em ạ. Ví dụ: ngày BĐ: 01/01/2016; ngày KT: 03/01/2016 thì nó sẽ là ngày 01;02;03/01/2016 chứ không phải ngày 01 và 03 ạ

 

[giangleloi]

Chưa đúng ý của chủ Topic rồi bạn ơi.
Trong File chỉ có 4 ngày thiếu thôi.

Xin lỗi. Giờ mới để ý. hehe

 

[Miccpro]

Xin lỗi bác giangleloi vì câu hỏi không rõ ràng nhé

 

[HieuCD]

bạn chạy code

Sub GPE()
arr = Sheets("Sheet1").Range("H6", Sheets("Sheet1").Range("H6").End(xlDown))
darr = Sheets("Sheet1").Range("E6", Sheets("Sheet1").Range("F6").End(xlDown))
For i = 1 To UBound(arr)
    tmp = 0
    For j = 1 To UBound(darr)
        If arr(i, 1) >= darr(j, 1) And arr(i, 1) <= darr(j, 2) Then
            tmp = 1: Exit For
        End If
    Next
    If tmp = 0 Then Range("H" & i + 5).Interior.Color = 65535
Next
End Sub

 

[lenongree]

Em có 3 cột trong đó 2 cột dữ liệu ngày bắt đầu và ngày kết thúc, cột thứ 3 là cột từ Min(ngày bắt đầu) đến Max(ngày kết thúc). Giờ em muốn tìm những ngày ở cột thứ 3 mà không nằm trong 2 cột dữ liệu có được không ạ, giải bài toán bằng hàm hay VBA tiện hơn vì dữ liệu tương đối nhiều. Em xin cảm ơn cả nhà

Bạn dùng CT này tại I6:

I6=IFERROR(LOOKUP(1,1/(H6>=$E$6:$E$11)/(H6<=$F$6:$F$11)),"Khong nam trong vung")

Fill xuống!!!

 

[Miccpro]

bạn chạy code

Sub GPE()
arr = Sheets("Sheet1").Range("H6", Sheets("Sheet1").Range("H6").End(xlDown))
darr = Sheets("Sheet1").Range("E6", Sheets("Sheet1").Range("F6").End(xlDown))
For i = 1 To UBound(arr)
    tmp = 0
    For j = 1 To UBound(darr)
        If arr(i, 1) >= darr(j, 1) And arr(i, 1) <= darr(j, 2) Then
            tmp = 1: Exit For
        End If
    Next
    If tmp = 0 Then Range("H" & i + 5).Interior.Color = 65535
Next
End Sub

Code của bác khi thay đổi ngày tháng trong cột E;F (dữ liệu) thì lại phải bôi trắng cột H rồi chạy code mới hiệu quả. Có cách gì mỗi lần chạy code nó tự động xóa các màu đã bôi để bôi lại không bác?

 

[giangleloi]

Bạn dùng CT này tại I6:

I6=IFERROR(LOOKUP(1,1/(H6>=$E$6:$E$11)/(H6<=$F$6:$F$11)),"Khong nam trong vung")

Fill xuống!!!

Công thức trên sai ở ngày 08. Chắc như vầy mới được:

=IFERROR(LOOKUP(2,1/(H6>=$E$6:$E$11)/(H6<=$F$6:$F$11)),0)

 

[phulien1902]

Bạn dùng CT này tại I6:

I6=IFERROR(LOOKUP(1,1/(H6>=$E$6:$E$11)/(H6<=$F$6:$F$11)),"Khong nam trong vung")

Fill xuống!!!

Áp dụng công thức của bạn, thì ngày 08/1/2016 phải cho kết quả là 1, sao kết quả là 0 nhỉ ?

 

[lenongree]

Công thức trên sai ở ngày 08. Chắc như vầy mới được:

=IFERROR(LOOKUP(2,1/(H6>=$E$6:$E$11)/(H6<=$F$6:$F$11)),0)

Hi, em đã chỉnh lại rồi, bác nhanh quá!!!!

 

[HieuCD]

Code của bác khi thay đổi ngày tháng trong cột E;F (dữ liệu) thì lại phải bôi trắng cột H rồi chạy code mới hiệu quả. Có cách gì mỗi lần chạy code nó tự động xóa các màu đã bôi để bôi lại không bác?

thêm 2 dòng lệnh

Sub GPE()
Sheets("Sheet1").Range("H6", Sheets("Sheet1").Range("H6").End(xlDown)).Select
Selection.Interior.Pattern = xlNone
arr = Sheets("Sheet1").Range("H6", Sheets("Sheet1").Range("H6").End(xlDown))
darr = Sheets("Sheet1").Range("E6", Sheets("Sheet1").Range("F6").End(xlDown))
For i = 1 To UBound(arr)
    tmp = 0
    For j = 1 To UBound(darr)
        If arr(i, 1) >= darr(j, 1) And arr(i, 1) <= darr(j, 2) Then
            tmp = 1: Exit For
        End If
    Next
    If tmp = 0 Then Range("H" & i + 5).Interior.Color = 65535
Next
End Sub

 

[lenongree]

Áp dụng công thức của bạn, thì ngày 08/1/2016 phải cho kết quả là 1, sao kết quả là 0 nhỉ ?

Em chỉnh lại Ct rồi anh, bị nhầm dấu / thành dấu * thôi, hic, em chỉnh nhanh lắm mà ta!!

 

[giangleloi]

Code của bác khi thay đổi ngày tháng trong cột E;F (dữ liệu) thì lại phải bôi trắng cột H rồi chạy code mới hiệu quả. Có cách gì mỗi lần chạy code nó tự động xóa các màu đã bôi để bôi lại không bác?

Thêm dòng này:

Range("H6:H" & UBound(arr, 1) + 5).Interior.Color = xlNone

dưới dòng này:

darr = Sheets("Sheet1").Range("E6", Sheets("Sheet1").Range("F6").End(xlDown))

 

[Miccpro]

Như vậy em quyết định dùng công thức của các bác kết hợp Conditional Formatting để bôi màu là nhanh nhất. Thanks all

 

[giangleloi]

Hi, em đã chỉnh lại rồi, bác nhanh quá!!!!

GPE dạo này nhiều người nhàn rỗi lắm. Một người khó có thể nhanh hơn nhiều người được.

 

[HieuCD]

thay 2 dòng lệnh
Sheets("Sheet1").Range("H6", Sheets("Sheet1").Range("H6").End(xlDown)).Select
Selection.Interior.Pattern = xlNone
bằng dòng lệnh sẽ đẹp hơn
Sheets("Sheet1").Range("H6", Sheets("Sheet1").Range("H6").End(xlDown)).Interior.Pattern = xlNone

 

[Miccpro]

Thêm dòng này:

Range("H6:H" & UBound(arr, 1) + 5).Interior.Color = xlNone

dưới dòng này:

darr = Sheets("Sheet1").Range("E6", Sheets("Sheet1").Range("F6").End(xlDown))

Bác thử kiểm tra giúp em trong trường hợp 2 cột E và F mà có ô rỗng thì có cách nào code vẫn chạy và bỏ qua ô rỗng không bác

 

[giangleloi]

Bác thử kiểm tra giúp em trong trường hợp 2 cột E và F mà có ô rỗng thì có cách nào code vẫn chạy và bỏ qua ô rỗng không bác

========================================================