Tạo mã hàng mới

[lylyly]

Các anh chi oi, giúp em chuyện này với, e, làm mãi mà ko ra.
Em muốn tạo mã hàng với đầy đủ các chỉ tiêu như:
- Mã nhà cung cấp: A,B
- Mã mặt hàng: 1,2
- Mã loại vật liệu: AA,AB
- Mã quy cách: 6 số
- Mã thông số phụ: A0,A1..

vd:
- Nhà cung cấp: A: Binh Minh
- Mã mặt hàng: 1: Nhựa
- Mã vật liệu: AA: WL02
- Mã quy cách: 35*12 ---> 035012
- Mã thông số phụ: A0: cao 50mm

Từ những chỉ tiêu trên em muốn dùng công thức để tạo thành 1 mã hàng là:
A1AA035012A0

Áp dụng cho rất nhiều mặt hàng, mọi người giúp em với, em cảm ơn rất nhiều.

 

[Po_Pikachu]

Vậy bạn tạo ra 1 bảng ứng với những cái tên đó đi. Theo quy luật là Tên hàng trước mã sau. Rồi dùng hàm Vlookup và dấu (&) để ghép các tên mà bạn muốn thành mã hàng chứ có gì đâu! Nếu nhiều nữa thì đem toàn bộ các loại tên mã hàng và yêu cầu xếp ở đâu lên mình sẽ thống kê cho bạn 1 công thức cụ thể để dễ làm luôn! Chứ nói khơi khơi thì mình cũng bó tay thôi! Thân

 

[cadafi]

Các anh chi oi, giúp em chuyện này với, e, làm mãi mà ko ra.
Em muốn tạo mã hàng với đầy đủ các chỉ tiêu như:
- Mã nhà cung cấp: A,B
- Mã mặt hàng: 1,2
- Mã loại vật liệu: AA,AB
- Mã quy cách: 6 số
- Mã thông số phụ: A0,A1..

vd:
- Nhà cung cấp: A: Binh Minh
- Mã mặt hàng: 1: Nhựa
- Mã vật liệu: AA: WL02
- Mã quy cách: 35*12 ---> 035012
- Mã thông số phụ: A0: cao 50mm

Từ những chỉ tiêu trên em muốn dùng công thức để tạo thành 1 mã hàng là:
A1AA035012A0

Áp dụng cho rất nhiều mặt hàng, mọi người giúp em với, em cảm ơn rất nhiều.

Như vậy, dữ liệu hiện có của bạn như thế nào? Bạn không nói rõ cấu trúc dữ liệu hiện có thì mọi người không thể nghĩ ra cách được! Nhìn chung chung thì dùng dấu & để nối chuỗi theo cách của Po_Pikachu. Còn thực tế như thế nào bạn phải nói rõ hoặc gửi file kèm lên để có hướng giải quyết tốt nhất!

 

[BinhTam]

Bạn gõ mỗi mã một ô sau đó dùng toán tử ghép "&" là sẽ ra được như yêu cầu của bạn.



Từ những chỉ tiêu trên em muốn dùng công thức để tạo thành 1 mã hàng là:
A1AA035012A0

Áp dụng cho rất nhiều mặt hàng, mọi người giúp em với, em cảm ơn rất nhiều.[/quote]

 

[lylyly]

Cai nhu ban noi thi don gian roi, nhung y minh khong phai vay, minh gui gui kem file de may anh chi tham khao nha.

 

[lylyly]

Cai nhu ban noi thi don gian roi, nhung y minh khong phai vay, minh gui gui kem file de may anh chi tham khao nha.View attachment MA HANG.xls

 

[Po_Pikachu]

File này của bạn chưa đủ yêu cầu của mình, và mình thấy bạn cũng đã tạo được mã hàng đấy thôi! Bạn xem cách viết và sắp xếp lại dữ liệu thì mới chạy được mã hàng đúng! Bạn xem file nha! (Yêu cầu bạn phải gõ tiếng Việt có dấu!) Thân.

 

[lylyly]

Mình gừi kèm file hoàn chỉnh bạn giúp mình với nhé, mình đã làm rồi nhưng không đầy đủ lắm. Cảm ơn bạn nhiều nha. View attachment FILE MHANG.xls

 

[SA_DQ]

Bạn xem trong file đính kèm

Mình gừi kèm file hoàn chỉnh bạn giúp mình với nhé, mình đã làm rồi nhưng không đầy đủ lắm. Cảm ơn bạn nhiều nha.

Mình cho rằng tạo ra 1 mã vật tư theo yêu cầu thì đơn giản, bằng cách dùng toán tử '&'
Nhưng để duy trì lâu dài cách thức tự động tạo mã thì cũng cần tự động lập 5 danh sách duy nhất;

Mình viết sẵn cho bạn macro để khi bạn nhập record mới về khách hàng, quy cách, hay chủng loại,. . . thì chỉ cần cho chạy macro AddRecord là xong ngay; Macro này đã được gán sẵn phím tắt, cũng giống như macro TaoMa

Option Explicit
Sub TaoMa()
 With Sheet1
   [b1] = .Cells(2 + [b2], 1) & .Cells(2 + [b3], 3) _
         & .Cells(2 + [b4], 5) & .Cells(2 + [b5], 7) & .Cells(2 + [b6], 9)
 End With
End Sub

'* * * * * * * * * * * * * * * * * * * * * * * * * * *

[B]Sub AddRecord()[/B]
 Dim bF As Byte
 Dim Cols As Range, Rten As Range
 Dim sTen As String
 
 Application.ScreenUpdating = False
 Sheet1.Select:                        Columns(1).Resize(, 11).Clear
 Range([a1], [f1]) = Range([l1], [Q1]).Value
 Range([g1], [J1]) = Range([t1], [w1]).Value
 For bF = 1 To 5
   Set Cols = Choose(bF, Columns(12), Columns(14), _
      Columns(16), Columns(20), Columns(22)).Resize(, 2)
   TaoDSDN Cols, [a1].Offset(, 2 * (bF - 1)).Resize(, 2)
   sTen = Choose(bF, "NCCap", "Hang", "VLieu", "QCach", "ThSo")
   Set Rten = Cells(65432, 2 * bF).End(xlUp)
   GanTen Rten, Rten.Row, sTen, 2 * bF
 Next bF
[B]End Sub[/B]

'* * * * * * * * * * * * * * * * * * * * * * * * * * *

[B]Sub TaoDSDN(Cols As Range, Rng As Range)[/B]
    Cols.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Rng, Unique:=True
[B]End Sub[/B]

'* * * * * * * * * * * * * * * * * * * * * * * * * * *

[B]Sub GanTen(Rten As Range, lrow As Long, sTen As String, Cot As Byte)[/B]
    Rten.Select
    ActiveWorkbook.Names.Add Name:=sTen, _
      RefersToR1C1:="=Sheet1!R3C" & Cot & ":R" & lrow & "C" & Cot
[B]End Sub[/B]