XIN GIÚP ĐỠ TÌM DỮ LIỆU THEO ĐIỀU KIỆN

Liên hệ QC
H

hoanganh00

Thành viên mới
Tham gia
6/6/14
Bài viết
29
Được thích
2
Xin chào các anh chị, mình có 1 vướn mắc mong được anh chị hướng dẫn.
mình có 2 bảng như bên dưới, muốn tìm giá trị của cột C1 bảng 1 từ cột C của bảng 2. Giá trị so sánh là khớp giá trị cột A, B của bảng 1 với cột B, A của bảng 2 (mình để thứ tự hơi sai). và 1 điều kiện nữa là giá trị nhận được phải khác nhau. Ví dụ như sau khi nhận được giá trị thì C1=DRYU3048058 thì C2 phải bằng giá trị trùng tiếp theo như là DRYU3044181...

Rất mong nhận được sự giúp đỡ của các anh chị.
Cảm ơn nhiều ạ.


Untitled.png
 

File đính kèm

  • Untitled.png
    Untitled.png
    37.5 KB · Đọc: 3
hoanganh00 đã viết:
Xin chào các anh chị, mình có 1 vướn mắc mong được anh chị hướng dẫn.
mình có 2 bảng như bên dưới, muốn tìm giá trị của cột C1 bảng 1 từ cột C của bảng 2. Giá trị so sánh là khớp giá trị cột A, B của bảng 1 với cột B, A của bảng 2 (mình để thứ tự hơi sai). và 1 điều kiện nữa là giá trị nhận được phải khác nhau. Ví dụ như sau khi nhận được giá trị thì C1=DRYU3048058 thì C2 phải bằng giá trị trùng tiếp theo như là DRYU3044181...

Rất mong nhận được sự giúp đỡ của các anh chị.
Cảm ơn nhiều ạ.


View attachment 213231
Nhấp chuột vào đây để mở rộng...
Thế bạn không gửi File lên thì giúp kiểu gì.Dùng VBA bạn nhé.
 
hoanganh00 đã viết:
Xin chào các anh chị, mình có 1 vướn mắc mong được anh chị hướng dẫn.
mình có 2 bảng như bên dưới, muốn tìm giá trị của cột C1 bảng 1 từ cột C của bảng 2. Giá trị so sánh là khớp giá trị cột A, B của bảng 1 với cột B, A của bảng 2 (mình để thứ tự hơi sai). và 1 điều kiện nữa là giá trị nhận được phải khác nhau. Ví dụ như sau khi nhận được giá trị thì C1=DRYU3048058 thì C2 phải bằng giá trị trùng tiếp theo như là DRYU3044181...

Rất mong nhận được sự giúp đỡ của các anh chị.
Cảm ơn nhiều ạ.


View attachment 213231
Nhấp chuột vào đây để mở rộng...
Bạn gửi file mẫu lên xem thế nào
 
hoanganh00 đã viết:
Mình gởi bạn file mẫu nhé.
Bài đã được tự động gộp:


Gởi bạn file mẫu
Nhấp chuột vào đây để mở rộng...
Bạn chạy code này xem đúng không nhé.
Mã: 
Sub laydulieu()
    Dim arr, dic As Object, i As Long, a As Integer, s As String, dk As String, T
    Set dic = CreateObject("scripting.dictionary")
    With Sheet1
         arr = .Range("J5:L27").Value
         For i = 1 To UBound(arr, 1)
             dk = arr(i, 1) & "#" & arr(i, 2)
             If Not dic.exists(dk) Then
                dic.Add dk, Array(arr(i, 3), 0)
             Else
                dic.Item(dk) = Array(dic.Item(dk)(0) & "#" & arr(i, 3), 0)
             End If
        Next i
        .Range("F5:F32").ClearContents
        arr = .Range("D5:F32").Value
        For i = 1 To UBound(arr, 1)
             dk = arr(i, 2) & "#" & arr(i, 1)
             If dic.exists(dk) Then
                a = dic.Item(dk)(1)
                T = Split(dic.Item(dk)(0), "#")
                If a > UBound(T) Then a = 0
                arr(i, 3) = T(a)
                dic.Item(dk) = Array(dic.Item(dk)(0), a + 1)
             End If
        Next i
        .Range("D5:F32").Value = arr
   End With
End Sub
 

File đính kèm

  • FILE MAU.xlsm
    19 KB · Đọc: 8
snow25 đã viết:
Bạn chạy code này xem đúng không nhé.
Mã: 
Sub laydulieu()
    Dim arr, dic As Object, i As Long, a As Integer, s As String, dk As String, T
    Set dic = CreateObject("scripting.dictionary")
    With Sheet1
         arr = .Range("J5:L27").Value
         For i = 1 To UBound(arr, 1)
             dk = arr(i, 1) & "#" & arr(i, 2)
             If Not dic.exists(dk) Then
                dic.Add dk, Array(arr(i, 3), 0)
             Else
                dic.Item(dk) = Array(dic.Item(dk)(0) & "#" & arr(i, 3), 0)
             End If
        Next i
        .Range("F5:F32").ClearContents
        arr = .Range("D5:F32").Value
        For i = 1 To UBound(arr, 1)
             dk = arr(i, 2) & "#" & arr(i, 1)
             If dic.exists(dk) Then
                a = dic.Item(dk)(1)
                T = Split(dic.Item(dk)(0), "#")
                If a > UBound(T) Then a = 0
                arr(i, 3) = T(a)
                dic.Item(dk) = Array(dic.Item(dk)(0), a + 1)
             End If
        Next i
        .Range("D5:F32").Value = arr
   End With
End Sub
Nhấp chuột vào đây để mở rộng...


Cảm ơn bạn nhiều, mình mù VBA, bạn có thể hướng dẫn dúng đoạn mã này như thế nào.
Với lại kết quả nó bị trùng, mình mong muốn là kết quả có đc chỉ lấy 1 lần. Bạn giúp minh nhé.
 
hoanganh00 đã viết:
Cảm ơn bạn nhiều, mình mù VBA, bạn có thể hướng dẫn dúng đoạn mã này như thế nào.
Với lại kết quả nó bị trùng, mình mong muốn là kết quả có đc chỉ lấy 1 lần. Bạn giúp minh nhé.
Nhấp chuột vào đây để mở rộng...
Thế thằng đằng sau nó có nữa thì làm thế nào.Không nhận nữa chứ.Mà bạn đưa file mẫu giống file của bạn lên mình chỉnh lại code luôn.Hướng dẫn thì mình cũng không biết à.
 
mình gởi lại bạn file của mình.
trong file này mình cần giá trị điền vào cột B sheet RELASE, lấy dữ liệu từ sheet2 dùng giá trị so sánh cột C, P sheet RELASE với cột B, L sheet2, lấy giá trị ở cột A sheet2.
Hiểu nôm na là, thằng cột P nó đi chọn vợ bên sheet2, nó thấy đứa nào có cột L giống nó và khớp với cột C, B thì nó lấy về, có thằng khác cũng như nó cũng đi tìm vợ và cũng tìm đc đứa khác đáp ứng đc yêu cầu và rước về. Nhưng nhiều đứa đi tìm vợ mà gái có hạn nên đứa nào đến sau đó thì ko tìm đc, phải ở không. Vậy đó :p;);)
 

File đính kèm

  • MAU 1.xlsx
    170.5 KB · Đọc: 7
hoanganh00 đã viết:
mình gởi lại bạn file của mình.
trong file này mình cần giá trị điền vào cột B sheet RELASE, lấy dữ liệu từ sheet2 dùng giá trị so sánh cột C, P sheet RELASE với cột B, L sheet2, lấy giá trị ở cột A sheet2.
Hiểu nôm na là, thằng cột P nó đi chọn vợ bên sheet2, nó thấy đứa nào có cột L giống nó và khớp với cột C, B thì nó lấy về, có thằng khác cũng như nó cũng đi tìm vợ và cũng tìm đc đứa khác đáp ứng đc yêu cầu và rước về. Nhưng nhiều đứa đi tìm vợ mà gái có hạn nên đứa nào đến sau đó thì ko tìm đc, phải ở không. Vậy đó :p;);)
Nhấp chuột vào đây để mở rộng...
Đây nhé bạn.Chỉ cần bấm vào nút lấy dữ liệu là được.
Mã: 
Sub laydulieu()
    Dim arr, dic As Object, i As Long, a As Integer, s As String, dk As String, T, Lr As Long, arr1
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("Sheet2")
         Lr = .Range("B" & Rows.Count).End(xlUp).Row
         arr = .Range("a2:L" & Lr).Value
         For i = 1 To UBound(arr, 1)
             dk = arr(i, 2) & "#" & arr(i, 12)
             If Not dic.exists(dk) Then
                dic.Add dk, Array(arr(i, 1), 0)
             Else
                dic.Item(dk) = Array(dic.Item(dk)(0) & "#" & arr(i, 1), 0)
             End If
        Next i
    End With
    With Sheets("RELASE")
         Lr = .Range("C" & Rows.Count).End(xlUp).Row
         If Lr < 8 Then Exit Sub
        .Range("b8:b" & Lr).ClearContents
        arr = .Range("C8:P" & Lr).Value
        ReDim arr1(1 To UBound(arr, 1), 1 To 1)
        For i = 1 To UBound(arr, 1)
             dk = arr(i, 1) & "#" & arr(i, 14)
             If dic.exists(dk) Then
                a = dic.Item(dk)(1)
                T = Split(dic.Item(dk)(0), "#")
                If a <= UBound(T) Then
                    arr1(i, 1) = T(a)
                    dic.Item(dk) = Array(dic.Item(dk)(0), a + 1)
                End If
             End If
        Next i
        .Range("B8").Resize(i - 1, 1).Value = arr1
   End With
End Sub
 

File đính kèm

  • MAU 1.xlsm
    163.7 KB · Đọc: 13
snow25 đã viết:
Đây nhé bạn.Chỉ cần bấm vào nút lấy dữ liệu là được.
Mã: 
Sub laydulieu()
    Dim arr, dic As Object, i As Long, a As Integer, s As String, dk As String, T, Lr As Long, arr1
    Set dic = CreateObject("scripting.dictionary")
    With Sheets("Sheet2")
         Lr = .Range("B" & Rows.Count).End(xlUp).Row
         arr = .Range("a2:L" & Lr).Value
         For i = 1 To UBound(arr, 1)
             dk = arr(i, 2) & "#" & arr(i, 12)
             If Not dic.exists(dk) Then
                dic.Add dk, Array(arr(i, 1), 0)
             Else
                dic.Item(dk) = Array(dic.Item(dk)(0) & "#" & arr(i, 1), 0)
             End If
        Next i
    End With
    With Sheets("RELASE")
         Lr = .Range("C" & Rows.Count).End(xlUp).Row
         If Lr < 8 Then Exit Sub
        .Range("b8:b" & Lr).ClearContents
        arr = .Range("C8:P" & Lr).Value
        ReDim arr1(1 To UBound(arr, 1), 1 To 1)
        For i = 1 To UBound(arr, 1)
             dk = arr(i, 1) & "#" & arr(i, 14)
             If dic.exists(dk) Then
                a = dic.Item(dk)(1)
                T = Split(dic.Item(dk)(0), "#")
                If a <= UBound(T) Then
                    arr1(i, 1) = T(a)
                    dic.Item(dk) = Array(dic.Item(dk)(0), a + 1)
                End If
             End If
        Next i
        .Range("B8").Resize(i - 1, 1).Value = arr1
   End With
End Sub
[/QUOTE

Bạn cho mình hỏi nút laydulieu ở đâu vậy, trong file không có, cảm ơn nhiều nhé.
Nhấp chuột vào đây để mở rộng...
 
Mình up lại file bạn xem lại nhé.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

H
  • Question
nhờ các bác viết mẫu cho em lệnh dùng checkbox để rút ngắn thời gian thao tác
Trả lời
15
Đọc
316
hiv174
H
kiencuong030184
  • Question
Nhờ giúp đỡ về ẩn dòng, cột có điều kiện
Trả lời
1
Đọc
29
BuiQuangThuan
B
T
V/v tối ưu xử lý đoạn code
Trả lời
1
Đọc
40
SA_DQ
SA_DQ
kiet317
Helloooooooooooo
    • Phẫn nộ
    • Buồn
Trả lời
1
Đọc
27
Hoàng Tuấn 868
H
H
  • Question
Code subtotal và tìm điều kiện
Trả lời
9
Đọc
107
Hoàng Tuấn 868
H
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom