Lấy thông tin của thủ kho có nhiều tên giống nhau và cùng ở một ô

Phương Phương mito · 1/8/23

Em chào anh chị và các bạn,
Em có trường hợp này làm dở chưa ra được kết quả cuối cùng mong muốn nhờ mọi người giúp đỡ ạ. Em đang học về mảng và ReDim Preserve. Tại Bang1: Em có các mã hàng duy nhất tại cột A kèm theo các tên thủ kho như định dạng cột B (Nhiều thủ kho trong một ô). Tại Thong_tin em có danh sách các thủ kho khác nhau dù có trùng tên với nhau. Mục đích em muốn lấy thông tin như code em làm dở và ví dụ kết quả mong muốn tại ô C2 tại sheet Bang1 như em miêu tả tại ô E2. Em chưa ra đượcc kết quả với các ô tại cột B mà có nhiều thủ kho cùng một ô. Mong Anh chị giúp hoàn thiện nốt code ạ. Em cảm ơn ạ.

BuiQuangThuan · 1/8/23

Phương Phương mito đã viết:
Em chào anh chị và các bạn,
Em có trường hợp này làm dở chưa ra được kết quả cuối cùng mong muốn nhờ mọi người giúp đỡ ạ. Em đang học về mảng và ReDim Preserve. Tại Bang1: Em có các mã hàng duy nhất tại cột A kèm theo các tên thủ kho như định dạng cột B (Nhiều thủ kho trong một ô). Tại Thong_tin em có danh sách các thủ kho khác nhau dù có trùng tên với nhau. Mục đích em muốn lấy thông tin như code em làm dở và ví dụ kết quả mong muốn tại ô C2 tại sheet Bang1 như em miêu tả tại ô E2. Em chưa ra đượcc kết quả với các ô tại cột B mà có nhiều thủ kho cùng một ô. Mong Anh chị giúp hoàn thiện nốt code ạ. Em cảm ơn ạ.

Ý tưởng của bạn là như nào mà kêu hoàn thiện nốt cho bạn

Nhattanktnn · 1/8/23

Phương Phương mito đã viết:
Em chào anh chị và các bạn,
Em có trường hợp này làm dở chưa ra được kết quả cuối cùng mong muốn nhờ mọi người giúp đỡ ạ. Em đang học về mảng và ReDim Preserve. Tại Bang1: Em có các mã hàng duy nhất tại cột A kèm theo các tên thủ kho như định dạng cột B (Nhiều thủ kho trong một ô). Tại Thong_tin em có danh sách các thủ kho khác nhau dù có trùng tên với nhau. Mục đích em muốn lấy thông tin như code em làm dở và ví dụ kết quả mong muốn tại ô C2 tại sheet Bang1 như em miêu tả tại ô E2. Em chưa ra đượcc kết quả với các ô tại cột B mà có nhiều thủ kho cùng một ô. Mong Anh chị giúp hoàn thiện nốt code ạ. Em cảm ơn ạ.

Thử code sau . . :

Mã:

Sub abc()
Dim i&, j&, a(), b(), c(), tmp, s$
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Thong_tin")
    a = .Range("A2:C" & .Cells(Rows.Count, "A").End(xlUp).Row).Value
    For i = 1 To UBound(a)
        Dic(a(i, 1)) = Dic(a(i, 1)) & Chr(10) & "-|: " & a(i, 3) & ", " & a(i, 2)
    Next
End With

With Sheets("Bang1")
    b = .Range("B2:B" & .Cells(Rows.Count, "B").End(xlUp).Row).Value
    ReDim c(1 To UBound(b), 1 To 1)
    For i = 1 To UBound(b)
        tmp = Split(b(i, 1), Chr(10))
        s = vbNullString
        For j = 0 To UBound(tmp)
            If Dic.exists(tmp(j)) Then
                s = s & Chr(10) & Replace(Mid(Dic(tmp(j)), 2), "|", tmp(j))
            End If
        Next
        If Len(s) Then c(i, 1) = Mid(s, 2)
    Next
    .Range("C2").Resize(UBound(c), 1) = c
End With
End Sub

SA_DQ · 1/8/23

Nếu bạn chịu khó tạo cho mỗi thủ kho 1 mã duy nhất thì đâu đến nổi phải lên hỏi ở diễn đàn!
Ví dụ:

Thu_kho

Mã TK

Địa chỉ

năm sinh

BUI BAI BINH

BBB00

VT

1994

HO VAN PHUOC

HVP00

BN

1954

HOANG NGOC

HJN00

VT

1975

HUYNH BAO LOC

HBL00

LA

1994

HUYNH KIM LY

HKL00

BD

1974

HUYNH KIM LY

HKL01

CT

1987

HUYNH THỊ KIM LY

HKL02

KG

1987

LE THI BAO

LTB00

QT

1994

LE VAN BINH

LVB00

PT

1999

LE VAN LUYEN

LVL00

BL

1999

LY NAM DINH

LND00

TTH

1990

NGUYEN THI XUYEN

NTX00

QB

1996

NGUYEN VAN ĐA

NVF00

Quận 1

1992

NGUYEN VAN ĐA

NVF01

Quan 4

1994

TRAN HOANG BY

THT00

HN

1984

TRAN THI TUYEN

TTT00

HB

1965

TRAN THI TIEN

TTT01

BĐ

1959

TRAN VAN ON

TVO00

CT

1986

VU BA THE

VBT00

ST

1996

VU VAN HOA

VVH00

CT

1978

VU VAN HOA

VVH01

QN

1965

Phương Phương mito · 1/8/23

Nhattanktnn đã viết:

Thử code sau . . :

Mã:

Sub abc()
Dim i&, j&, a(), b(), c(), tmp, s$
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Thong_tin")
    a = .Range("A2:C" & .Cells(Rows.Count, "A").End(xlUp).Row).Value
    For i = 1 To UBound(a)
        Dic(a(i, 1)) = Dic(a(i, 1)) & Chr(10) & "-|: " & a(i, 3) & ", " & a(i, 2)
    Next
End With

With Sheets("Bang1")
    b = .Range("B2:B" & .Cells(Rows.Count, "B").End(xlUp).Row).Value
    ReDim c(1 To UBound(b), 1 To 1)
    For i = 1 To UBound(b)
        tmp = Split(b(i, 1), Chr(10))
        s = vbNullString
        For j = 0 To UBound(tmp)
            If Dic.exists(tmp(j)) Then
                s = s & Chr(10) & Replace(Mid(Dic(tmp(j)), 2), "|", tmp(j))
            End If
        Next
        If Len(s) Then c(i, 1) = Mid(s, 2)
    Next
    .Range("C2").Resize(UBound(c), 1) = c
End With
End Sub

Code hay quá và chạy đúng rồi ạ. Em học được thêm cách giải mới ạ ! Em cảm ơn anh ạ!

Bài đã được tự động gộp: 1/8/23

SA_DQ đã viết:
Nếu bạn chịu khó tạo cho mỗi thủ kho 1 mã duy nhất thì đâu đến nổi phải lên hỏi ở diễn đàn!
Ví dụ:

Thu_kho Mã TK Địa chỉ năm sinh
BUI BAI BINH BBB00 VT 1994
HO VAN PHUOC HVP00 BN 1954
HOANG BAO NGOC HBN00 VT 1975
HUYNH BAO LOC HBL00 LA 1994
HUYNH KIM LY HKL00 BD 1974
HUYNH KIM LY HKL01 CT 1987
HUYNH KIM LY HKL02 KG 1987
LE THI BAO LTB00 QT 1994
LE VAN BINH LVB00 PT 1999
LE VAN LUYEN LVL00 BL 1999
LY NAM DINH LND00 TTH 1990
NGUYEN THI XUYEN NTX00 QB 1996
NGUYEN VAN ĐA NVF00 Quận 1 1992
NGUYEN VAN ĐA NVF01 Quan 4 1994
TRAN HOANG BY THT00 HN 1984
TRAN THI TUYEN TTT00 HB 1965
TRAN THI TIEN TTT01 BĐ 1959
TRAN VAN ON TVO00 CT 1986
VU BA THE VBT00 ST 1996
VU VAN HOA VVH00 CT 1978
VU VAN HOA VVH01 QN 1965

Dạ không ạ. Thực tế nguồn số liệu em làm nó không có mã của tên thủ kho ạ. Mà đang phải tìm duy nhất được theo tên thôi ạ. Sau đó từ tên và thông tin chung đó mới nhìn bằng mắt và đưa ra phán đoán sau đó anh ạ. thực tế số liệu hiện có là thế ạ

SA_DQ · 1/8/23

Phương Phương mito đã viết:
. . . . Thực tế nguồn số liệu em làm nó không có mã của tên thủ kho ạ. Mà đang phải tìm duy nhất được theo tên thôi ạ. Sau đó từ tên và thông tin chung đó mới nhìn bằng mắt và đưa ra phán đoán sau đó anh ạ. thực tế số liệu hiện có là thế ạ

/(/hưng bạn hoàn toàn có khả năng tạo mã duy nhất ở trang 'ThongTin' cơ mà; Ai không cho bạn báo ngay với mình, để mình ném đá cho hắn đến chết cho coi!

Phương Phương mito · 1/8/23

SA_DQ đã viết:
/(/hưng bạn hoàn toàn có khả năng tạo mã duy nhất ở trang 'ThongTin' cơ mà; Ai không cho bạn báo ngay với mình, để mình ném đá cho hắn đến chết cho coi!

Hắn là cả một hệ thống số liệu lằng nhằng và em cũng tham gia vào việc gỡ rối ạ.hihi.Em cảm ơn anh đã cho gợi ý thêm ạ !

Thóc Sama · 1/8/23

SA_DQ đã viết:
/(/hưng bạn hoàn toàn có khả năng tạo mã duy nhất ở trang 'ThongTin' cơ mà; Ai không cho bạn báo ngay với mình, để mình ném đá cho hắn đến chết cho coi!

"Anh" kỳ này cũng ngoa lắm đó nha!

VetMini · 1/8/23

Phương Phương mito đã viết:
Code hay quá và chạy đúng rồi ạ. Em học được thêm cách giải mới ạ ! Em cảm ơn anh ạ!
...

Code chạy đúng thì dùng. Chứ cái chuyện "học được thêm" thì cần suy nghĩ lại.
Hiện tại bạn đã biết tại sao Redim Reserve của bạn nó ra sao chưa? Dùng khong được hay được? và dùng ra sao mới đúng?
Cái cũ chưa thấy thấm đã lo học cái mới.

Lấy thông tin của thủ kho có nhiều tên giống nhau và cùng ở một ô

Phương Phương mito

Thành viên thường trực

File đính kèm

BuiQuangThuan

❆❆❆❆❆❆❆❆❆❆❆❆

Nhattanktnn

Thành viên gắn bó

SA_DQ

/(hông là gì!

Phương Phương mito

Thành viên thường trực

SA_DQ

/(hông là gì!

Phương Phương mito

Thành viên thường trực

Thóc Sama

＿/＿/＿/＿/＿/＿/＿/

VetMini

Ăn cùng góc phố

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

Facebook

Group

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