Điền dữ liệu tự động theo điều kiện? (1 người xem)

[Hoàng Nhật Phương]

Xin chào các bạn,
Như tiêu đề Oanh Thơ đã nêu, nhờ các giúp đỡ cho tôi trường hợp cụ thể trong tập tin gửi kèm với ạ.
Trân trọng cảm ơn.

 

[giaiphap]

Xin chào các bạn,
Như tiêu đề Oanh Thơ đã nêu, nhờ các giúp đỡ cho tôi trường hợp cụ thể trong tập tin gửi kèm với ạ.
Trân trọng cảm ơn.

Cái này là điền giá trị hay tô màu vậy?

 

[Hoàng Nhật Phương]

Cái này là điền giá trị hay tô màu vậy?

Xin chào giaiphap
Là điền dữ liệu ạ, nhờ bạn và mọi người xem giúp ạ.
Oanh Thơ xin gửi lại tập tin có két quả minh họa theo bảng 3 ạ.

 

[huuthang_bd]

VLOOKUP() là được mà. Hay ý bạn khác.

 

[giaiphap]

Xin chào giaiphap
Là điền dữ liệu ạ, nhờ bạn và mọi người xem giúp ạ.
Oanh Thơ xin gửi lại tập tin có két quả minh họa theo bảng 3 ạ.

Dùng thử code này xem sao.

Sub GPE()
Dim Dic As Object
Dim i As Long, j As Long, k As Long
Dim Arr, dArr
dArr = Sheet1.Range("E18:L23").Value
ReDim Arr(1 To 6, 1 To 8)
Set Dic = CreateObject("Scripting.Dictionary")
    With Dic
        For i = 1 To 6
            .Add dArr(i, 1), i
        Next i
        Arr = Sheet1.Range("E8:L13").Value
        For i = 1 To 6
                If .Exists(Arr(i, 1)) Then
                    k = .Item(Arr(i, 1))
                    For j = 2 To 8
                        If Arr(i, j) <> dArr(k, j) Then dArr(k, j) = Arr(i, j)
                    Next j
                End If
        Next i
    End With
    Sheet1.Range("E31").Resize(6, 8) = dArr
End Sub

 

[Hoang2013]

Bạn thử với cái ni xem ra răng?

Sub ToMauKhiDuLieuKhongGiong()
 Dim RngC As Range, RngD As Range, Cls As Range, sRng As Range, Cll As Range
 Dim MyColor As Byte, Col As Integer, J As Byte

 Set RngC = Range([E8], [e13]):         Randomize
 Set RngD = Range([e18], [E23]):        Range("f18:L23").Interior.ColorIndex = 2
 MyColor = 34 + 9 * Rnd() \ 1
 Col = RngC.CurrentRegion.Columns.Count - 1
 For Each Cls In RngC
    Set sRng = RngD.Find(Cls.Value, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        sRng.Interior.ColorIndex = MyColor + 1
        For J = 1 To Col
            If sRng.Offset(, J).Value <> Cls.Offset(, J).Value Then
                sRng.Offset(, J).Interior.ColorIndex = MyColor
            End If
        Next J
    End If
 Next Cls
End Sub