Đối Soát dữ liệu đổi công thức sang code vba

[NhutGG]

Chào anh em GPE,
Nhờ anh em hỗ trợ mình đổi công thức có sẳn sang dạng code
vì phần đối soát của mình có nhiều dữ liệu Từ 20000 đến hơn mỏi lần kéo Công thức xuống lâu với lag lắm với lại dữ liệu nặng thêm ae giúp mình viết nó dưới dạng code với
công thức :=IF(ISNA(VLOOKUP(A2,'DS2'!$A$2:$A$5,1,0)),"DS2 THIẾU","ĐỦ")
mình có file mẫu ae hỗ trợ giúp mình mới
thanks ae ,chúc anh em buổi tối vui vẻ !!!!!!!

 

[Phuocam]

Chào anh em GPE,
Nhờ anh em hỗ trợ mình đổi công thức có sẳn sang dạng code
vì phần đối soát của mình có nhiều dữ liệu Từ 20000 đến hơn mỏi lần kéo Công thức xuống lâu với lag lắm với lại dữ liệu nặng thêm ae giúp mình viết nó dưới dạng code với
công thức :=IF(ISNA(VLOOKUP(A2,'DS2'!$A$2:$A$5,1,0)),"DS2 THIẾU","ĐỦ")
mình có file mẫu ae hỗ trợ giúp mình mới
thanks ae ,chúc anh em buổi tối vui vẻ !!!!!!!

Bạn đã biết dùng vòng lặp và Dictionary chưa? Bạn có thể tham khảo thêm tại đây:

Tổng quan về Scripting.Dictionary

Với những ai yêu thích Excel nói chung và yêu thích VBA nói riêng thì chắc hẳn cũng đã biết qua các khái niệm về mảng, về công thức điều kiện, vòng lặp,..., những thứ rất quen thuộc mà gần như là sử dụng thường xuyên trong từng bài toán lập trình. Tuy nhiên, có lẽ sẽ rất ít người biết về...

www.giaiphapexcel.com

.

 

[VetMini]

Bạn đã biết dùng vòng lặp và Dictionary chưa? Bạn có thể tham khảo thêm tại đây:
...

Đây là Tây con mờ. Cuối câu, bạn phải nói cho đúng điệu Tây:
Bạn có thể tham khảo thêm tại đây. Good luck.

 

[bebo021999]

mình có file mẫu ae hỗ trợ giúp mình mới
thanks ae ,chúc anh em buổi tối vui vẻ !!!!!!!

ae muốn nhờ thì ae gửi file lên chứ, chứ ae không gửi file lên thì ae biết đường đâu mà làm
Cái này ae dùng FIND method là đủ, không cần đến mò "thư viện" đâu
Good luck ae

 

[NhutGG]

ae muốn nhờ thì ae gửi file lên chứ, chứ ae không gửi file lên thì ae biết đường đâu mà làm
Cái này ae dùng FIND method là đủ, không cần đến mò "thư viện" đâu
Good luck ae

à cám ơn bác,em có kèm mà chắc không để ý

 

[HUONGHCKT]

Chào anh em GPE,
Nhờ anh em hỗ trợ mình đổi công thức có sẳn sang dạng code
vì phần đối soát của mình có nhiều dữ liệu Từ 20000 đến hơn mỏi lần kéo Công thức xuống lâu với lag lắm với lại dữ liệu nặng thêm ae giúp mình viết nó dưới dạng code với
công thức :=IF(ISNA(VLOOKUP(A2,'DS2'!$A$2:$A$5,1,0)),"DS2 THIẾU","ĐỦ")
mình có file mẫu ae hỗ trợ giúp mình mới
thanks ae ,chúc anh em buổi tối vui vẻ !!!!!!!

Quy định của diễn đàn là không được viết tắt và chêm từ ngữ nước ngoài . Bạn sửa lại những từ viết tắt và những tiếng nước ngoài thì chắc là sẽ có người giúp.

 

[bebo021999]

Xài đỡ cái này:

Option Explicit
Sub doichieu()
Dim lr1&, i&, lr2&, rng1, rng2, f
With Worksheets("DS1")
    lr1 = .Cells(Rows.Count, "A").End(xlUp).Row
    rng1 = .Range("A2:B" & lr1).Value
End With
With Worksheets("DS2")
    lr2 = .Cells(Rows.Count, "A").End(xlUp).Row
    rng2 = .Range("A2:B" & lr2).Value
    For i = 1 To lr1 - 1
        Set f = .Range("A2:A" & lr2).Find(what:=rng1(i, 1))
        If f Is Nothing Then
            rng1(i, 2) = "DS2 thieu"
        Else
            rng1(i, 2) = "Du"
        End If
    Next
End With
With Worksheets("DS1")
    For i = 1 To lr2 - 1
        Set f = .Range("A2:A" & lr1).Find(what:=rng2(i, 1))
        If f Is Nothing Then
            rng2(i, 2) = "DS1 thieu"
        Else
            rng2(i, 2) = "Du"
        End If
    Next
End With
Worksheets("DS1").Range("A2").Resize(lr1 - 1, 2) = rng1
Worksheets("DS2").Range("A2").Resize(lr2 - 1, 2) = rng2
End Sub

 

[NhutGG]

Xài đỡ cái này:

Option Explicit
Sub doichieu()
Dim lr1&, i&, lr2&, rng1, rng2, f
With Worksheets("DS1")
    lr1 = .Cells(Rows.Count, "A").End(xlUp).Row
    rng1 = .Range("A2:B" & lr1).Value
End With
With Worksheets("DS2")
    lr2 = .Cells(Rows.Count, "A").End(xlUp).Row
    rng2 = .Range("A2:B" & lr2).Value
    For i = 1 To lr1 - 1
        Set f = .Range("A2:A" & lr2).Find(what:=rng1(i, 1))
        If f Is Nothing Then
            rng1(i, 2) = "DS2 thieu"
        Else
            rng1(i, 2) = "Du"
        End If
    Next
End With
With Worksheets("DS1")
    For i = 1 To lr2 - 1
        Set f = .Range("A2:A" & lr1).Find(what:=rng2(i, 1))
        If f Is Nothing Then
            rng2(i, 2) = "DS1 thieu"
        Else
            rng2(i, 2) = "Du"
        End If
    Next
End With
Worksheets("DS1").Range("A2").Resize(lr1 - 1, 2) = rng1
Worksheets("DS2").Range("A2").Resize(lr2 - 1, 2) = rng2
End Sub

Em Cám ơn sư huynh nhe !

 

[HUONGHCKT]

Đây là Tây con mờ. Cuối câu, bạn phải nói cho đúng điệu Tây:
Bạn có thể tham khảo thêm tại đây. Good luck.

Lời cảnh báo và nhắc nhở thực hiện nội quy diễn đàn của anh @VetMini và của tôi thành thừa. Tôi thấy mình tẽn tò quá.