Đánh dấu dữ liệu trùng giữa 2 sheet

  • Thread starter Ls1102
  • Ngày gửi
L

Ls1102

Sơ cấp
6/1/10
6
1
1
31
lang son
#1
Giúp em đánh dấu dữ liệu trùng ở sheet 1 và sheet 2 với
 

Đính kèm

Sửa lần cuối bởi điều hành viên:
S

SA_DQ

Thành viên thân thiết
29/6/05
435
38
28
61
HCM city
#2
Bạn có thể tham khảo xem VBA làm điều đó như thế nào:

Mã:
Option Explicit
[B]Sub SoTrung()[/B]
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Clls As Range
 Dim MyColor As Byte
 
 Sheet1.Select:               Set Sh = Sheet2
 [B1].CurrentRegion.Offset(1).Interior.ColorIndex = 0
 Sh.Cells.Interior.ColorIndex = 0
 Set Rng = Sh.Range("B1:B" & Sh.[B65500].End(xlUp).Row)
 For Each Clls In Range("B2:B" & [B65500].End(xlUp).Row)
   Set sRng = Rng.Find(Clls.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      MyColor = 34 + (sRng.Row Mod 6)
      Clls.Resize(, 2).Interior.ColorIndex = MyColor
      sRng.Resize(, 2).Interior.ColorIndex = MyColor
   End If
 Next Clls
 MyColor = [B1].Interior.ColorIndex + 1
 [B1].Interior.ColorIndex = IIf(MyColor > 41, 34, MyColor)
[B]End Sub[/B]
 
T

trucboo

Sơ cấp
22/12/11
1
0
0
TPHCM
#3
Ðề: Bạn có thể tham khảo xem VBA làm điều đó như thế nào:

Dạ xin cho em hỏi nếu có đến trên 3 sheet thì mình có thể đánh dấu dữ liệu trùng giữa các sheet bằng cách này được không , nếu được thì phải chỉnh sửa code ra sao? Mong nhận được hồi âm, Xin cảm ơn rất nhiều.:wall:
View attachment Book1.xls
 
Sửa lần cuối:
QDuc

QDuc

Thành viên thân thiết
3/6/06
254
18
18
Biển khơi
#4
Ðề: (/ề nguyên tắc thì không có gì là VBA không làm được

Để thấy điều này, bạn nên đưa file lên hay dùng chức năng [Table]. . . [/table ] để mô fỏng 4 trang tính đó ra sao;

Bạn sẽ có kết quả có thể xài được ngay tấp lự!

( Có thể bạn cho file bổ sung lên bài viết của bạn bên trên, Cộng đồng sẽ giúp bạn!)
 
HongViet

HongViet

Thành viên thân thiết
10/11/05
286
10
18
Đà nẵng
#5
Ðề: Bạn có thể tham khảo trong file kèm theo:

Xin cho em hỏi nếu có đến trên 3 sheet thì mình có thể đánh dấu dữ liệu trùng giữa các sheet bằng cách này được không , nếu được thì phải chỉnh sửa code ra sao? Mong nhận được hồi âm, Xin cảm ơn rất nhiều.
Thử suy luận xem tại sao macro tô màu ở trang 'S1' & tô theo qui luật nào nha!
 

Đính kèm

Thành viên trực tuyến

  • KimThe1710
  • Haniker2106
  • TruongPham1




Xem nhiều