Hai ví dụ cuối của bạn bị sai, lần sau ví dụ cho chuẩn nhé.
dạ, không sai đâu ạ, nhiều lúc tên sheet 2 nó vẫn khác ,như 2 ví dụ anh bảo ạ
Bạn thử xóa từ đầu tiên của hai dòng cuối xem, mình chỉ biết làm đến vậy thôi, hơn nữa là ngoài khả năng mất rồi.
vâng anh, em muốn tìm dò chứa chữ cơ, Vd Nguyễn Thị Ngọc, thì Ngọc Hà, văn ngọc, trần thị ngọc.... có điểm chung là ngọc
Vậy nếu trùng thì sẽ sai mã ngay, ý tưởng của bạn 99,99% là không khả thi.
do dữ liệu của em, 2 người nhập (1 người nhập gõ kiểu này, 1 người nhập kiểu khác), lên em thử lên đây hỏi xem anh chị trong nhóm có code VBA nào có thể dò tìm được không ạ
Dò thì chắc chắn thấy được và chắc chắn là trùng sẽ sai mã.
cũng khó anh nhỉ, ý tưởng của em là sẽ tìm 2 cột tên sản phẩm số chữ giống nhau trùng nhau nhiều nhất, thì lấy dữ liệu hàng đấy ạ
Phải triệt để từ trứng nước chứ dọn rác thế này có phải tự làm khổ bản thân không
Tóm lại trong công ty của bạn thằng đi làm thuê muốn làm thế nào cũng phải chấp nhận? Tôi mà là chủ thì tôi đẩy ngay ra đường. Còn nếu là nhân viên thì tôi báo cáo với sếp. Nếu sếp dung túng thì tôi cố chuyển việc. Ở lại chỉ là bất đắc dĩ thôi.
Vâng. Anh ạ .nhiều lúc bực mình lắm
Vâng anh. Nhiều lúc khổ lắm anh ạ. Chỉ gõ thêm "-" là sai bét. Lại phải dò thủ công anh ạ
Nếu nhiệm vụ của bạn thì bạn nên có qui định và nhân viên phải làm theo. Mình thông cảm cho họ nhưng họ phải có kỷ luật.
Có những chuyện không như mơ, quản trị doanh nghiệp phải xử lý rừng dữ liệu từ nhiều nguồn khác nhau thường không đồng nhất, lúc thừa lúc thiếu là chuyện cơm bữa. Dữ liệu đến từ các đối tác kinh doanh không thể theo chuẩn chung, ngay cả trong nội bộ doanh nghiệp từng bộ phận thường có cách xử lý dữ liệu riêng và mối quan hệ giữa các cá nhân khá phức tạp nên dữ liệu thường khác nhau, muốn dữ liệu thống nhất phải bỏ ra chi phí và thời gian khá lớn để xây dựng hệ thống quản trị nguồn lực ERP
Sub XYZ()
Dim aData(), aSP(), res(), arr(), S, aL, aU, sp$
Dim srData&, srSP&, N&, D&, i&, j&, k&, r&
aL = Array(0, 1, 0, 1, 0, 2, 3, 0, 2, 1, 4, 0, 3, 1, 2)
aU = Array(0, 0, 1, 1, 2, 0, 0, 3, 1, 2, 0, 4, 1, 3, 2)
N = UBound(aL)
With Sheets("Sheet1")
aData = .Range("A2", .Range("B" & Rows.Count).End(xlUp)).Value
End With
With Sheets("Sheet2")
aSP = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Value
End With
srData = UBound(aData): srSP = UBound(aSP)
ReDim res(1 To srSP, 1 To 2)
For i = 1 To srData
aData(i, 1) = Application.Trim(Replace(aData(i, 1), "!", "! "))
Next i
For i = 1 To srSP
S = Split(Application.Trim(Replace(aSP(i, 1), "!", "! ")), " ")
D = UBound(S)
For j = 0 To N
If D - aL(j) - aU(j) > 0 Then
ReDim arr(aL(j) To D - aU(j))
For k = aL(j) To D - aU(j)
arr(k) = S(k)
Next k
sp = Join(arr, " ")
For r = 1 To srData
If InStr(1, aData(r, 1), sp, vbTextCompare) > 0 Then
res(i, 1) = aData(r, 2)
res(i, 2) = aData(r, 1)
GoTo Tiep
End If
Next r
End If
Next j
Tiep:
Next i
Sheets("Sheet2").Range("B2").Resize(srSP, 2) = res
End Sub
Nếu có >=2 sản phẩm cùng số lượng chữ giống nhau thì chọn thế nào?
Tung đồng xu? Tung đồng xu? Tung đồng xu? Tung đồng xu? Tung đồng xu? Tung đồng xu? Tung đồng xu? Tung đồng xu?
Dạ . Chắc không có đâu. Nếu có em lấy chữ chữ đầu tiên ạ
Dạ em cám ơn anh ạCó những chuyện không như mơ, quản trị doanh nghiệp phải xử lý rừng dữ liệu từ nhiều nguồn khác nhau thường không đồng nhất, lúc thừa lúc thiếu là chuyện cơm bữa. Dữ liệu đến từ các đối tác kinh doanh không thể theo chuẩn chung, ngay cả trong nội bộ doanh nghiệp từng bộ phận thường có cách xử lý dữ liệu riêng và mối quan hệ giữa các cá nhân khá phức tạp nên dữ liệu thường khác nhau, muốn dữ liệu thống nhất phải bỏ ra chi phí và thời gian khá lớn để xây dựng hệ thống quản trị nguồn lực ERP
Tạm chữa cháy bằng cách cắt chuỗi và tìm gần đúng, nếu muốn xịn hơn tìm người dùng thuật toán trí tuệ nhân tạo để xử lý
Dữ liệu khá ít nên code có thể chưa xét hết các khả năng
Mã:Sub XYZ() Dim aData(), aSP(), res(), arr(), S, aL, aU, sp$ Dim srData&, srSP&, N&, D&, i&, j&, k&, r& aL = Array(0, 1, 0, 1, 0, 2, 3, 0, 2, 1, 4, 0, 3, 1, 2) aU = Array(0, 0, 1, 1, 2, 0, 0, 3, 1, 2, 0, 4, 1, 3, 2) N = UBound(aL) With Sheets("Sheet1") aData = .Range("A2", .Range("B" & Rows.Count).End(xlUp)).Value End With With Sheets("Sheet2") aSP = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Value End With srData = UBound(aData): srSP = UBound(aSP) ReDim res(1 To srSP, 1 To 2) For i = 1 To srData aData(i, 1) = Application.Trim(Replace(aData(i, 1), "!", "! ")) Next i For i = 1 To srSP S = Split(Application.Trim(Replace(aSP(i, 1), "!", "! ")), " ") D = UBound(S) For j = 0 To N If D - aL(j) - aU(j) > 0 Then ReDim arr(aL(j) To D - aU(j)) For k = aL(j) To D - aU(j) arr(k) = S(k) Next k sp = Join(arr, " ") For r = 1 To srData If InStr(1, aData(r, 1), sp, vbTextCompare) > 0 Then res(i, 1) = aData(r, 2) res(i, 2) = aData(r, 1) GoTo Tiep End If Next r End If Next j Tiep: Next i Sheets("Sheet2").Range("B2").Resize(srSP, 2) = res End Sub
Dạ. Em cám ơn anh ạ. Để em thử xem. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
Tham khảo file của mình bài trên & xin bạn góp ý thêm . . . .
Chi phí ERP có hai chỗ:Có những chuyện không như mơ, quản trị doanh nghiệp phải xử lý rừng dữ liệu từ nhiều nguồn khác nhau thường không đồng nhất, lúc thừa lúc thiếu là chuyện cơm bữa. Dữ liệu đến từ các đối tác kinh doanh không thể theo chuẩn chung, ngay cả trong nội bộ doanh nghiệp từng bộ phận thường có cách xử lý dữ liệu riêng và mối quan hệ giữa các cá nhân khá phức tạp nên dữ liệu thường khác nhau, muốn dữ liệu thống nhất phải bỏ ra chi phí và thời gian khá lớn để xây dựng hệ thống quản trị nguồn lực ERP
Tạm chữa cháy bằng cách cắt chuỗi và tìm gần đúng, nếu muốn xịn hơn tìm người dùng thuật toán trí tuệ nhân tạo để xử lý
Dữ liệu khá ít nên code có thể chưa xét hết các khả năng
...
Chuyện dữ liệu như này ai cũng có gặp qua. Vấn đề là mình có biết cách "đổ tội" hay không thôi.
Dạ .nếu dò trùng nhiều nhất. Vd như Máy honda. 2 cái đều trùng như nhau. Thì lấy hàng xuất hiện trên ạ.
Dạ .nếu dò trùng nhiều nhất. Vd như Máy honda. 2 cái đều trùng như nhau. Thì lấy hàng xuất hiện trên ạ.
Ý hay anh ạ. Nếu tìm chữ trùng nhau đều giống nhau. Thì mình chọn cũng được anh ạ.
Có lẽ file này sẽ đáp ứng nhu cầu của bạn
Cột tên sản phẩm sheet2 chắc là nhập tay, hay là bác làm cho 1 cái list xổ xuống khi đang nhập để lựa chọn cho nó nhanh
.Không có khả năng đành phải sống chung với lũ
Vấn đề thường gặp là bên nào cũng cho mình đúng như phù hợp với đặc điểm công việc của đơn vị mình, hoặc do phần mềm quản lý của từng bộ phận quy định như thế và . . . nhiều lý do khác, cấp trên không đủ khả năng hoặc không dám mạnh miệng phán phải theo anh nào
Vâng .để em tham khảo ạ
Dạ vâng.Em cám ơn .Để em kiểm tra lại ạ
Dạ anh.Dữ liệu em đều nhập trước hết rùi anh ạ. Bấy giờ em chỉ muốn lấy mã sản phẩm.cái khó dữ liệu mỗi người gõ 1 kiểu anh ạ.Cột tên sản phẩm sheet2 chắc là nhập tay, hay là bác làm cho 1 cái list xổ xuống khi đang nhập để lựa chọn cho nó nhanh
Thường thì thấy tra cứu cái gì đó theo mã, đây lại tra cứu mã theo tên, cái này hơi bị lạ.
Thì ở GPE này cũng vậy. Có được bao nhiêu lần bạn giải bài mà không phải cắn răng...
Ở bài trên tôi có nói điển hình ở GPE cũng đâu khác ngoài đời.
