[Help] Giúp tạo Macro Check địa chỉ (1 người xem)

[robinhsoon]

Chào cộng đồng GiaiPhapExcel.!

Em làm phiền anh/chị giúp em làm Macro Check địa chỉ nhé..

Hiện giờ em có một File gồm 02 sheet..
1. Sheet 1: Data (cần check)
2. Shees 2: Link Street (tại sheet này em đã khai báo thư viện của các tên đường)
Công việc: Em muốn so sánh giữa sheet Data và Sheet Link Street xem thử, nếu bên Sheet Data tìm không thấy địa chỉ trùng với Sheet Link Street thì tô vàng những ô địa chỉ không trùng tại Sheet Data lên..

Mong anh/chị giúp đỡ ạ.

 

[PacificPR]

Chào cộng đồng GiaiPhapExcel.!

Em làm phiền anh/chị giúp em làm Macro Check địa chỉ nhé..

Hiện giờ em có một File gồm 02 sheet..
1. Sheet 1: Data (cần check)
2. Shees 2: Link Street (tại sheet này em đã khai báo thư viện của các tên đường)
Công việc: Em muốn so sánh giữa sheet Data và Sheet Link Street xem thử, nếu bên Sheet Data tìm không thấy địa chỉ trùng với Sheet Link Street thì tô vàng những ô địa chỉ không trùng tại Sheet Data lên..

Mong anh/chị giúp đỡ ạ.

Bạn chạy thử cái này xem có đúng yêu cầu không:

Sub Kiemtra()
    Dim i As Long, Ew As Long, Rng As Range
Set Rng = Sheet2.Range("A2:A" & Sheet2.Range("A65535").End(3).Row)
With Sheet1
    Ew = .Range("B65000").End(3).Row
    .Range("B2: B" & Ew).Interior.Color = xlNone
    For i = 2 To Ew
        If Application.WorksheetFunction.CountIf(Rng, .Range("B" & i)) =0 Then
            .Range("B" & i).Interior.Color = 65535
        End If
    Next i
End With

 

[robinhsoon]

Bạn chạy thử cái này xem có đúng yêu cầu không:

Sub Kiemtra()
    Dim i As Long, Ew As Long, Rng As Range
Set Rng = Sheet2.Range("A2:A" & Sheet2.Range("A65535").End(3).Row)
With Sheet1
    Ew = .Range("B65000").End(3).Row
    .Range("B2: B" & Ew).Interior.Color = xlNone
    For i = 2 To Ew
        If Application.WorksheetFunction.CountIf(Rng, .Range("B" & i)) =0 Then
            .Range("B" & i).Interior.Color = 65535
        End If
    Next i
End With

Em đã chạy được và rất ok.. Cảm ơn Anh nhiều nhé

 

[robinhsoon]

Bạn chạy thử cái này xem có đúng yêu cầu không:

Sub Kiemtra()
    Dim i As Long, Ew As Long, Rng As Range
Set Rng = Sheet2.Range("A2:A" & Sheet2.Range("A65535").End(3).Row)
With Sheet1
    Ew = .Range("B65000").End(3).Row
    .Range("B2: B" & Ew).Interior.Color = xlNone
    For i = 2 To Ew
        If Application.WorksheetFunction.CountIf(Rng, .Range("B" & i)) =0 Then
            .Range("B" & i).Interior.Color = 65535
        End If
    Next i
End With

Chào Thầy..!

Thầy giúp em làm một bước này nữa nhé.. Từ code trên thây vì làm việc cột cố định là cột B, em muốn tìm đến cột có tên là New Street, vì Template của data em thường hay thây đổi....

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

 

[PacificPR]

Chào Thầy..!

Thầy giúp em làm một bước này nữa nhé.. Từ code trên thây vì làm việc cột cố định là cột B, em muốn tìm đến cột có tên là New Street, vì Template của data em thường hay thây đổi....

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

Thôi chết rồi. Em mới có 30 bài mà đã lên thầy thế này thì ... ngại ghê. Em cũng đang bắt đầu học VBA như Bác thôi
Bác thử cái Code dưới xem sao:

Sub Kiemtra()
    Dim Rng1 As Range, Rng2 As Range
On Error GoTo Thoat
Set Rng1 = Application.InputBox(Prompt:="Chon vung du lieu", Title:="Vung du lieu", Type:=8)
Set Rng2 = Application.InputBox(Prompt:="Chon vung so sanh  ", Title:="Vung so sanh", Type:=8)
Rng1.Interior.Color = xlNone
For Each cll In Rng1
    If cll <> Empty Then
        If Application.WorksheetFunction.CountIf(Rng2, cll) = 0 Then
            cll.Interior.Color = 65535
        End If
    End If
Next
Thoat:
End Sub