Chia tiến độ bằng VBA (1 người xem)

[vulunktheky]

Chào anh chị và các bạn,
Nhờ các bạn giúp đỡ mình chia tiến độ bằng VBA, vì bình thường mình làm thao tác thủ công rất lâu và dễ bị sai sót.
Chia tiến độ với yêu cầu như sau:
+ Nhập vào size bất kỳ (bắt buộc phải nhập tay) thì sẽ trả về tên màu và số lượng của màu đó (Mỗi lần chia số lượng của màu không quá 24 đôi) và chia đến hết màu và số lượng của từng màu.
+ nếu màu đó được chia hết số lượng mà vẫn nhập vào số Size thì sẽ xuất hiện thông báo cảnh báo là hết số lượng.
Mình cảm ơn!

 

[vulunktheky]

Chào anh chị và các bạn,
Nhờ các bạn giúp đỡ mình chia tiến độ bằng VBA, vì bình thường mình làm thao tác thủ công rất lâu và dễ bị sai sót.
Chia tiến độ với yêu cầu như sau:
+ Nhập vào size bất kỳ (bắt buộc phải nhập tay) thì sẽ trả về tên màu và số lượng của màu đó (Mỗi lần chia số lượng của màu không quá 24 đôi) và chia đến hết màu và số lượng của từng màu.
+ nếu màu đó được chia hết số lượng mà vẫn nhập vào số Size thì sẽ xuất hiện thông báo cảnh báo là hết số lượng.
Mình cảm ơn!

Mong Mọi người hỗ trợ giúp mình vấn đề này, mình cảm ơn!

 

[HieuCD]

Chào anh chị và các bạn,
Nhờ các bạn giúp đỡ mình chia tiến độ bằng VBA, vì bình thường mình làm thao tác thủ công rất lâu và dễ bị sai sót.
Chia tiến độ với yêu cầu như sau:
+ Nhập vào size bất kỳ (bắt buộc phải nhập tay) thì sẽ trả về tên màu và số lượng của màu đó (Mỗi lần chia số lượng của màu không quá 24 đôi) và chia đến hết màu và số lượng của từng màu.
+ nếu màu đó được chia hết số lượng mà vẫn nhập vào số Size thì sẽ xuất hiện thông báo cảnh báo là hết số lượng.
Mình cảm ơn!

1 size có nhiều màu, chọn màu nào?
Trình tự nhập size như thế nào, vị trí nhập lung tung?

 

[vulunktheky]

1 size có nhiều màu, chọn màu nào?

màu sẽ theo thứ tự từ trên xuống dưới á anh, khi nào số lượng của đơn tren hết thì sẽ tiếp đến đơn kế. Hoặc là có thể randoom bất kỳ màu nào cũng được anh nhưng đảm bảo về số lượng từng size

 

[vulunktheky]

1 size có nhiều màu, chọn màu nào?
Trình tự nhập size như thế nào, vị trí nhập lung tung?

Trình tự nhập size như thế này anh.

 

[snow25]

Chào anh chị và các bạn,
Nhờ các bạn giúp đỡ mình chia tiến độ bằng VBA, vì bình thường mình làm thao tác thủ công rất lâu và dễ bị sai sót.
Chia tiến độ với yêu cầu như sau:
+ Nhập vào size bất kỳ (bắt buộc phải nhập tay) thì sẽ trả về tên màu và số lượng của màu đó (Mỗi lần chia số lượng của màu không quá 24 đôi) và chia đến hết màu và số lượng của từng màu.
+ nếu màu đó được chia hết số lượng mà vẫn nhập vào số Size thì sẽ xuất hiện thông báo cảnh báo là hết số lượng.
Mình cảm ơn!

FIle của bạn quá nhiều Shape mình đếm sơ sơ cũng gần 3000 cái.Thao tác chậm và giật tưng bừng.

 

[vulunktheky]

FIle của bạn quá nhiều Shape mình đếm sơ sơ cũng gần 3000 cái.Thao tác chậm và giật tưng bừng.

Sao mình thao tác vẫn thấy bình thường mà bạn, bạn xem hỗ trợ giúp mình với. Vì mình mất quá nhiều thời gian cho việc chia tiến độ này quá

 

[HieuCD]

Trình tự nhập size như thế này anh.
View attachment 222015

Tạo sự kiện nhập Size

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr(), Size()
  Dim i, iR, jC, eRow, Size_sCol
  Dim Tar, Mau As String
  Const fR = 2: Const fC = 2: Const sCol = 30: Const iMax = 24
 
  If Target.Count = 1 Then
    iR = Target.Row
    If (iR Mod 7) = 2 Then
      jC = Target.Column
      If jC >= fC And jC <= fC + sCol - 1 Then
        Tar = Target.Value 'Size
        If Len(Tar) = 0 Then
          Target.Offset(1) = Empty
          Target.Offset(3) = Empty
          Exit Sub
        End If
        If Not IsNumeric(Tar) Then
          MsgBox ("Du Lieu Size Khong Hop Le"): Exit Sub
        End If
        With Sheets("JR size nho ")
          eRow = .Range("C" & Rows.Count).End(xlUp).Row
          If eRow < 3 Then MsgBox ("Khong co Du Lieu Size"): Exit Sub
          Size = .Range("C2:Z" & eRow).Value 'Bang Size
        End With
        Size_sCol = UBound(Size, 2)
        For j = 2 To Size_sCol
          If Size(1, j) = Tar Then jk = j: Exit For 'jk: Cot Size
        Next j
        If j = Size_sCol + 1 Then
          MsgBox ("Du Lieu Size Khong Hop Le"): Exit Sub
        End If
        sArr = Range("B2:B" & iR + 3).Resize(, sCol).Value
        With CreateObject("scripting.dictionary")
          For i = 1 To iR Step 7
            If i = iR Then n = jC - 2 Else n = sCol
            For j = 1 To n
              If sArr(i, j) = Tar Then
                Mau = sArr(i + 1, j)
                If Not .exists(Mau) Then
                  .Add Mau, sArr(i + 3, j)
                Else
                  .Item(Mau) = .Item(Mau) + sArr(i + 3, j)
                End If
              End If
            Next j
          Next i
          For i = 2 To UBound(Size)
            sl = Size(i, jk) - .Item(Size(i, 1))
            If sl > 0 Then
              If sl > 24 Then sl = 24
              Application.EnableEvents = False
              Target.Offset(1) = Size(i, 1)
              Target.Offset(3) = sl
              Application.EnableEvents = True
              Exit Sub
            End If
          Next i
          MsgBox ("Khong Tim Duoc Du Lieu Phu Hop")
        End With
      End If
    End If
  End If
End Sub

 

[HieuCD]

Trình tự nhập size như thế này anh.
View attachment 222015

Thêm lệnh tạm Kiểm tra nhập lung tung

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr(), Size()
  Dim i, k, iR, jC, eRow, Size_sCol, sRow
  Dim Tar, Mau As String
  Const fR = 2 'Dòng dau
  Const fC = 2 'Cot dau nhap size
  Const sCol = 30 'So cot
  Const iMax = 24 'So luong toi da
 
  If Target.Count = 1 Then
    iR = Target.Row
    If (iR Mod 7) = 2 Then
      jC = Target.Column
      If jC >= fC And jC <= fC + sCol - 1 Then
        Tar = Target.Value 'Size
        If Len(Tar) = 0 Then
          Target.Offset(1) = Empty
          Target.Offset(3) = Empty
          Exit Sub
        End If
        If Not IsNumeric(Tar) Then
          MsgBox ("Du Lieu Size Khong Hop Le"): Exit Sub
        End If
        'Kiem tra nhap lung tung
        eRow = Range("A" & Rows.Count).End(xlUp).Row
        sArr = Range("A2:A" & eRow).Resize(, sCol + 1).Value
        sRow = UBound(sArr)
        k = iR - fR + 1
        For i = k To sRow Step 7
          If i = k Then n = jC + 1 Else n = 2
          For j = n To sCol + 1
              If Len(sArr(i, j)) Then MsgBox ("Size Khong Duoc Nhap lung Tung"): Exit Sub
          Next j
        Next i
          
        With Sheets("JR size nho ")
          eRow = .Range("C" & Rows.Count).End(xlUp).Row
          If eRow < 3 Then MsgBox ("Khong co Du Lieu Size"): Exit Sub
          Size = .Range("C2:Z" & eRow).Value 'Bang Size
        End With
        Size_sCol = UBound(Size, 2)
        For j = 2 To Size_sCol
          If Size(1, j) = Tar Then jk = j: Exit For 'jk: Cot Size
        Next j
        If j = Size_sCol + 1 Then
          MsgBox ("Du Lieu Size Khong Hop Le"): Exit Sub
        End If
        sArr = Range("B2:B" & iR + 3).Resize(, sCol).Value
        With CreateObject("scripting.dictionary")
          For i = 1 To iR Step 7
            If i = iR Then n = jC - 2 Else n = sCol
            For j = 1 To n
              If sArr(i, j) = Tar Then
                Mau = sArr(i + 1, j)
                If Not .exists(Mau) Then
                  .Add Mau, sArr(i + 3, j)
                Else
                  .Item(Mau) = .Item(Mau) + sArr(i + 3, j)
                End If
              End If
            Next j
          Next i
          For i = 2 To UBound(Size)
            sl = Size(i, jk) - .Item(Size(i, 1))
            If sl > 0 Then
              If sl > 24 Then sl = 24
              Application.EnableEvents = False
              Target.Offset(1) = Size(i, 1)
              Target.Offset(3) = sl
              Application.EnableEvents = True
              Exit Sub
            End If
          Next i
          MsgBox ("Khong Tim Duoc Du Lieu Phu Hop")
        End With
      End If
    End If
  End If
End Sub

 

[vulunktheky]

Tạo sự kiện nhập Size

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr(), Size()
  Dim i, iR, jC, eRow, Size_sCol
  Dim Tar, Mau As String
  Const fR = 2: Const fC = 2: Const sCol = 30: Const iMax = 24

  If Target.Count = 1 Then
    iR = Target.Row
    If (iR Mod 7) = 2 Then
      jC = Target.Column
      If jC >= fC And jC <= fC + sCol - 1 Then
        Tar = Target.Value 'Size
        If Len(Tar) = 0 Then
          Target.Offset(1) = Empty
          Target.Offset(3) = Empty
          Exit Sub
        End If
        If Not IsNumeric(Tar) Then
          MsgBox ("Du Lieu Size Khong Hop Le"): Exit Sub
        End If
        With Sheets("JR size nho ")
          eRow = .Range("C" & Rows.Count).End(xlUp).Row
          If eRow < 3 Then MsgBox ("Khong co Du Lieu Size"): Exit Sub
          Size = .Range("C2:Z" & eRow).Value 'Bang Size
        End With
        Size_sCol = UBound(Size, 2)
        For j = 2 To Size_sCol
          If Size(1, j) = Tar Then jk = j: Exit For 'jk: Cot Size
        Next j
        If j = Size_sCol + 1 Then
          MsgBox ("Du Lieu Size Khong Hop Le"): Exit Sub
        End If
        sArr = Range("B2:B" & iR + 3).Resize(, sCol).Value
        With CreateObject("scripting.dictionary")
          For i = 1 To iR Step 7
            If i = iR Then n = jC - 2 Else n = sCol
            For j = 1 To n
              If sArr(i, j) = Tar Then
                Mau = sArr(i + 1, j)
                If Not .exists(Mau) Then
                  .Add Mau, sArr(i + 3, j)
                Else
                  .Item(Mau) = .Item(Mau) + sArr(i + 3, j)
                End If
              End If
            Next j
          Next i
          For i = 2 To UBound(Size)
            sl = Size(i, jk) - .Item(Size(i, 1))
            If sl > 0 Then
              If sl > 24 Then sl = 24
              Application.EnableEvents = False
              Target.Offset(1) = Size(i, 1)
              Target.Offset(3) = sl
              Application.EnableEvents = True
              Exit Sub
            End If
          Next i
          MsgBox ("Khong Tim Duoc Du Lieu Phu Hop")
        End With
      End If
    End If
  End If
End Sub

Kết quả chính xác,Mình cảm ơn bạn nhiều.

 

[vulunktheky]

Thêm lệnh tạm Kiểm tra nhập lung tung

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sArr(), Size()
  Dim i, k, iR, jC, eRow, Size_sCol, sRow
  Dim Tar, Mau As String
  Const fR = 2 'Dòng dau
  Const fC = 2 'Cot dau nhap size
  Const sCol = 30 'So cot
  Const iMax = 24 'So luong toi da

  If Target.Count = 1 Then
    iR = Target.Row
    If (iR Mod 7) = 2 Then
      jC = Target.Column
      If jC >= fC And jC <= fC + sCol - 1 Then
        Tar = Target.Value 'Size
        If Len(Tar) = 0 Then
          Target.Offset(1) = Empty
          Target.Offset(3) = Empty
          Exit Sub
        End If
        If Not IsNumeric(Tar) Then
          MsgBox ("Du Lieu Size Khong Hop Le"): Exit Sub
        End If
        'Kiem tra nhap lung tung
        eRow = Range("A" & Rows.Count).End(xlUp).Row
        sArr = Range("A2:A" & eRow).Resize(, sCol + 1).Value
        sRow = UBound(sArr)
        k = iR - fR + 1
        For i = k To sRow Step 7
          If i = k Then n = jC + 1 Else n = 2
          For j = n To sCol + 1
              If Len(sArr(i, j)) Then MsgBox ("Size Khong Duoc Nhap lung Tung"): Exit Sub
          Next j
        Next i
        
        With Sheets("JR size nho ")
          eRow = .Range("C" & Rows.Count).End(xlUp).Row
          If eRow < 3 Then MsgBox ("Khong co Du Lieu Size"): Exit Sub
          Size = .Range("C2:Z" & eRow).Value 'Bang Size
        End With
        Size_sCol = UBound(Size, 2)
        For j = 2 To Size_sCol
          If Size(1, j) = Tar Then jk = j: Exit For 'jk: Cot Size
        Next j
        If j = Size_sCol + 1 Then
          MsgBox ("Du Lieu Size Khong Hop Le"): Exit Sub
        End If
        sArr = Range("B2:B" & iR + 3).Resize(, sCol).Value
        With CreateObject("scripting.dictionary")
          For i = 1 To iR Step 7
            If i = iR Then n = jC - 2 Else n = sCol
            For j = 1 To n
              If sArr(i, j) = Tar Then
                Mau = sArr(i + 1, j)
                If Not .exists(Mau) Then
                  .Add Mau, sArr(i + 3, j)
                Else
                  .Item(Mau) = .Item(Mau) + sArr(i + 3, j)
                End If
              End If
            Next j
          Next i
          For i = 2 To UBound(Size)
            sl = Size(i, jk) - .Item(Size(i, 1))
            If sl > 0 Then
              If sl > 24 Then sl = 24
              Application.EnableEvents = False
              Target.Offset(1) = Size(i, 1)
              Target.Offset(3) = sl
              Application.EnableEvents = True
              Exit Sub
            End If
          Next i
          MsgBox ("Khong Tim Duoc Du Lieu Phu Hop")
        End With
      End If
    End If
  End If
End Sub

Hi anh,xin phiền anh thêm 1 chút xíu.
Do quản lý yêu cầu thay đổi tiến độ 1 xíu so với cách hiện tại là sẽ chia hết số lượng của 1 size xong rồi mới chuyển sang size khác (với yêu cầu là nhập tay vào size và màu), khi nhập Size và màu đầu tiên thì sẽ tự động chia hết số lượng của size đó ở các ô còn lại. MÌnh cảm ơn!

 

[HieuCD]

Hi anh,xin phiền anh thêm 1 chút xíu.
Do quản lý yêu cầu thay đổi tiến độ 1 xíu so với cách hiện tại là sẽ chia hết số lượng của 1 size xong rồi mới chuyển sang size khác (với yêu cầu là nhập tay vào size và màu), khi nhập Size và màu đầu tiên thì sẽ tự động chia hết số lượng của size đó ở các ô còn lại. MÌnh cảm ơn!

Chạy code xong được kết quả như sheet kq mẫu, thao tác kế tiếp của bạn là gì? và kết quả như thế nào?

 

[vulunktheky]

Chạy code xong được kết quả như sheet kq mẫu, thao tác kế tiếp của bạn là gì? và kết quả như thế nào?

Sau khi chay code được kết quả như sheet mẫu mình mới đính kèm thì mình sẽ in ra cho sản xuất làm theo như số lượng đã chia size. Và sau đó kiểm tra số tồn của từng size.

 

[HieuCD]

Sau khi chay code được kết quả như sheet mẫu mình mới đính kèm thì mình sẽ in ra cho sản xuất làm theo như số lượng đã chia size. Và sau đó kiểm tra số tồn của từng size.

Sub PhanBo()
  Dim sArr(), sRow, sCol
  Dim DK(), dC, sC, Size, Mau As String
  Dim i, j, n, k, iR, jC
  Dim Sl, tmp
  Const fR = 2 'Dòng dau Sheet TH
  Const dR = 7 'Khoang cach ket qua
  Const eC = 31 'Cot cuoi
  Const iMax = 24 'So luong toi da

  With Sheets("TH2")
    sC = .Cells(2, Columns.Count).End(xlToLeft).Column
    If sC < 2 Then MsgBox ("Phai Nhap Du Lieu"): Exit Sub
    If sC > 31 Then MsgBox ("Du lieu vuot qua so cot"): Exit Sub
    DK = .Range("A2", .Cells(3, sC)).Value
    dC = sC - 1
  End With
 
  With Sheets("JR size nho ")
    eRow = .Range("C" & Rows.Count).End(xlUp).Row
    If eRow < 3 Then MsgBox ("Khong co Du Lieu Size"): Exit Sub
    sArr = .Range("C2:Z" & eRow).Value 'Bang Size
    sRow = UBound(sArr):    sCol = UBound(sArr, 2)
  End With
 
  Application.ScreenUpdating = False
  For n = 2 To sC
    Size = DK(1, n): Mau = DK(2, n)
    If Len(Size) > 0 Or Len(Mau) > 0 Then
      iR = fR 'Dong Size
      jC = n 'Cot KQ
      For j = 2 To sCol
        If sArr(1, j) = Size Then
          For i = 2 To sRow
            If sArr(i, 1) = Mau Then
              Sl = sArr(i, j)
              Do While Sl > 0
                If Sl > iMax Then tmp = iMax Else tmp = Sl
                Sl = Sl - tmp
                If jC > eC Then
                  iR = iR + dR
                  jC = jC - eC + 1
                End If
                With Sheets("TH2")
                  .Cells(iR, jC) = Size
                  .Cells(iR + 1, jC) = Mau
                  .Cells(iR + 3, jC) = tmp
                End With
                jC = jC + dC
              Loop
              Exit For
            End If
          Next i
        End If
      Next j
    End If
  Next n
  Application.ScreenUpdating = True
End Sub

 

[vulunktheky]

Sub PhanBo()
  Dim sArr(), sRow, sCol
  Dim DK(), dC, sC, Size, Mau As String
  Dim i, j, n, k, iR, jC
  Dim Sl, tmp
  Const fR = 2 'Dòng dau Sheet TH
  Const dR = 7 'Khoang cach ket qua
  Const eC = 31 'Cot cuoi
  Const iMax = 24 'So luong toi da

  With Sheets("TH2")
    sC = .Cells(2, Columns.Count).End(xlToLeft).Column
    If sC < 2 Then MsgBox ("Phai Nhap Du Lieu"): Exit Sub
    If sC > 31 Then MsgBox ("Du lieu vuot qua so cot"): Exit Sub
    DK = .Range("A2", .Cells(3, sC)).Value
    dC = sC - 1
  End With

  With Sheets("JR size nho ")
    eRow = .Range("C" & Rows.Count).End(xlUp).Row
    If eRow < 3 Then MsgBox ("Khong co Du Lieu Size"): Exit Sub
    sArr = .Range("C2:Z" & eRow).Value 'Bang Size
    sRow = UBound(sArr):    sCol = UBound(sArr, 2)
  End With

  Application.ScreenUpdating = False
  For n = 2 To sC
    Size = DK(1, n): Mau = DK(2, n)
    If Len(Size) > 0 Or Len(Mau) > 0 Then
      iR = fR 'Dong Size
      jC = n 'Cot KQ
      For j = 2 To sCol
        If sArr(1, j) = Size Then
          For i = 2 To sRow
            If sArr(i, 1) = Mau Then
              Sl = sArr(i, j)
              Do While Sl > 0
                If Sl > iMax Then tmp = iMax Else tmp = Sl
                Sl = Sl - tmp
                If jC > eC Then
                  iR = iR + dR
                  jC = jC - eC + 1
                End If
                With Sheets("TH2")
                  .Cells(iR, jC) = Size
                  .Cells(iR + 1, jC) = Mau
                  .Cells(iR + 3, jC) = tmp
                End With
                jC = jC + dC
              Loop
              Exit For
            End If
          Next i
        End If
      Next j
    End If
  Next n
  Application.ScreenUpdating = True
End Sub

Hi anh,
còn 1 vấn đề nhỏ cùng trong quá trình chạy thử là như thế này anh.
VD như e chạy size 5/5.5/6 thì size số 5.5 sẽ hết trước và không đủ mục tiêu sản lượng trong ngày, nên là e sẽ nhập thêm 1 size nữa vào khoảng trống đó và chạy code thì sẽ chạy tiếp tục, nếu như vị trí nào bị thiếu trống thì e sẽ nhập thêm và chạy code thì sẽ đủ sản lượng mà e cần. Rất làm phiền anh, e cảm ơn.
Những ô màu đỏ là e nhập tay minh họa á anh.

 

[HieuCD]

Hi anh,
còn 1 vấn đề nhỏ cùng trong quá trình chạy thử là như thế này anh.
VD như e chạy size 5/5.5/6 thì size số 5.5 sẽ hết trước và không đủ mục tiêu sản lượng trong ngày, nên là e sẽ nhập thêm 1 size nữa vào khoảng trống đó và chạy code thì sẽ chạy tiếp tục, nếu như vị trí nào bị thiếu trống thì e sẽ nhập thêm và chạy code thì sẽ đủ sản lượng mà e cần. Rất làm phiền anh, e cảm ơn.
Những ô màu đỏ là e nhập tay minh họa á anh.
View attachment 222123

Vấn đề nầy không nhỏ đâu!
Mình đã hỏi "Chạy code xong được kết quả như sheet kq mẫu, thao tác kế tiếp của bạn là gì? và kết quả như thế nào? "
Bạn cần thêm gì, trình bày hết, chỉ viết code thêm 1 lần

 

[vulunktheky]

Vấn đề nầy không nhỏ đâu!
Mình đã hỏi "Chạy code xong được kết quả như sheet kq mẫu, thao tác kế tiếp của bạn là gì? và kết quả như thế nào? "
Bạn cần thêm gì, trình bày hết, chỉ viết code thêm 1 lần

Như e trình bày ở #15 là nếu sau khi chạy hết các size vừa nhập xong chạy code mà không đủ số lượng thì e sẽ nhập tiếp size và màu vào những ô trống đó và chạy code theo đúng thứ tự như nhập size và màu lúc đầu cho đến khi nào đủ sản lượng mà e cần. e chỉ còn duy nhất 1 vấn đề này nữa thôi. Phiền a hỗ trợ e. cảm ơn anh rất nhiều.

 

[HieuCD]

Như e trình bày ở #15 là nếu sau khi chạy hết các size vừa nhập xong chạy code mà không đủ số lượng thì e sẽ nhập tiếp size và màu vào những ô trống đó và chạy code theo đúng thứ tự như nhập size và màu lúc đầu cho đến khi nào đủ sản lượng mà e cần. e chỉ còn duy nhất 1 vấn đề này nữa thôi. Phiền a hỗ trợ e. cảm ơn anh rất nhiều.

"không đủ mục tiêu sản lượng trong ngày " là như thế nào?
Tại sao phải phân bổ cách đều từng size? Chạy hết size 1 rồi tiếp size 2 và tiếp size 3 sẽ không có ô trống? hoặc phân bổ cách đều và nếu có ô trống sẽ đôn lên ô trống?

 

[vulunktheky]

"không đủ mục tiêu sản lượng trong ngày " là như thế nào?
Tại sao phải phân bổ cách đều từng size? Chạy hết size 1 rồi tiếp size 2 và tiếp size 3 sẽ không có ô trống? hoặc phân bổ cách đều và nếu có ô trống sẽ đôn lên ô trống?

Không đủ mục tiêu trong ngày tức là: VD:e chọn ra size 5/5.5/6 của màu BQ5418-401 sẽ có tổng là 2141, nhưng mục tiêu e cần là 2500. Nên như vậy sẽ không đủ mục tiêu sản lượng.
Phân bố theo từng size là do 3 size sẽ sử dụng chung 1 cái khuôn đúc anh à. Chia 1 lần 3 size là vì mỗi chuyền(line) sẽ có 3 máy mỗi máy 1 size chạy chung 1 khuôn và 3 size khác nhau. Nên là e mới chia như vậy để khu sản xuất tiện theo dõi tiến độ của mình

 

[HieuCD]

Không đủ mục tiêu trong ngày tức là: VD:e chọn ra size 5/5.5/6 của màu BQ5418-401 sẽ có tổng là 2141, nhưng mục tiêu e cần là 2500. Nên như vậy sẽ không đủ mục tiêu sản lượng.
Phân bố theo từng size là do 3 size sẽ sử dụng chung 1 cái khuôn đúc anh à. Chia 1 lần 3 size là vì mỗi chuyền(line) sẽ có 3 máy mỗi máy 1 size chạy chung 1 khuôn và 3 size khác nhau. Nên là e mới chia như vậy để khu sản xuất tiện theo dõi tiến độ của mình

Mỗi lần chạy code là mấy ngày?
Nếu nhập 4, 5 size và code sẽ tự tính theo thứ tự ưu tiên từ trái qua phải, đủ 2500 thì dừng được không?