vuthuaphong
Thành viên mới
- Tham gia
- 12/8/09
- Bài viết
- 11
- Được thích
- 1
Chào mọi người.
Em có file excel chứa nhiều cột và dòng ở sheet 1, em đang muốn tìm kiếm ô chứa dữ liệu giống bên sheet 2 và tô màu cho nó. Thay vì ngồi Ctrl+F rồi copy dữ liệu của sheet 2 vào ô tìm kiếm rồi tô màu thì có cách nào cho nó chạy tự động được không ạ. Kiểu là mình chỉ cần copy dữ liệu cần tìm vào cột A của sheet 2 rồi dùng macro cho nó tự tham chiếu rồi tìm bên sheet 1, nếu đúng thì tô màu, ko đúng thì dừng lại hoặc xuất hiện thông báo.
Công việc của e đang rất cần cái này, mong a/c nào giúp em với.
Cảm ơn rất nhiều ạ.
P/s Sáng mình mắt nhắm mắt mở đăng nhầm vào chủ đề khác may mà cũng có bác kia giúp code cho. Không biết liên hệ với MOD thế nào để chuyển bài qua đúng chủ đề nên mạng phép đăng lại và hỏi thêm. Bây giờ thay vì chọn cố định cột H trong sheet 1 mình có cách nào trước khi chạy macro nó xuất hiện popup như textbox cho mình gõ vào cột mình muốn tham chiếu đến không ạ,
Code bên dưới của bác SA_DQ, cảm ớn bác rất nhiều.
Sub TimTrongDanhSach()
Dim Rws As Long, W As Integer, Max_ As Integer
Dim Rng As Range, sRng As Range, Sh As Worksheet, Cls As Range
Dim MyAdd As String
Set Sh = Sheet1
Rws = Sh.UsedRange.Rows.Count
Set Rng = Sh.[H4].Resize(Rws)
Sheet2.Select
For Each Cls In Range([A1], [A1].End(xlDown))
Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
Cls.Interior.ColorIndex = 38
Else
MyAdd = sRng.Address
Do
W = W + 1: If W > 10 Then W = 0
Max_ = Max_ + 1
sRng.Interior.ColorIndex = W + 33
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
W = 0
Next Cls
MsgBox Max_
End Sub
Em có file excel chứa nhiều cột và dòng ở sheet 1, em đang muốn tìm kiếm ô chứa dữ liệu giống bên sheet 2 và tô màu cho nó. Thay vì ngồi Ctrl+F rồi copy dữ liệu của sheet 2 vào ô tìm kiếm rồi tô màu thì có cách nào cho nó chạy tự động được không ạ. Kiểu là mình chỉ cần copy dữ liệu cần tìm vào cột A của sheet 2 rồi dùng macro cho nó tự tham chiếu rồi tìm bên sheet 1, nếu đúng thì tô màu, ko đúng thì dừng lại hoặc xuất hiện thông báo.
Công việc của e đang rất cần cái này, mong a/c nào giúp em với.
Cảm ơn rất nhiều ạ.
P/s Sáng mình mắt nhắm mắt mở đăng nhầm vào chủ đề khác may mà cũng có bác kia giúp code cho. Không biết liên hệ với MOD thế nào để chuyển bài qua đúng chủ đề nên mạng phép đăng lại và hỏi thêm. Bây giờ thay vì chọn cố định cột H trong sheet 1 mình có cách nào trước khi chạy macro nó xuất hiện popup như textbox cho mình gõ vào cột mình muốn tham chiếu đến không ạ,
Code bên dưới của bác SA_DQ, cảm ớn bác rất nhiều.
Sub TimTrongDanhSach()
Dim Rws As Long, W As Integer, Max_ As Integer
Dim Rng As Range, sRng As Range, Sh As Worksheet, Cls As Range
Dim MyAdd As String
Set Sh = Sheet1
Rws = Sh.UsedRange.Rows.Count
Set Rng = Sh.[H4].Resize(Rws)
Sheet2.Select
For Each Cls In Range([A1], [A1].End(xlDown))
Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
Cls.Interior.ColorIndex = 38
Else
MyAdd = sRng.Address
Do
W = W + 1: If W > 10 Then W = 0
Max_ = Max_ + 1
sRng.Interior.ColorIndex = W + 33
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
W = 0
Next Cls
MsgBox Max_
End Sub
