Nếu bạn không chuẩn hóa mặt hàng thì rất khó đạt được kết quả.
Công thức của Bạn nếu A1 = TÔM 1080 - ( 200g x 40 gói/thùng ), kết quả là thùng, nếu A1 = TÔM 1080 - ( 200g x 40 gói/thùng) kết quả là thùn, nếu sau dấu đóng ngoặc có thêm vài dấu cách thì kết quả là thùng) ,do đó không thể xem là OK được.
Sub Macro1()
On Error Resume Next
Range([b1], [b65536].End(3)).Copy [c1]
With Range([c1], [c65536].End(3))
.Replace "*/", ""
.Replace ")", ""
End With
End SubTôi lại khoái Trim() như của minhthien321, vì thế code này xin thêm 1 dòng nữa cho đẹp nhé:
Sub Macro1()
On Error Resume Next
Range([b1], [b65536].End(3)).Copy [c1]
With Range([c1], [c65536].End(3))
.Replace "*/", ""
.Replace ")", ""
[COLOR=#ff0000].Replace " ", ""[/COLOR]
End With
End Sub
Bạn sửa lại một chút. Thêm ,2 vào cuối những dòng có .Replace đầu dòng.
Sub Macro1()
On Error Resume Next
Range([b1], [b65536].End(3)).Copy [c1]
With Range([c1], [c65536].End(3))
.Replace "*/", "", 2
.Replace ")", "", 2
.Replace " ", "", 2
End With
End SubCode ở bài #14 không thiết lập cho tùy chọn Lookat khi sử dùng Replace nên Excel sẽ lấy theo lần tìm kiếm trước đó. Vì vậy, nếu trước đó Excel đã thực hiện Find hay Replace với tùy chọn Match entire cell contents thì code ở bài #14 không còn đúng nữa.
Ít nhất Bạn cũng đưa tập tin và những yêu cầu cụ thể, kết quả mong muốn như thế nào (nhập thủ công vào), từ đó mọi người mới hiểu Bạn muốn gì mà giúp chớ nhìn cái công thức dài ngoằn lôn xộn, cái Name TEN_HH hổng biết nó ở đâu... làm sao hiểu được.
Ái chà chà, cái bạn này sử dụng chiêu "khích tướng" đây
Public Sub ToTiTe()
Dim Vung, VungDo, DonVi, SoLuong, SoDu, Ws, I, J, Tim, d, Ma, Khach
Set Ws = Sheets("NXTHH"): Set d = CreateObject("scripting.dictionary")
Set Vung = Range([f12], [f1000].End(xlUp)): Set Ma = Sheets("BCD").Range(Sheets("BCD").[b10], Sheets("BCD").[b1000].End(xlUp))
Set VungDo = Ws.Range(Ws.[a9], Ws.[a1000].End(xlUp))
For I = 1 To Ma.Rows.Count
If Not d.exists(Ma(I).Value) Then d.Add Ma(I).Value, Ma(I).Offset(, 1)
Next I
For I = 1 To Vung.Rows.Count
For J = 1 To VungDo.Rows.Count
If VungDo(J) = Vung(I) Then
Tim = VungDo(J).Offset(, 1)
Khach = d.Item(Vung(I).Offset(, 6).Value)
If Vung(I).Offset(, 1) >= VungDo(J).Offset(, 2) Then
DonVi = Right(Tim, Len(Tim) - InStr(1, Tim, "/"))
DonVi = Left(DonVi, Len(DonVi) - 1)
SoLuong = Int(Vung(I).Offset(, 1) / VungDo(J).Offset(, 2))
SoDu = Vung(I).Offset(, 1) Mod VungDo(J).Offset(, 2)
If SoDu > 0 Then
Vung(I).Offset(, -2) = "Xuat " & SoLuong & " " & DonVi & " " & SoDu & " " & VungDo(J).Offset(, 3) & " " & VungDo(J).Offset(, 1) & "/ " & Khach
Exit For
Else
Vung(I).Offset(, -2) = "Xuat " & SoLuong & " " & DonVi & " " & VungDo(J).Offset(, 1) & "/ " & Khach
Exit For
End If
Else
Vung(I).Offset(, -2) = "Xuat " & Vung(I).Offset(, 1) & " " & VungDo(J).Offset(, 3) & " " & VungDo(J).Offset(, 1) & "/ " & Khach
Exit For
End If
End If
Next J
Next I
End SubCám ơn bạn đã giúp đỡ. Xin lỗi do chờ lâu quá nóng ruột, nên .... Code của bạn hay nhưng chỉ dùng riêng cho xuất kho thôi chứ không dùng cho những cái khác như nhập kho hàng mua, hàng trả lại, xuất nguyên liệu sx và mấy cái khác nữa .vv. Do trình độ VBA của mình có hạn, mình lượm lặc từ GPE chế biến thành CT, nó hơi dài, dùng rất ổn, nay muốn cải tiến cần 1 hàm nào để lọc lấy đơn vị thùng, xô .. nằm sau dấu "/" thay cho chữ "T" có trong công thức của mình. Thanks
Hổng chịu kiểu của concogia thì coi thử cái này, Tả bín lù vừa code, vừa công thức, vừa name cho đủ màu. Chỉ nhập số liệu vào là nó "chạy". Copy hàng loạt rồi dán vào cột SL nó cũng chạy luôn, mà chạy đi "chết"
