So sánh giữa 2 cột chứa tên sinh viên (1 người xem)

[alibabon]

Mấy anh chị viết dùm em đoạn mã so sánh tên sinh viên ở bảng 1 và 2 trong file đính kèm với, nếu mà trùng cả họ và tên thì ở G2 là "GIONG NHAU", nếu trùng tên khác họ và chữ lót thì G2 là "TRUNG TEN KHAC HO", còn trùng họ và chữ lót khác tên thì G2 là "TRUNG HO KHAC TEN". CÒn nếu khác nhau cả về họ tên thì G2 là "KHAC TEN VA CHU LOT", nếu được làm giùm em luôn mỗi loại cho ra 1 màu khác nhau luôn nha. Viết dùm em đoạn mã sao cho so sánh được tất cả các tên luôn nha mấy anh chị, em cảm ơn nhiều lắm

 

[cadafi]

Mấy anh chị viết dùm em đoạn mã so sánh tên sinh viên ở bảng 1 và 2 trong file đính kèm với, nếu mà trùng cả họ và tên thì ở G2 là "GIONG NHAU", nếu trùng tên khác họ và chữ lót thì G2 là "TRUNG TEN KHAC HO", còn trùng họ và chữ lót khác tên thì G2 là "TRUNG HO KHAC TEN". CÒn nếu khác nhau cả về họ tên thì G2 là "KHAC TEN VA CHU LOT", nếu được làm giùm em luôn mỗi loại cho ra 1 màu khác nhau luôn nha. Viết dùm em đoạn mã sao cho so sánh được tất cả các tên luôn nha mấy anh chị, em cảm ơn nhiều lắm

bạn muốn so sánh theo kiểu 1-1 tương ứng từ trên xuống hay như thế nào?

 

[ndu96081631]

Mấy anh chị viết dùm em đoạn mã so sánh tên sinh viên ở bảng 1 và 2 trong file đính kèm với, nếu mà trùng cả họ và tên thì ở G2 là "GIONG NHAU", nếu trùng tên khác họ và chữ lót thì G2 là "TRUNG TEN KHAC HO", còn trùng họ và chữ lót khác tên thì G2 là "TRUNG HO KHAC TEN". CÒn nếu khác nhau cả về họ tên thì G2 là "KHAC TEN VA CHU LOT", nếu được làm giùm em luôn mỗi loại cho ra 1 màu khác nhau luôn nha. Viết dùm em đoạn mã sao cho so sánh được tất cả các tên luôn nha mấy anh chị, em cảm ơn nhiều lắm

Thì IF đi cho lẹ!

=IF(($E2=$B2)*($D2=$A2),"Giống nhau",IF($E2=$B2,"Trùng tên, khác họ",IF($D2=$A2,"Trung họ, khác tên","")))

Nếu công thức trả về kết quả rổng thì xem như là KHÁC HỌ, KHÁC TÊN ---> Khỏi cần ghi vào công thức làm gì cho rối

 

[ChanhTQ@]

Muốn có Code thì có Code:

Option Explicit
Sub SoSanh()
 Dim Lrw As Long, Jj As Long
 Lrw = [b65500].End(xlUp).Row
 For Jj = 2 To Lrw
    With Cells(Jj, "B")
        If .Value = .Offset(, 3).Value Then
            If .Offset(, -1).Value = .Offset(, 2).Value Then
                .Offset(, 5) = "Cung Ho & Ten"
                .Offset(, -1).Resize(, 2).Interior.ColorIndex = 35
                .Offset(, 2).Resize(, 2).Interior.ColorIndex = 35
            Else
                .Offset(, 5) = "Giong Ten"
                .Interior.ColorIndex = 37
                .Offset(, 3).Interior.ColorIndex = 37
            End If
        Else
            If .Offset(, -1).Value = .Offset(, 2).Value Then
                .Offset(, 5) = "Cung Ho"
                .Offset(, -1).Interior.ColorIndex = 39
                .Offset(, 2).Interior.ColorIndex = 39
            Else
                .Offset(, 5) = "Khac Ho & Ten"
            End If
        End If
    End With
 Next Jj
End Sub

 

[alibabon]

Cảm ơn các bạn nhiều lắm. Bạn ChanhTQ cho hỏi đoạn code này sử dụng sao vậy mình copy vào code mà không thấy gì hết.

 

[yeudoi]

Copy vào rồi thì phải bấm cho nó chạy chứ ( Alt + F8)

 

[alibabon]

ok, cảm ơn các bạn nhiều lắm