Em có thể mô tả qua như sau:
Em đọc topic này từ hôm qua, cũng đã nhìn "toét con mắt" vào cái bảng tính đính kèm rồi mà tới giờ thì vẫn chưa đủ trình độ để hiểu ý tác giả muốn cái gì và quy luật ra làm sao. Hic hic...
Tại C không có 2 bác ah!
Bạn trả lời bài nào nên bấm "Trả Lời Với Trích Dấn" bài của người đó, để người khác hiểu là bạn trả lời bài của ai.
vì Mã C về theo Mã A ít hơn các mã khác bác ah
Bi giờ bạn chỉ cần "tường thuật" tại chỗ từng bước cách làm ra kết quả của B chẳng hạn:
em lấy ví dụ thế này nha:
Có lẽ là cần phải biết bài toán này giống cái gì trong thực tế thì mới có thể tưởng tượng ra được
Có lẽ em gửi file này thì các bác hiểu đôi chút:
thế này nha bác Zerothink: em ứng dụng vào lĩnh vực hàng nhập xuất thực tế, Còn có thể các bác hiểu sao tùy thôi. Bài #8 em tách ra để các bác xem đơn giản hơn thôi.
Ví dụ với A như trên, vùng tính toán thứ nhất là EN4:ET4
Bác nghĩ cách khác, làm cách khác. nhưng làm nhỏ biết nhỏ..
đây là kết quả em tô màu rồi tương ứng với giá trị lấy và cách lấy các bác ah! cùng câu hỏi thứ 5 của bác Zerothink!
Xem file, trong vùng tính toán mà bạn đã nêu EN5:ET5, giá trị x7 =1 nhưng khi tổng hợp lại không được tính?
Có 1 sai sót nhỏ nếu bác không hỏi đến là chỉ tính đến khi Mã nào đã có giá trị xuất hiện tại đây EN5:ET5 đã có giá trị 3 tại EQ5
có sự sai sót nhỏ e đã thay đổi.
Mục đích thống kê ra mã hàng cần lấy trong tuần tới, khi đã nhập mặt mã hàng kia quá nhiều.....
trên đã nói là tính số lần xuất hiện trong 7 cột sau dù là 2---> tức là có tính x7 như bài trước (#41)đã đặt vấn đề.
tức là đã có giá trị 3 thì cái sau không tính nữa(mặc dù vẫn nằm trong 7 cột).
Tại sao ở EQ5 là 3 mà kết quả tại FE5 là 1?
ok, chắc là chuẩn bác ah!
bác chạy sao? em nhả tơ đây.
hehe. Thực ra bác bảo sao lại lấy giá trị 2 trong khi đang tính sự xuất hiện của giá trị ấy gì? thực ra bác chỉ tính sự xuất hiện của giá trị 2 của các mã tại EU, sau đó đưa ra mã đã có giá trị 2 tai EU rồi tính số lần xuất hiện của giá trị 2 của Mã đó. sau đó đưa ra mã nào theo về nhiều nhất. Mã theo về có 2,3,1,4 đều là chỉ 1 lần xuất hiện.Bác có thể coi bài #52, nếu hai giá trị 2 cách nhau thì cũng tính như cũ và có tính chồng lấn lên nhau bác ah!
Const SoDinhVi=2Gửi đoạn video tính toán, bạn xem chơi
bác gửi thế em kiểm nghiệm xem sao được. cứ gửi file lên xem thế nào?
Đọan video quay rõ vậy mà còn phải kiểm nghiệm sao?
Bác cho em hỏi nếu em muốn đẩy hàng FA5:FI5 lên FA4:FI4 được không?
Em giải thích rõ chứ. sai em sao làm được bác
Em giải thích rõ chứ. sai em sao làm được bác
Chuẩn rồi bác Chính là 5,6,7,8,9 số lượng. lấy số lượng lớn nhất trong 1 mã theo về trừ lượng mã cố địnhlà 9-5=5 đơn vị(đó là 9,8,7,6,5) giờ em muốn lấy xuống còn 3 đơn vị là 9,8,7 nói chùng là sao mình xác định được số lượng đơn vị cần lấy của mỗi mã theo về, ở đây bác cho e ra 5 đơn vị đi xem thế nào? . còn 70,80,90... là số lương lớn k nói đến bác ah, chỉ là ví dụ.
vất vả bác quá.bác hiểu nhầm rồi. em viết lại vào bài #57 rồi là đúng ý em mà bác.
Em có sai khi đưa file, nhưng bác hiểu sai ý em rồi có nghĩa là
Thứ nhất: bỏ phần trống FA4:FI4 mà đặt mã và các thông số vào đó luôn.
Thứ Hai: lấy số lượng mã trừ đi số lượng mã theo về được 5 đơn vị(ví dụ số lượng mã tại EZ4-FI11= 2 đơn vị(chính là số lượng 5,4 của các mã theo về, bác nhớ là vét cạn các số lượng 4 của mã theo về nha)
chắc tới đây bác hiểu ý em rồi.
Sub timMa()
Const SoDinhVi = 2
Dim arrS(), arrM(), aMc(), aKq(), jDv(), iT, aKq2
Dim ceL As Range
Dim i As Long, j As Long, k As Long, m As Long, n As Long, nM As Long, iM As Long, TopV As Long, dR As Long
With Sheet1
Set ceL = .Cells(.Rows.Count, 1).End(xlUp)
arrS = .Range("B4:EU" & ceL.Row).Value
arrM = .Range([A4], ceL)
TopV = .[FI1].Value
Set ceL = Sheet1.[EX4] 'vitri ket qua
End With
ceL.Resize(65000, 12).ClearContents
m = UBound(arrS): n = UBound(arrS, 2)
nM = 0
For i = 1 To m
If arrS(i, n) = SoDinhVi Then
nM = nM + 1
ReDim Preserve aMc(0 To 3, 1 To nM)
aMc(0, nM) = i
aMc(1, nM) = arrM(i, 1)
aMc(2, nM) = SoDinhVi
End If
Next i
Dim q As Long, qq As Long
dR = 0
For iM = 1 To nM
k = 0: ReDim jDv(1 To 1)
For j = n To 1 Step -1
If arrS(aMc(0, iM), j) = SoDinhVi Then
k = k + 1
ReDim Preserve jDv(1 To k)
jDv(k) = j
End If
Next j
aMc(3, iM) = k
ReDim aKq(1 To m, 1 To 9)
q = 0
For i = 1 To m
If i <> aMc(0, iM) Then
q = q + 1
aKq(q, 1) = arrM(i, 1)
For k = 1 To aMc(3, iM)
For j = jDv(k) - 1 To IIf(jDv(k) - 7 >= 1, jDv(k) - 7, 1) Step -1
If arrS(i, j) > 0 Then
aKq(q, jDv(k) - j + 1) = aKq(q, jDv(k) - j + 1) + 1
Exit For
End If
Next j
Next k
End If
Next i
ReDim iT(1 To q)
For i = 1 To q
For j = 2 To 8
aKq(i, 9) = aKq(i, 9) + aKq(i, j)
Next
iT(i) = aKq(i, 9)
Next
iT = BubbleSort2(iT, False, True)
ReDim aKq2(1 To q, 1 To 9)
For i = 1 To q
For j = 1 To 9
aKq2(i, j) = aKq(iT(i), j)
Next j
Next i
With ceL
For k = 1 To 3
.Offset(, k - 1).Value = aMc(k, iM)
Next k
If TopV > 0 Then
qq = IIf(q > TopV, TopV, q)
ElseIf TopV = 0 Then
qq = q
Else
qq = 0
For i = 1 To q
If aKq2(i, 9) >= aMc(3, iM) + TopV Then qq = qq + 1
Next i
End If
.Offset(, 3).Resize(qq, 9).Value = aKq2
Set ceL = .Offset(qq + 0)
End With
Next iM
End SubSet ceL = .Offset(qq + 0)Set ceL = .Offset(qq + 1)Ý Bác là sao? bác giải thích rõ em coi.
Đây là trường hợp đó Cho trường hợp P
Em muốn tất cả đều lấy xuống 5 đơn vị. nếu nhập từng mã đơn vị rời vậy có đến vài trăm nhập sao hết.
.Offset(, 3).Resize(qq, 9).Value = aKq2If qq > 0 Then .Offset(, 3).Resize(qq, 9).Value = aKq2
