Giúp lập công thức 2 dòng cùng điều kiện tính toán giống nhau (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
C

chungk54neu

Thành viên mới
Tham gia
3/6/19
Bài viết
45
Được thích
7
File của em có máy 1 chạy các sp1, sp2. sp3, sp4, sp5, khi chạy hết số lượng sp1 sẽ nhảy sang sp2 với tổng thời gian chạy máy 1 ngày của máy 1 là 23h. Trường hợp chung nhau sp2 và sp3 thì thời gian tính cho 2 sp này bằng 23h trừ đi thời gian chạy sp1. Tuy nhiên công thức của em đang tính thời gian chạy sp3 bằng 23h- time chạy sp1-time chạy sp2.
Tính đúng phải là time chạy sp2= 23h-time chạy sp1, Time chạy sp3 = 23h-time chạy sp1 (bỏ qua time chạy sp2 vì sp2 và sp3 chung nhau). anh/chị có phương án giải quyết trường hợp này k giúp em với.
 

File đính kèm

chungk54neu đã viết:
File của em có máy 1 chạy các sp1, sp2. sp3, sp4, sp5, khi chạy hết số lượng sp1 sẽ nhảy sang sp2 với tổng thời gian chạy máy 1 ngày của máy 1 là 23h. Trường hợp chung nhau sp2 và sp3 thì thời gian tính cho 2 sp này bằng 23h trừ đi thời gian chạy sp1. Tuy nhiên công thức của em đang tính thời gian chạy sp3 bằng 23h- time chạy sp1-time chạy sp2.
Tính đúng phải là time chạy sp2= 23h-time chạy sp1, Time chạy sp3 = 23h-time chạy sp1 (bỏ qua time chạy sp2 vì sp2 và sp3 chung nhau). anh/chị có phương án giải quyết trường hợp này k giúp em với.
Nhấp chuột vào đây để mở rộng...
Công thức nhiều điều kiện rất khó đọc
Nhập tay kết quả mong muốn và giải thích yêu cầu tính, gởi lại file
 
HieuCD đã viết:
Công thức nhiều điều kiện rất khó đọc
Nhập tay kết quả mong muốn và giải thích yêu cầu tính, gởi lại file
Nhấp chuột vào đây để mở rộng...
Sr anh cách tính hơi dài dòng, em đã viết lại trong file này, anh xem nếu được thì giải quyết bài toán này giúp em, em cảm ơn
 

File đính kèm

Không biết đúng yêu cầu không, làm đại.
Insert dòng 4 làm dòng trung gian, mục đích là cho công thức dòng đầu tiên đồng nhất với các dòng sau, không phải làm công thức riêng cho nó.
Tại F4=F5 (Machine 1), format màu chữ giống màu nền để che
Nếu lịch bắt đầu từ cột K (ngày 25/6), dùng 1 cột trống trước nó (cột J) để tính toán cộng dồn cho ngày đầu tiên (cột K) mà không phải làm công thức riêng cho nó
Xây dựng công thức cho K5 và copy hết bảng.
Quy trình như sau:
1) Xác định Số giờ đã sử dụng trong ngày cho đến sản phẩm "không chung nhau" phía trên nó:
SUMPRODUCT(($B$4:$B4="")*($F$4:$F4=$F5)*K$4:K4*$E$4:$E4)
2) Số giờ còn lại trong ngày dành cho sản phẩm này:
(K$2*60-SUMPRODUCT(($B$4:$B4="")*($F$4:$F4=$F5)*K$4:K4*$E$4:$E4))
3) Số sản phẩm sản xuất được:
(K$2*60-SUMPRODUCT(($B$4:$B4="")*($F$4:$F4=$F5)*K$4:K4*$E$4:$E4))/$E5
4) So sánh với số sản phẩm đã SX những ngày trước đó, cái nào nhỏ hơn thì lấy:
Công thức cuối cùng:

Mã: 
=MIN($C5-SUM($J5:J5),(K$2*60-SUMPRODUCT(($B$4:$B4="")*($F$4:$F4=$F5)*K$4:K4*$E$4:$E4))/$E5)

Vì không biết các ví dụ đã bao quát hết chưa, nên công thức này chỉ đáp ứng theo ví dụ đó.
Còn các trường hợp khác, nếu có, bạn test thử nếu không đúng, đưa file lên lại nhé.
 

File đính kèm

bebo021999 đã viết:
Không biết đúng yêu cầu không, làm đại.
Insert dòng 4 làm dòng trung gian, mục đích là cho công thức dòng đầu tiên đồng nhất với các dòng sau, không phải làm công thức riêng cho nó.
Tại F4=F5 (Machine 1), format màu chữ giống màu nền để che
Nếu lịch bắt đầu từ cột K (ngày 25/6), dùng 1 cột trống trước nó (cột J) để tính toán cộng dồn cho ngày đầu tiên (cột K) mà không phải làm công thức riêng cho nó
Xây dựng công thức cho K5 và copy hết bảng.
Quy trình như sau:
1) Xác định Số giờ đã sử dụng trong ngày cho đến sản phẩm "không chung nhau" phía trên nó:
SUMPRODUCT(($B$4:$B4="")*($F$4:$F4=$F5)*K$4:K4*$E$4:$E4)
2) Số giờ còn lại trong ngày dành cho sản phẩm này:
(K$2*60-SUMPRODUCT(($B$4:$B4="")*($F$4:$F4=$F5)*K$4:K4*$E$4:$E4))
3) Số sản phẩm sản xuất được:
(K$2*60-SUMPRODUCT(($B$4:$B4="")*($F$4:$F4=$F5)*K$4:K4*$E$4:$E4))/$E5
4) So sánh với số sản phẩm đã SX những ngày trước đó, cái nào nhỏ hơn thì lấy:
Công thức cuối cùng:

Mã: 
=MIN($C5-SUM($J5:J5),(K$2*60-SUMPRODUCT(($B$4:$B4="")*($F$4:$F4=$F5)*K$4:K4*$E$4:$E4))/$E5)

Vì không biết các ví dụ đã bao quát hết chưa, nên công thức này chỉ đáp ứng theo ví dụ đó.
Còn các trường hợp khác, nếu có, bạn test thử nếu không đúng, đưa file lên lại nhé.
Nhấp chuột vào đây để mở rộng...
cảm ơn anh rất nhiều, công thức anh gần đúng rồi, còn 1 trường hợp nhỏ là ở dòng A10 khi SP6 không chung với Sp5 và Sp4 thì ngày sản xuất Sp 6 này là ngày kết thúc của 2 sp chung nhau là Sp5 vs Sp4 (file em đính kèm). anh xem giúp em trường hợp đó với ạ
 

File đính kèm

Ngày kết thúc của 2 SP 4 và 5 có liên quan gì đâu, nó có thể kết thúc vào n ngày sau đó, phụ thuộc vào SL đặt hàng.
Tuy nhiên, dây chuyền của bạn sản xuất liên tục mà, vào ngày 25 máy 1 đã hết công suất nên nó SX vào ngày 26, sao phải chờ đến ngày 29 (vì SP 5 kết thúc vào 28?)
 
chungk54neu đã viết:
Sr anh cách tính hơi dài dòng, em đã viết lại trong file này, anh xem nếu được thì giải quyết bài toán này giúp em, em cảm ơn
Nhấp chuột vào đây để mở rộng...
Mã: 
I4 =$D$1+(MATCH(0,L4:AB4,0)-1)-1
Copy xuống
Mã: 
L4 =MIN($C4-SUM($K4:K4),23*60/$E4)
Copy ngang qua phải
Mã: 
L5 =IF(L$3<$H5,"X",MIN($C5-SUM($K5:K5),(23*60-SUMPRODUCT($E$4:$E4*L$4:L4*($B$4:$B4="")*($F$4:$F4=$F5)))/$E5))
Copy cho các ô còn lại
 

File đính kèm

bebo021999 đã viết:
Ngày kết thúc của 2 SP 4 và 5 có liên quan gì đâu, nó có thể kết thúc vào n ngày sau đó, phụ thuộc vào SL đặt hàng.
Tuy nhiên, dây chuyền của bạn sản xuất liên tục mà, vào ngày 25 máy 1 đã hết công suất nên nó SX vào ngày 26, sao phải chờ đến ngày 29 (vì SP 5 kết thúc vào 28?)
Nhấp chuột vào đây để mở rộng...
Vì chạy cùng machine 1 và SP4 SP5 chạy cùng nhau nên khi sản xuất hết SP5 ngày 2/7 thì thời gian còn lại của ngày 2/7 mới bắt đầu sản xuất SP6. (em gửi kèm file ạ)z2255861860911_4173661caef3014d4fcb2e1e33ef4979.jpg
Bài đã được tự động gộp:

HieuCD đã viết:
Mã: 
I4 =$D$1+(MATCH(0,L4:AB4,0)-1)-1
Copy xuống
Mã: 
L4 =MIN($C4-SUM($K4:K4),23*60/$E4)
Copy ngang qua phải
Mã: 
L5 =IF(L$3<$H5,"X",MIN($C5-SUM($K5:K5),(23*60-SUMPRODUCT($E$4:$E4*L$4:L4*($B$4:$B4="")*($F$4:$F4=$F5)))/$E5))
Copy cho các ô còn lại
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh nhiều
Bài đã được tự động gộp:

HieuCD đã viết:
Mã: 
I4 =$D$1+(MATCH(0,L4:AB4,0)-1)-1
Copy xuống
Mã: 
L4 =MIN($C4-SUM($K4:K4),23*60/$E4)
Copy ngang qua phải
Mã: 
L5 =IF(L$3<$H5,"X",MIN($C5-SUM($K5:K5),(23*60-SUMPRODUCT($E$4:$E4*L$4:L4*($B$4:$B4="")*($F$4:$F4=$F5)))/$E5))
Copy cho các ô còn lại
Nhấp chuột vào đây để mở rộng...
file của anh nếu em xóa "chung nhau 1" ở ô B6 thì nó hiện lỗi ở các dòng phía dưới
 

File đính kèm

chungk54neu đã viết:
Vì chạy cùng machine 1 và SP4 SP5 chạy cùng nhau nên khi sản xuất hết SP5 ngày 2/7 thì thời gian còn lại của ngày 2/7 mới bắt đầu sản xuất SP6. (em gửi kèm file ạ)View attachment 252230
Bài đã được tự động gộp:


Em cảm ơn anh nhiều
Bài đã được tự động gộp:


file của anh nếu em xóa "chung nhau 1" ở ô B6 thì nó hiện lỗi ở các dòng phía dưới
Nhấp chuột vào đây để mở rộng...
Giản lượt yêu cầu
Mã: 
L5 =MIN($C5-SUM($K5:K5),(23*60-SUMPRODUCT(L$4:L4*$E$4:$E4*($B$4:$B4="")*($F$4:$F4=$F5)))/$E5)
Copy cho các ô còn lại
Rối hơn
Less: 
=IF(L$3<$H5,"X",MIN($C5-SUM($K5:K5),(23*60-SUMPRODUCT(IF(L$4:L4="X",0,L$4:L4)*$E$4:$E4*($B$4:$B4="")*($F$4:$F4=$F5)))/$E5))
Nhấn ctrl+shift+enter, Copy cho các ô còn lại
 
c
HieuCD đã viết:
Giản lượt yêu cầu
Mã: 
L5 =MIN($C5-SUM($K5:K5),(23*60-SUMPRODUCT(L$4:L4*$E$4:$E4*($B$4:$B4="")*($F$4:$F4=$F5)))/$E5)
Copy cho các ô còn lại
Rối hơn
Less: 
=IF(L$3<$H5,"X",MIN($C5-SUM($K5:K5),(23*60-SUMPRODUCT(IF(L$4:L4="X",0,L$4:L4)*$E$4:$E4*($B$4:$B4="")*($F$4:$F4=$F5)))/$E5))
Nhấn ctrl+shift+enter, Copy cho các ô còn lại
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh nhé.
 
HieuCD đã viết:
Giản lượt yêu cầu
Mã: 
L5 =MIN($C5-SUM($K5:K5),(23*60-SUMPRODUCT(L$4:L4*$E$4:$E4*($B$4:$B4="")*($F$4:$F4=$F5)))/$E5)
Copy cho các ô còn lại
Rối hơn
Less: 
=IF(L$3<$H5,"X",MIN($C5-SUM($K5:K5),(23*60-SUMPRODUCT(IF(L$4:L4="X",0,L$4:L4)*$E$4:$E4*($B$4:$B4="")*($F$4:$F4=$F5)))/$E5))
Nhấn ctrl+shift+enter, Copy cho các ô còn lại
Nhấp chuột vào đây để mở rộng...
vd3.png
Anh ơi lại xuất hiện trường hợp này đối với công thức của anh, dòng nằm liền kề dưới sản phẩm chung nhau sẽ nhảy bị sai ạ, sản lượng của ô này sẽ tính là 23h (em đã bôi đỏ ô bị sai ạ), em đã note bôi đỏ, mong anh sửa lại công thức giúp em với ạ
 

File đính kèm

chungk54neu đã viết:
View attachment 253395
Anh ơi lại xuất hiện trường hợp này đối với công thức của anh, dòng nằm liền kề dưới sản phẩm chung nhau sẽ nhảy bị sai ạ, sản lượng của ô này sẽ tính là 23h (em đã bôi đỏ ô bị sai ạ), em đã note bôi đỏ, mong anh sửa lại công thức giúp em với ạ
Nhấp chuột vào đây để mở rộng...
Không tìm được cách dùng công thức Excel. Bạn @excel_lv1.5 , @dazkangel ới ơi! nhín chút thời gian xử đẹp bài nầy nha /-*+/
Dùng Macro dể hơn :)
 
Lần chỉnh sửa cuối:
chungk54neu đã viết:
View attachment 253395
Anh ơi lại xuất hiện trường hợp này đối với công thức của anh, dòng nằm liền kề dưới sản phẩm chung nhau sẽ nhảy bị sai ạ, sản lượng của ô này sẽ tính là 23h (em đã bôi đỏ ô bị sai ạ), em đã note bôi đỏ, mong anh sửa lại công thức giúp em với ạ
Nhấp chuột vào đây để mở rộng...
Dùng Hàm tự tạo
Mã: 
Function PhanBoSoLuong(ByVal maxPhut#, ByVal Ngay, ByVal SoLuong, _
            Chung As Range, DinhMuc As Range, May As Range, Rng As Range) As Variant
  Dim sRow&, sCol&, i&, j&
  Dim tMay$, tDinhMuc#, tSoLuong As Variant
  Dim tmpChung$, tmpPhut#
 
  sRow = Rng.Rows.Count: sCol = Rng.Columns.Count
  tMay = May(sRow, 1).Offset(1).Value
  tDinhMuc = DinhMuc(sRow, 1).Offset(1).Value
  If Rng(1, sCol) < Ngay Then PhanBoSoLuong = "X": Exit Function
  For j = 2 To sCol - 1
     tSoLuong = Rng(sRow, j).Offset(1).Value
    If IsNumeric(tSoLuong) Then SoLuong = SoLuong - tSoLuong
  Next j
  For i = 2 To sRow
    If IsNumeric(Rng(i, sCol)) Then
      If May(i, 1) = tMay Then
        If Chung(i, 1) = Empty Then
          maxPhut = maxPhut - Rng(i, sCol) * DinhMuc(i, 1)
        Else
          If tmpChung <> Chung(i, 1) Then
            tmpChung = Chung(i, 1)
            tmpPhut = 0
          End If
          If tmpPhut < Rng(i, sCol) * DinhMuc(i, 1) Then
            tmpPhut = Rng(i, sscol) * DinhMuc(i, 1)
          End If
          If tmpChung <> Chung(i, 1).Offset(1) Then
            maxPhut = maxPhut - tmpPhut
          End If
        End If
      End If
    End If
  Next i
  tSoLuong = maxPhut / tDinhMuc
  If SoLuong > tSoLuong Then
    PhanBoSoLuong = Round(tSoLuong, 6)
  Else
    PhanBoSoLuong = Round(SoLuong, 6)
  End If
End Function
Công thức ô L4 =PhanBoSoLuong( 23 * 60, $H4,$C4, $B$3:$B3, $E$3:$E3,$F$3:$F3, $K$3:L3)
Copy cho các ô còn lại
 

File đính kèm

HieuCD đã viết:
Dùng Hàm tự tạo
Mã: 
Function PhanBoSoLuong(ByVal maxPhut#, ByVal Ngay, ByVal SoLuong, _
            Chung As Range, DinhMuc As Range, May As Range, Rng As Range) As Variant
  Dim sRow&, sCol&, i&, j&
  Dim tMay$, tDinhMuc#, tSoLuong As Variant
  Dim tmpChung$, tmpPhut#

  sRow = Rng.Rows.Count: sCol = Rng.Columns.Count
  tMay = May(sRow, 1).Offset(1).Value
  tDinhMuc = DinhMuc(sRow, 1).Offset(1).Value
  If Rng(1, sCol) < Ngay Then PhanBoSoLuong = "X": Exit Function
  For j = 2 To sCol - 1
     tSoLuong = Rng(sRow, j).Offset(1).Value
    If IsNumeric(tSoLuong) Then SoLuong = SoLuong - tSoLuong
  Next j
  For i = 2 To sRow
    If IsNumeric(Rng(i, sCol)) Then
      If May(i, 1) = tMay Then
        If Chung(i, 1) = Empty Then
          maxPhut = maxPhut - Rng(i, sCol) * DinhMuc(i, 1)
        Else
          If tmpChung <> Chung(i, 1) Then
            tmpChung = Chung(i, 1)
            tmpPhut = 0
          End If
          If tmpPhut < Rng(i, sCol) * DinhMuc(i, 1) Then
            tmpPhut = Rng(i, sscol) * DinhMuc(i, 1)
          End If
          If tmpChung <> Chung(i, 1).Offset(1) Then
            maxPhut = maxPhut - tmpPhut
          End If
        End If
      End If
    End If
  Next i
  tSoLuong = maxPhut / tDinhMuc
  If SoLuong > tSoLuong Then
    PhanBoSoLuong = Round(tSoLuong, 6)
  Else
    PhanBoSoLuong = Round(SoLuong, 6)
  End If
End Function
Công thức ô L4 =PhanBoSoLuong( 23 * 60, $H4,$C4, $B$3:$B3, $E$3:$E3,$F$3:$F3, $K$3:L3)
Copy cho các ô còn lại
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh rất nhiều ạ.
Bài đã được tự động gộp:

HieuCD đã viết:
Dùng Hàm tự tạo
Mã: 
Function PhanBoSoLuong(ByVal maxPhut#, ByVal Ngay, ByVal SoLuong, _
            Chung As Range, DinhMuc As Range, May As Range, Rng As Range) As Variant
  Dim sRow&, sCol&, i&, j&
  Dim tMay$, tDinhMuc#, tSoLuong As Variant
  Dim tmpChung$, tmpPhut#

  sRow = Rng.Rows.Count: sCol = Rng.Columns.Count
  tMay = May(sRow, 1).Offset(1).Value
  tDinhMuc = DinhMuc(sRow, 1).Offset(1).Value
  If Rng(1, sCol) < Ngay Then PhanBoSoLuong = "X": Exit Function
  For j = 2 To sCol - 1
     tSoLuong = Rng(sRow, j).Offset(1).Value
    If IsNumeric(tSoLuong) Then SoLuong = SoLuong - tSoLuong
  Next j
  For i = 2 To sRow
    If IsNumeric(Rng(i, sCol)) Then
      If May(i, 1) = tMay Then
        If Chung(i, 1) = Empty Then
          maxPhut = maxPhut - Rng(i, sCol) * DinhMuc(i, 1)
        Else
          If tmpChung <> Chung(i, 1) Then
            tmpChung = Chung(i, 1)
            tmpPhut = 0
          End If
          If tmpPhut < Rng(i, sCol) * DinhMuc(i, 1) Then
            tmpPhut = Rng(i, sscol) * DinhMuc(i, 1)
          End If
          If tmpChung <> Chung(i, 1).Offset(1) Then
            maxPhut = maxPhut - tmpPhut
          End If
        End If
      End If
    End If
  Next i
  tSoLuong = maxPhut / tDinhMuc
  If SoLuong > tSoLuong Then
    PhanBoSoLuong = Round(tSoLuong, 6)
  Else
    PhanBoSoLuong = Round(SoLuong, 6)
  End If
End Function
Công thức ô L4 =PhanBoSoLuong( 23 * 60, $H4,$C4, $B$3:$B3, $E$3:$E3,$F$3:$F3, $K$3:L3)
Copy cho các ô còn lại
Nhấp chuột vào đây để mở rộng...
anh ơi ô M6 khi chạy kết quả bằng 776 mới đúng ạ do ô này bị sai nên dẫn đến ô T6 bị sai và ô T7 cũng sai theo ạ, vì SP 1 sản xuất hết 3.67h, SP3 sản xuất hết 10.32h -> do SP1 vs SP3 chung nhau nên mình sẽ lấy thời gian sản xuất lớn nhất trong 2 sp này -> thời gian còn lại sx sản phẩm 2 là 23- 10.32 = 12.68h => Nên cột M6 sẽ bằng 12.68*60/0.98=776. anh giúp em với ạ
 
Lần chỉnh sửa cuối:
chungk54neu đã viết:
Em cảm ơn anh rất nhiều ạ.
Bài đã được tự động gộp:


anh ơi ô M6 khi chạy kết quả bằng 776 mới đúng ạ do ô này bị sai nên dẫn đến ô T6 bị sai và ô T7 cũng sai theo ạ, vì SP 1 sản xuất hết 3.67h, SP3 sản xuất hết 10.32h -> do SP1 vs SP3 chung nhau nên mình sẽ lấy thời gian sản xuất lớn nhất trong 2 sp này -> thời gian còn lại sx sản phẩm 2 là 23- 10.32 = 12.68h => Nên cột M6 sẽ bằng 12.68*60/0.98=776. anh giúp em với ạ
Nhấp chuột vào đây để mở rộng...
Kết quả đúng mờ, bạn xem cột J và cột K trong file
 

File đính kèm

HieuCD đã viết:
Cột J là số phút chạy máy với số lượng cột M
Nhấp chuột vào đây để mở rộng...
dạ vâng, 2 cột đó của anh em nghĩ nó ảnh hưởng gì đó vì khi em thêm "Chung nhau 1" vào B6 thì ô R6 lại nhảy sai, thay vì bằng 7000 thì nó lại bằng 11500 ạ, nghĩa là nó vẫn tính 23h chạy máy
Bài đã được tự động gộp:


Bài đã được tự động gộp:

 

File đính kèm

chungk54neu đã viết:
dạ vâng, 2 cột đó của anh em nghĩ nó ảnh hưởng gì đó vì khi em thêm "Chung nhau 1" vào B6 thì ô R6 lại nhảy sai, thay vì bằng 7000 thì nó lại bằng 11500 ạ, nghĩa là nó vẫn tính 23h chạy máy
Bài đã được tự động gộp:


Bài đã được tự động gộp:
Nhấp chuột vào đây để mở rộng...
Mắt mờ :p nhập dư 1 "s", chỉnh ssCol thành sCol
Mã: 
Function PhanBoSoLuong(ByVal maxPhut#, ByVal Ngay, ByVal SoLuong, _
            Chung As Range, DinhMuc As Range, May As Range, Rng As Range) As Variant
  Dim sRow&, sCol&, i&, j&
  Dim tMay$, tDinhMuc#, tSoLuong As Variant
  Dim tmpChung$, tmpPhut#
 
  sRow = Rng.Rows.Count: sCol = Rng.Columns.Count
  tMay = May(sRow, 1).Offset(1).Value
  tDinhMuc = DinhMuc(sRow, 1).Offset(1).Value
  If Rng(1, sCol) < Ngay Then PhanBoSoLuong = "X": Exit Function
  For j = 2 To sCol - 1
     tSoLuong = Rng(sRow, j).Offset(1).Value
    If IsNumeric(tSoLuong) Then SoLuong = SoLuong - tSoLuong
  Next j
  For i = 2 To sRow
    If IsNumeric(Rng(i, sCol)) Then
      If May(i, 1) = tMay Then
        If Chung(i, 1) = Empty Then
          maxPhut = maxPhut - Rng(i, sCol) * DinhMuc(i, 1)
        Else
          If tmpChung <> Chung(i, 1) Then
            tmpChung = Chung(i, 1)
            tmpPhut = 0
          End If
          If tmpPhut < Rng(i, sCol) * DinhMuc(i, 1) Then
            tmpPhut = Rng(i, sCol) * DinhMuc(i, 1)
          End If
          If tmpChung <> Chung(i, 1).Offset(1) Then
            maxPhut = maxPhut - tmpPhut
          End If
        End If
      End If
    End If
  Next i
  tSoLuong = maxPhut / tDinhMuc
  If SoLuong > tSoLuong Then
    PhanBoSoLuong = Round(tSoLuong, 6)
  Else
    PhanBoSoLuong = Round(SoLuong, 6)
  End If
End Function
 

File đính kèm

HieuCD đã viết:
Mắt mờ :p nhập dư 1 "s", chỉnh ssCol thành sCol
Mã: 
Function PhanBoSoLuong(ByVal maxPhut#, ByVal Ngay, ByVal SoLuong, _
            Chung As Range, DinhMuc As Range, May As Range, Rng As Range) As Variant
  Dim sRow&, sCol&, i&, j&
  Dim tMay$, tDinhMuc#, tSoLuong As Variant
  Dim tmpChung$, tmpPhut#

  sRow = Rng.Rows.Count: sCol = Rng.Columns.Count
  tMay = May(sRow, 1).Offset(1).Value
  tDinhMuc = DinhMuc(sRow, 1).Offset(1).Value
  If Rng(1, sCol) < Ngay Then PhanBoSoLuong = "X": Exit Function
  For j = 2 To sCol - 1
     tSoLuong = Rng(sRow, j).Offset(1).Value
    If IsNumeric(tSoLuong) Then SoLuong = SoLuong - tSoLuong
  Next j
  For i = 2 To sRow
    If IsNumeric(Rng(i, sCol)) Then
      If May(i, 1) = tMay Then
        If Chung(i, 1) = Empty Then
          maxPhut = maxPhut - Rng(i, sCol) * DinhMuc(i, 1)
        Else
          If tmpChung <> Chung(i, 1) Then
            tmpChung = Chung(i, 1)
            tmpPhut = 0
          End If
          If tmpPhut < Rng(i, sCol) * DinhMuc(i, 1) Then
            tmpPhut = Rng(i, sCol) * DinhMuc(i, 1)
          End If
          If tmpChung <> Chung(i, 1).Offset(1) Then
            maxPhut = maxPhut - tmpPhut
          End If
        End If
      End If
    End If
  Next i
  tSoLuong = maxPhut / tDinhMuc
  If SoLuong > tSoLuong Then
    PhanBoSoLuong = Round(tSoLuong, 6)
  Else
    PhanBoSoLuong = Round(SoLuong, 6)
  End If
End Function
Nhấp chuột vào đây để mở rộng...
Em cảm ơn anh nhiều,
 
HieuCD đã viết:
Mắt mờ :p nhập dư 1 "s", chỉnh ssCol thành sCol
Mã: 
Function PhanBoSoLuong(ByVal maxPhut#, ByVal Ngay, ByVal SoLuong, _
            Chung As Range, DinhMuc As Range, May As Range, Rng As Range) As Variant
  Dim sRow&, sCol&, i&, j&
  Dim tMay$, tDinhMuc#, tSoLuong As Variant
  Dim tmpChung$, tmpPhut#

  sRow = Rng.Rows.Count: sCol = Rng.Columns.Count
  tMay = May(sRow, 1).Offset(1).Value
  tDinhMuc = DinhMuc(sRow, 1).Offset(1).Value
  If Rng(1, sCol) < Ngay Then PhanBoSoLuong = "X": Exit Function
  For j = 2 To sCol - 1
     tSoLuong = Rng(sRow, j).Offset(1).Value
    If IsNumeric(tSoLuong) Then SoLuong = SoLuong - tSoLuong
  Next j
  For i = 2 To sRow
    If IsNumeric(Rng(i, sCol)) Then
      If May(i, 1) = tMay Then
        If Chung(i, 1) = Empty Then
          maxPhut = maxPhut - Rng(i, sCol) * DinhMuc(i, 1)
        Else
          If tmpChung <> Chung(i, 1) Then
            tmpChung = Chung(i, 1)
            tmpPhut = 0
          End If
          If tmpPhut < Rng(i, sCol) * DinhMuc(i, 1) Then
            tmpPhut = Rng(i, sCol) * DinhMuc(i, 1)
          End If
          If tmpChung <> Chung(i, 1).Offset(1) Then
            maxPhut = maxPhut - tmpPhut
          End If
        End If
      End If
    End If
  Next i
  tSoLuong = maxPhut / tDinhMuc
  If SoLuong > tSoLuong Then
    PhanBoSoLuong = Round(tSoLuong, 6)
  Else
    PhanBoSoLuong = Round(SoLuong, 6)
  End If
End Function
Nhấp chuột vào đây để mở rộng...
Công thức em làm đại, chắc còn thiếu nhiều, lười quá anh ạ:
Mã: 
=IF(M$3>=$H4,IF(AND(L4="X",OR($B4="",$B4<>$B3)),1-M3/L3,1)*MAX(0,MIN(1380/$E4,$C4-SUM($L4:L4))),"X")
 

File đính kèm

Lần chỉnh sửa cuối:
dazkangel đã viết:
Công thức em làm đại, chắc còn thiếu nhiều, lười quá anh ạ:
Mã: 
=IF(M$3>=$H4,IF(AND(L4="X",OR($B4="",$B4<>$B3)),1-M3/L3,1)*MAX(0,MIN(1380/$E4,$C4-SUM($L4:L4))),"X")
Nhấp chuột vào đây để mở rộng...
Bài nầy dùng công thức quá khó, rối ở chổ tính Max của những "Chung nhau" giống nhau, mình thử đủ cách mà không được
Mình tóm lại yêu cầu theo ví dụ trong file
 

File đính kèm

HieuCD đã viết:
Bài nầy dùng công thức quá khó, rối ở chổ tính Max của những "Chung nhau" giống nhau, mình thử đủ cách mà không được
Mình tóm lại yêu cầu theo ví dụ trong file
Nhấp chuột vào đây để mở rộng...
Không hiểu sao file của anh em xem bị lỗi name, trong khi file cũ hơn (cái file anh nói nhầm công thức á) thì không bị lỗi ?
Tính max là sao anh nhỉ, em nghĩ nó cứ chạy bình thường thôi chứ @@
Làm lại công thức xong không hiểu mình làm gì :eek::eek::eek:
Mã: 
=IF(M$3>=$H4,IF((L4="X")*OR($B4="",$B4<>$B3),1-IFERROR(LOOKUP(,0/FREQUENCY(1,1/TEXT($C$3:$C3,"0;;;\2")+($B$3:$B3=$B3)),M$3:M3/L$3:L3),M3/1380*$E3),1)*MAX(0,MIN(1380/$E4,$C4-SUM($L4:L4))),"X")
 

File đính kèm

Lần chỉnh sửa cuối:
dazkangel đã viết:
Không hiểu sao file của anh em xem bị lỗi name, trong khi file cũ hơn (cái file anh nói nhầm công thức á) thì không bị lỗi ?
Tính max là sao anh nhỉ, em nghĩ nó cứ chạy bình thường thôi chứ @@
Làm lại công thức xong không hiểu mình làm gì :eek::eek::eek:
Mã: 
=IF(M$3>=$H4,IF(AND(L4="X",OR($B4="",$B4<>$B3)),1-IFERROR(LOOKUP(,0/FREQUENCY(1,1/TEXT($C$3:$C3,"0;;;\2")+($B$3:$B3=$B3)),M$3:M3/L$3:L3),M3/L3),1)*MAX(0,MIN(1380/$E4,$C4-SUM($L4:L4))),"X")
Nhấp chuột vào đây để mở rộng...
Bạn xem giải thích điều kiện "Chung nhau" trong file
 

File đính kèm

HieuCD đã viết:
Bạn xem giải thích điều kiện "Chung nhau" trong file
Nhấp chuột vào đây để mở rộng...
Anh điền cho em xem kết quả mẫu với, lấy lớn nhất thì dựa vào cái gì lớn nhất, số sản phẩm lớn nhất hay số lượng sản phẩm sản xuất trong ngày lớn nhât.
Tuy là chung nhau nhưng trong 1 ngày thì vẫn bị ảnh hưởng của sản phẩm trước thì sao có thể ra đủ 1380 được.
 
dazkangel đã viết:
Anh điền cho em xem kết quả mẫu với, lấy lớn nhất thì dựa vào cái gì lớn nhất, số sản phẩm lớn nhất hay số lượng sản phẩm sản xuất trong ngày lớn nhât.
Tuy là chung nhau nhưng trong 1 ngày thì vẫn bị ảnh hưởng của sản phẩm trước thì sao có thể ra đủ 1380 được.
Nhấp chuột vào đây để mở rộng...
Bạn xem công thức tạm và kết quả mẩu trong file
 

File đính kèm

HieuCD đã viết:
Bạn xem công thức tạm và kết quả mẩu trong file
Nhấp chuột vào đây để mở rộng...
Làm đại, hiện tại công thức còn nhiều lỗ hỏng,
Ví dụ như chưa vị trí của máy làm chung sản phẩm là cố định chưa linh hoạt:
Mã: 
=IF(M$3<$H4,"X",MIN($C4-SUM($L4:L4),IF(L4="X",IFERROR((1380-SUM(MOD(SMALL(IFERROR(($B$3:$B3=TRANSPOSE($B$3:$B3))*(M$3:M3*$E$3:$E3),0)+TRANSPOSE(ROW($B$3:$B3)*10^6),(ROW($B$3:$B3)-ROW($B$2))*ROWS($B$3:$B3)),10^6)/COUNTIFS($B$3:$B3,$B$3:$B3,$B$3:$B3,"<>")))/$E4,(1-M3/1380*N($E3))*1380/$E4),1380/$E4)))
 
Lần chỉnh sửa cuối:
dazkangel đã viết:
Làm đại, hiện tại công thức còn nhiều lỗ hỏng,
Ví dụ như chưa vị trí của máy làm chung sản phẩm là cố định chưa linh hoạt:
Mã: 
=IF(M$3<$H4,"X",MIN($C4-SUM($L4:L4),IF(L4="X",IFERROR((1380-SUM(MOD(SMALL(IFERROR(($B$3:$B3=TRANSPOSE($B$3:$B3))*(M$3:M3*$E$3:$E3),0)+TRANSPOSE(ROW($B$3:$B3)*10^6),(ROW($B$3:$B3)-ROW($B$2))*ROWS($B$3:$B3)),10^6)/COUNTIFS($B$3:$B3,$B$3:$B3,$B$3:$B3,"<>")))/$E4,(1-M3/1380*N($E3))*1380/$E4),1380/$E4)))
Nhấp chuột vào đây để mở rộng...
Làm được như vậy là giỏi lắm rồi, Chúc bạn tối vui và an lành /-*+/ /-*+/ /-*+/
 
HieuCD đã viết:
Làm được như vậy là giỏi lắm rồi, Chúc bạn tối vui và an lành /-*+/ /-*+/ /-*+/
Nhấp chuột vào đây để mở rộng...
Anh xem thử còn sai chỗ nào không:
Mã: 
=IF(M$3<$H4,"X",MIN($C4-SUM($L4:L4),(1380-($F4=$F3)*($B4="")*IF($B3="",N(M3)*$E3,SUM(MOD(SMALL(IFERROR(($B$3:$B3=TRANSPOSE($B$3:$B3))*(M$3:M3*$E$3:$E3),0)+TRANSPOSE(ROW($B$3:$B3)*10^6),(ROW($B$3:$B3)-ROW($B$2))*ROWS($B$3:$B3)),10^6)/TEXT(COUNTIF($B$3:$B3,$B$3:$B3),"0;0;1")*($B$3:$B3<>""))))/$E4))
 
Lần chỉnh sửa cuối:
dazkangel đã viết:
Anh xem thử còn sai chỗ nào không:
Mã: 
=IF(M$3<$H4,"X",MIN($C4-SUM($L4:L4),(1380-($F4=$F3)*($B4="")*IF($B3="",N(M3)*$E3,SUM(MOD(SMALL(IFERROR(($B$3:$B3=TRANSPOSE($B$3:$B3))*(M$3:M3*$E$3:$E3),0)+TRANSPOSE(ROW($B$3:$B3)*10^6),(ROW($B$3:$B3)-ROW($B$2))*ROWS($B$3:$B3)),10^6)/TEXT(COUNTIF($B$3:$B3,$B$3:$B3),"0;0;1")*($B$3:$B3<>""))))/$E4))
Nhấp chuột vào đây để mở rộng...
Mình thử các trường hợp đơn giản hơn kết quả chưa chuẩn :p
 

File đính kèm

HieuCD đã viết:
Bạn xem công thức tạm và kết quả mẩu trong file
Nhấp chuột vào đây để mở rộng...
Xem file bạn mãi mới hiểu được, dạng tìm max, min từng đoạn tôi có làm nhiều trên đây, lâu không đụng vào hàm mảng làm loay hoay mãi,tôi sửa lại công thức của bạn dùng ở M5,dòng 4 xem như đã tính sẵn
Tôi thử 1 trường hợp cho 3 máy chung nhau SP1,SP3,SP5 thì kết quả công thức và code khác nhau, tôi nghĩ là 3 máy này sẽ kêt quả ở ngày 25, tôi đã tô đỏ, công thức tôi viết các máy chung nhau không cần phải sort

Mã: 
=MAX(MIN($C5-SUM($L5:L5),(1380-SUM(MOD(LOOKUP(ROW(OFFSET($B$1,,,ROW(A1)))+1-10^-10,SMALL(CHOOSE({1,2},IFERROR(MATCH($B$4:$B4,$B$4:$B4,),ROW(OFFSET($B$1,,,ROW(A1))))+$E$4:$E4*M$4:M4*($F$4:$F4=$F5)*(IF($B5="",1,$B$4:$B4<>$B5))/10^6,ROW(OFFSET($B$1,,,ROW(A1)))),ROW(OFFSET($B$1,,,ROW(A1)*2)))),1)*10^6))/$E5))
 

File đính kèm

Lần chỉnh sửa cuối:
excel_lv1.5 đã viết:
Xem file bạn mãi mới hiểu được, dạng tìm max, min từng đoạn tôi có làm nhiều trên đây, lâu không đụng vào hàm mảng làm loay hoay mãi,tôi sửa lại công thức của bạn dùng ở M5,dòng 4 xem như đã tính sẵn


Mã: 
=MAX(MIN($C5-SUM($L5:L5),(1380-SUM(MOD(LOOKUP(ROW(OFFSET($B$1,,,ROW(A1)))+1-10^-10,SMALL(CHOOSE({1,2},IFERROR(MATCH($B$4:$B4,$B$4:$B4,),ROW(OFFSET($B$1,,,ROW(A1))))+$E$4:$E4*M$4:M4*($F$4:$F4=$F5)*(IF($B5="",1,$B$4:$B4<>$B5))/10^6,ROW(OFFSET($B$1,,,ROW(A1)))),ROW(OFFSET($B$1,,,ROW(A1)*2)))),1)*10^6))/$E5))
Nhấp chuột vào đây để mở rộng...
Công thức quá siêu, đã kiểm tra tất cả đều đúng /-*+/ /-*+/ /-*+/
 
HieuCD đã viết:
Công thức quá siêu, đã kiểm tra tất cả đều đúng /-*+/ /-*+/ /-*+/
Nhấp chuột vào đây để mở rộng...
Bạn xem lại file tôi gửi ở trên , có trường hợp vẫn chưa đúng giữa 2 cách không biết cách nào sai, không biết code bạn viết có cần yêu cầu phải sort cột mã chung hay không?
 
excel_lv1.5 đã viết:
Bạn xem lại file tôi gửi ở trên , có trường hợp vẫn chưa đúng giữa 2 cách không biết cách nào sai, không biết code bạn viết có cần yêu cầu phải sort cột mã chung hay không?
Nhấp chuột vào đây để mở rộng...
"Chung nhau 1" là các sản phẩm sản xuất đồng thời trên 1 máy, có thể hoàn thành trước sau nhưng tất cả "Chung nhau 1" hoàn thành mới chạy sản phẩm khác, nên phải nằm liên tục không có sản phẩm khác chen vào giữa. Code của mình viết theo qui ước trên nên chưa tính tới tình huống trong file :p
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

T
Nhờ anh chị tìm giúp nguyên nhân không nhảy dữ liệu Pivotable (2 người xem)
Trả lời
0
Đọc
15
thuhacoicoi
T
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính (1 người xem)
    • Thích
Trả lời
4
Đọc
843
nguyendang95
N
T
  • Question Question
Code VBA tra cứu kết quả trả về mảng dữ liệu (1 người xem)
    • Cười
Trả lời
9
Đọc
185
SA_DQ
SA_DQ
Gà Công Nghệ
Nhờ anh chị chuyển hộ font chữ excel (1 người xem)
Trả lời
2
Đọc
44
Gà Công Nghệ
Gà Công Nghệ
V
Quản lý xuất nhập vật tư trong kho (1 người xem)
Trả lời
19
Đọc
736
LOGANWover
L
phuongnam366377
Học C++ từ số 0 – Bài học đầu tiên (1 người xem)
    • Cảm ơn
Trả lời
4
Đọc
324
phuongnam366377
phuongnam366377
F
Mấy cao thủ giúp dùm mình với. File excel bị lỗi mà mình không biết lỗi chỗ nào để sửa.
Trả lời
2
Đọc
88
firstbood
F
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
438
Đọc
58K
sát thủ uyên ương
S
X
Làm thế nào để ẩn "Blank" trong Pivot table
    • Thích
Trả lời
15
Đọc
36K
nguyenngochieu761321
nguyenngochieu761321
H
Đánh số thự theo lượt
Trả lời
5
Đọc
137
hongminh_0306
H
D
XIN PHẦN MỀM XẾP TKB TIỂU HỌC BẰNG EXCEL
Trả lời
2
Đọc
189
danhpheo
D
A
  • Question Question
Copy 2 form sang file khác, có 1 form Show, 1 form không Show
Trả lời
2
Đọc
137
AnhThu-1976
A
R
Các bác có kinh nghiệm excel cho em xin công thức đánh số thứ tự theo ngày tháng này vợi ạ.
Trả lời
5
Đọc
205
truc.duong87
T
H
Tự động cập nhật dữ liệu từ 2 file word
Trả lời
1
Đọc
152
LOGANWover
L
N
Nhờ giúp Drop down list theo tỉnh xã mới.
Trả lời
7
Đọc
338
ongke0711
ongke0711
E
VBA copy ô trong excel khi đang lọc filter
Trả lời
8
Đọc
203
eagle12
E
N
Không sử dụng được phím tắt Ctrl + Shift + mũi tên xuống
Trả lời
1
Đọc
3K
aFdangthacmac
A
L
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox
    • Cười
Trả lời
8
Đọc
451
ongke0711
ongke0711
befaint
[ Python và ứng dụng ] Công cụ trích xuất hàng loạt hóa đơn điện tử XML vào bảng Excel
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
56
Đọc
10K
Hoale85
H
Nam168
Không mở được file excel
Trả lời
2
Đọc
130
Nam168
Nam168
Xem thêm…

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

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom