((thử 1 kết quả dưới đâyMình có một hàm
TU = 275m + 75n + 157g + 163h + 126j - 684
Tìm m,n,g,h,j để TU -> min và TU > 0
Các biến là số nguyên, tìm TU
Mình loay hoay 2 ngày nay vẫn chưa tìm ra được cách.
Thì tất cả đều là số nguyên, tìm min, min >0 => đoán là TU=1 =>275m + 75n + 157g + 163h + 126j =685.
Cái này "solver" là sao vậy Bạn?
Bài này tương tự bài 13 của đường dẫn dưới đây.
www.giaiphapexcel.com
Cảm ơn Bạn đã chỉ dẫn, OT đang thử kiểu này thì bị treo máy ... hí hí hí (cứ tưởng ngon ăn)Bài này tương tự bài 13 của đường dẫn dưới đây.
Nhờ hỗ trợ code VBA ngẫu nhiên để ra kết quả xác định trước
mình có Cột A1:A116 là mã hàng hóa. Cột B1:B116 là cột số lượng món ăn tối đa được cho trước. Cột C1:C116 là cột số lượng được tính bằng randbetween(0,số lượng món tối đa. Cột D1 : D116 là đơn giá bán được cho sẵn ---> Mình muốn đặt code VBA thế nào để cho ra kết quả sao cho Sum (E1 : E116) gần...
Sub For_Va_For()
Dim TU As Long, m As Integer, n As Integer, g As Integer, h As Integer, j As Integer
For m = 0 To 9: For n = 0 To 9: For g = 0 To 9: For h = 0 To 9: For j = 0 To 9
TU = CLng(275 & m) + CLng(75 & n) + CLng(157 & g) + CLng(163 & h) + CLng(126 & j) - 684
' If TU > 0 And ... Then
Debug.Print TU & ";" & m & ";" & n & ";" & g & ";" & h & ";" & j
' End If
Next j: Next h: Next g: Next n: Next m
End Sub
Bài này mà m, n, g, h, j nguyên dương thì for for cũng được bạn.Cảm ơn Bạn đã chỉ dẫn, OT đang thử kiểu này thì bị treo máy ... hí hí hí (cứ tưởng ngon ăn)
Mã:Sub For_Va_For() Dim TU As Long, m As Integer, n As Integer, g As Integer, h As Integer, j As Integer For m = 0 To 9: For n = 0 To 9: For g = 0 To 9: For h = 0 To 9: For j = 0 To 9 TU = CLng(275 & m) + CLng(75 & n) + CLng(157 & g) + CLng(163 & h) + CLng(126 & j) - 684 ' If TU > 0 And ... Then Debug.Print TU & ";" & m & ";" & n & ";" & g & ";" & h & ";" & j ' End If Next j: Next h: Next g: Next n: Next m End Sub
Lót dép để "hóng" ạ
Chạy không treo, quay quay một lúc nhưng cũng không thấy gì luôn Bạn ạ,
Option Explicit
Sub For_Va_For()
Dim TU As Long, m As Integer, n As Integer, g As Integer, h As Integer, j As Integer
For m = 0 To 9: For n = 0 To 9: For g = 0 To 9: For h = 0 To 9: For j = 0 To 9: For TU = 0 To 9
If TU = CLng(275 & m) + CLng(75 & n) + CLng(157 & g) + CLng(163 & h) + CLng(126 & j) - 684 Then _
Debug.Print TU & ";" & m & ";" & n & ";" & g & ";" & h & ";" & j
Next TU: Next j: Next h: Next g: Next n: Next m
End SubChào bạn. Mình cám ơn bạn rất nhiều. Mình có xem nãy giờ bài #13 nhưng vẫn chưa hiểu là slover như thế nào. Bạn giúp mình theo file được không? 2 ngày nay mình cày nát cái Google mà vẫn không biết làm sao ra được phương án tối ưuBài này tương tự bài 13 của đường dẫn dưới đây.
Nhờ hỗ trợ code VBA ngẫu nhiên để ra kết quả xác định trước
mình có Cột A1:A116 là mã hàng hóa. Cột B1:B116 là cột số lượng món ăn tối đa được cho trước. Cột C1:C116 là cột số lượng được tính bằng randbetween(0,số lượng món tối đa. Cột D1 : D116 là đơn giá bán được cho sẵn ---> Mình muốn đặt code VBA thế nào để cho ra kết quả sao cho Sum (E1 : E116) gần...
Sub a()
Dim m, n, g, h, j
For m = 0 To 685 \ 275
For n = 0 To 685 \ 75
For g = 0 To 685 \ 157
For h = 0 To 685 \ 163
For j = 0 To 685 \ 126
If 275 * m + 75 * n + 157 * g + 163 * h + 126 * j = 685 Then Debug.Print m, n, g, h, j
Next: Next: Next: Next: Next
End SubBạn làm thử theo file bên dưới
Trời ơi hóa phép nhân hả
. chết mất thôi. khà khà khà. Chữ Thầy trả Cô hết rồiOption Explicit
Sub For_Va_For()
Dim TU As Long, m As Integer, n As Integer, g As Integer, h As Integer, j As Integer
For m = 0 To 9: For n = 0 To 9: For g = 0 To 9: For h = 0 To 9: For j = 0 To 9: For TU = 0 To 9
If TU = 275 * m + 75 * n + 157 * g + 163 * h + 126 * j - 684 Then _
Debug.Print TU & "=" & m & ";" & n & ";" & g & ";" & h & ";" & j
Next TU: Next j: Next h: Next g: Next n: Next m
End Sub
'==============='
'Kết quả:
'8=0;0;2;0;3
'6=0;1;0;3;1
'0=0;1;1;2;1
'7=0;2;0;1;3
'1=0;2;1;0;3<-------Làm sao để xác định được hàng này
'5=0;5;2;0;0
'4=0;7;0;1;0
'6=1;0;0;1;2
'0=1;0;1;0;2
Sub ABC()
Dim iMin&, m&, n&, g&, h&, j&, tmp&, Tong&, d&
tmp = 684
iMin = 10000000
For m = 0 To tmp \ 275 + 1
For n = 0 To tmp \ 75 + 1
For g = 0 To tmp \ 157 + 1
For h = 0 To tmp \ 163 + 1
For j = 0 To tmp \ 126 + 1
Tong = m * 275 + n * 75 + g * 157 + h * 163 + j * 126
If Tong > tmp Then
d = Tong - tmp
If d < iMin Then
ReDim Res(1 To 1000, 1 To 6)
iMin = d: k = 1
Res(k, 1) = m: Res(k, 2) = n: Res(k, 3) = g
Res(k, 4) = h: Res(k, 5) = j
ElseIf d = iMin Then
k = k + 1
Res(k, 1) = m: Res(k, 2) = n: Res(k, 3) = g
Res(k, 4) = h: Res(k, 5) = j
End If
Exit For
End If
Next j
Next h
Next g
Next n
Next m
Range("A3:F3").Resize(k) = Res
End SubKhuya lắm rồi ngủ thôi Bác ơi, mấy đêm nay đầu óc con toàn ngủ mơ thấy code thôi.
