[Giúp] VBA Tìm kiếm trùng và tô vàng ngày gần nhất (1 người xem)

[ngoctuyen1995]

Chào cả nhà GPE!

Mong cả nhà giúp em một việc ạ!..
Hiện tại em có một file data gồm 10 cột nhưng trong đó chỉ làm việc ở 02 Cột là cột Storecode và Day Start (em đã tô vàng ạ)..
Công việc của em là tìm kiếm bên cột Storecode những Storecode bị trùng và tô vàng hàng storecode có DayStart gần nhất ...
Ví dụ: Trong file em có Storecode UZ1UU00818 (trùng 02 giá trị) bên cột DayStart sẽ là 21/06/2017 3:53:27 PM và 21/06/2017 2:08:18 PM thì em sẽ tô vàng Storecode có Daystart là 21/06/2017 3:53:27 PM ạ..

Mong cả nhà giúp đỡ... Em xin cảm ơn ạ.!

 

[befaint]

Chào cả nhà GPE!

Mong cả nhà giúp em một việc ạ!..
Hiện tại em có một file data gồm 10 cột nhưng trong đó chỉ làm việc ở 02 Cột là cột Storecode và Day Start (em đã tô vàng ạ)..
Công việc của em là tìm kiếm bên cột Storecode những Storecode bị trùng và tô vàng hàng storecode có DayStart gần nhất ...
Ví dụ: Trong file em có Storecode UZ1UU00818 (trùng 02 giá trị) bên cột DayStart sẽ là 21/06/2017 3:53:27 PM và 21/06/2017 2:08:18 PM thì em sẽ tô vàng Storecode có Daystart là 21/06/2017 3:53:27 PM ạ..

Mong cả nhà giúp đỡ... Em xin cảm ơn ạ.!

Không tô màu cả dòng/ cột!

 

[ngoctuyen1995]

Không tô màu cả dòng/ cột!

Tô vậy cũng được ạ...

 

[befaint]

Tô vậy cũng được ạ...

Đấy là câu góp ý, hướng dẫn, chứ không phải câu giải thích, trình bày!

 

[ngoctuyen1995]

Đấy là câu góp ý, hướng dẫn, chứ không phải câu giải thích, trình bày!

Hihi! Cảm ơn Anh đã quan tâm và góp ý ạ...!

 

[Hoang2013]

Sub ToMauNgayLón()
 'Lâp Danh Sách Duy Nhât Du Lieu Côt [B:B] Tai Côt [AB] '
 'Dánh Só Thú Tu Tai Côt Tróng ([K:k]);   '
 'Sáp Xép Theo [StrreCode] & [Day Start]    '
 'Tìm Trùng & Tô Màu:       '
 Dim Cls As Range, Rng As Range, sRng As Range, Rg0 As Range
 Dim MyAdd As String
 Set Rng = Range([b1], [b1].End(xlDown))
 For Each Cls In Range([Ab2], [Ab2].End(xlDown))    'Duyet Theo DS Duy Nhát'
    Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address
        Do
            Set Rg0 = sRng
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        Rg0.Resize(, 4).Interior.ColorIndex = 38
        Set Rg0 = Nothing
    End If
 Next Cls
 'Cuoi Cùng: Sáp Xép CSDL Theo Côt [STT]    '
End Sub

 

[ngoctuyen1995]

Sub ToMauNgayLón()
 'Lâp Danh Sách Duy Nhât Du Lieu Côt [B:B] Tai Côt [AB] '
 'Dánh Só Thú Tu Tai Côt Tróng ([K:k]);   '
 'Sáp Xép Theo [StrreCode] & [Day Start]    '
 'Tìm Trùng & Tô Màu:       '
 Dim Cls As Range, Rng As Range, sRng As Range, Rg0 As Range
 Dim MyAdd As String
 Set Rng = Range([b1], [b1].End(xlDown))
 For Each Cls In Range([Ab2], [Ab2].End(xlDown))    'Duyet Theo DS Duy Nhát'
    Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address
        Do
            Set Rg0 = sRng
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
        Rg0.Resize(, 4).Interior.ColorIndex = 38
        Set Rg0 = Nothing
    End If
 Next Cls
 'Cuoi Cùng: Sáp Xép CSDL Theo Côt [STT]    '
End Sub

Em cảm ơn Thầy đã giúp đỡ em ạ...! Thầy kiểm tra lại giúp em Code có bị sai chỗ nào không ạ, lúc em bỏ vào thì nó không hoạt động ạ.. lúc gọi Macro thì nó không tô màu gì ạ..
Mong Thầy giúp đỡ!

 

[Hoang2013]

Ba dòng này

 'Lâp Danh Sách Duy Nhât Du Lieu Côt [B:B] Tai Côt [AB] '
 'Dánh Só Thú Tu Tai Côt Tróng ([K:k]);   '
 'Sáp Xép Theo [StrreCode] & [Day Start]    '

& dòng cuối:

'Cuoi Cùng: Sáp Xép CSDL Theo Côt [STT]    '

Bạn phải tự làm;
Macro chỉ sau đó mới đáp ứng cho bạn mà thôi.

 

[ngoctuyen1995]

Ba dòng này

 'Lâp Danh Sách Duy Nhât Du Lieu Côt [B:B] Tai Côt [AB] '
 'Dánh Só Thú Tu Tai Côt Tróng ([K:k]);   '
 'Sáp Xép Theo [StrreCode] & [Day Start]    '

& dòng cuối:

'Cuoi Cùng: Sáp Xép CSDL Theo Côt [STT]    '

Bạn phải tự làm;
Macro chỉ sau đó mới đáp ứng cho bạn mà thôi.

Em cảm ơn Thầy ạ!... Mình không thể làm tự động được hả Thầy, nếu phải làm thêm những bước kia nữa thì hơi mất thời gian ạ

 

[Hoang2013]

Nếu sợ tốn thời gian thì bạn thao tác các bước đó cho nhuyễn như lua cháo;
Sau đó mở bộ thu macro lên & ghi lại (2 macro ấy nha); Gởi lên diễn đàn nhờ sửa cho gọn là tốt ngay í mà!

 

[ngoctuyen1995]

Nếu sợ tốn thời gian thì bạn thao tác các bước đó cho nhuyễn như lua cháo;
Sau đó mở bộ thu macro lên & ghi lại (2 macro ấy nha); Gởi lên diễn đàn nhờ sửa cho gọn là tốt ngay í mà!

Chào Thầy!

Chủ đề này e đăng lên đã lâu rồi, nhưng đến giờ em mới cần lại ak.. Khi e test lại thì gặp một số vấn đề, mong Thầy giúp đỡ em ạ..

Lúc e chạy Macro tô màu thì những store không bị trùng nó cũng tô luôn ạ... mục đích của em là tìm những store bị trùng và tô màu những store bị trùng thôi ạ...

Mong Thầy giúp đỡ... Em cảm ơn Thầy ạ.!

 

[Ba Tê]

Ăn mừng U22 VN - Đông Timor (4-0)

 

[huonglien1901]

Ăn mừng U22 VN - Đông Timor (4-0)

Bác cũng xem nữa à, biết đá trận đầu thấy hay vậy, trận sau chưa biết thế nào,

 

[Ba Tê]

Bác cũng xem nữa à, biết đá trận đầu thấy hay vậy, trận sau chưa biết thế nào,

Thì nghe các BLV nổ "Nếu không phải do thời tiết thì chưa chắc tỉ số trận đấu chỉ có bấy nhiêu!". "Xì Pam" ăn mừng "thí thí" vậy thôi, sau này tính sau.

 

[ngoctuyen1995]

Ăn mừng U22 VN - Đông Timor (4-0)

Em cảm ơn Thầy đã giúp đỡ em ạ... Em làm được rồi ạ...
Chúc thầy sức khỏe và thành công