Chưa rõ ràng.
Cảm ơn bác đã xem bài và cho ý kiến,
Bạn thử dùng thủ tục này đúng không nhé.
Sub PhanBo()
Dim arrTemp
Dim c As Byte
Dim lngSoCot As Long
Dim shData As Worksheet
Dim dblSoMax As Double, dblSoPhanBo As Double, dblThayDoi As Double
Set shData = Sheets("Sheet1")
dblSoPhanBo = shData.Range("D5").Value
arrTemp = shData.Range("B7:K7").Value
dblSoMax = 1000
dblTotal = WorksheetFunction.Sum(arrTemp)
dblThayDoi = dblTotal + dblSoPhanBo
lngSoCot = UBound(arrTemp, 2)
For c = 1 To lngSoCot
arrTemp(1, c) = dblSoMax
dblTotal = WorksheetFunction.Sum(arrTemp)
If dblTotal > dblThayDoi Then
arrTemp(1, c) = dblSoMax - (dblTotal - dblThayDoi)
Exit For
End If
Next
shData.Range("B8:K8").Value = arrTemp
End SubCode chạy ra đúng kết quả em muốn, cảm ơn Mod. Em đang tìm hiểu vòng lặp Do , Mod có thể chỉ cho em thêm cách dùng Do được không thay vì dùng For.
mình test nó cũng bị như vậy, không biết bị gì?
Dùng Do ... Loop hay For ... Next đều như nhau có thời gian thực hiện như nhau, miễn là mình biết khi nào dùng Do và khi nào dùng For cho nó hợp lý. Thế bạn có thể cho biết vì sao phải dùng Do hay không?
Em rất thích câu hỏi này của Mod, không phải là do được 1 đòi 2 mà em muốn tìm hiểu thêm về các xử lý để tăng thêm kỹ năng tư duy.
Thứ nhất: ô L9 bạn đã ghi sai công thức, công thức đúng phải là: =L8-L7 (so sánh số chênh lệch).
Ai nói với bạn là dùng DO mà không có Exit? Nếu không có Exit hoặc thỏa điều kiện (While/Until) thì nó Do suốt cho đến khi tắt Excel à?
À à, em phát biểu nhầm sorry sorry Mod ý em là nó tự thoát khi thỏa mãn điều kiện mà không phải thêm câu lệnh Exit giống như Exit For ấy.
Bạn nhìn code này xem nó có cần Exit không nhé!
Sub PhanBo()
Dim arrTemp
Dim c As Byte
Dim lngSoCot As Long
Dim shData As Worksheet
Dim dblSoMax As Double, dblSoPhanBo As Double, dblThayDoi As Double
Set shData = Sheets("Sheet1")
dblSoPhanBo = shData.Range("D5").Value
arrTemp = shData.Range("B7:K7").Value
dblSoMax = 1000
dblTotal = WorksheetFunction.Sum(arrTemp)
dblThayDoi = dblTotal + dblSoPhanBo
lngSoCot = UBound(arrTemp, 2)
Do
c = c + 1
arrTemp(1, c) = dblSoMax
dblTotal = WorksheetFunction.Sum(arrTemp)
If dblTotal > dblThayDoi Then
arrTemp(1, c) = dblSoMax - (dblTotal - dblThayDoi)
Exit Do
End If
Loop
shData.Range("B8:K8").Value = arrTemp
End SubÔ vậy là vẫn phải dùng thêm Exit, chắc là phải vậy rồi, em không hiểu lắm chỉ là muốn tìm hiểu thêm thôi.
Sub test_doWhile()
Dim counter As Integer
counter = 1
Do While counter < 5
MsgBox "Gia tri hien tai cua counter la: " & counter
counter = counter + 1
Loop
End SubTrường hợp đơn giản thì bạn có thể gán chúng trên While/Until được, còn phức tạp sao mà gán được!
lngSoCot = UBound(arrTemp, 2)
Do Until c = lngSoCot
c = c + 1
arrTemp(1, c) = dblSoMax
dblTotal = WorksheetFunction.Sum(arrTemp)
If dblTotal > dblThayDoi Then
arrTemp(1, c) = dblSoMax - (dblTotal - dblThayDoi)
Exit Do
End If
LoopNhờ Mod xem giúp em 3 sub này em chạy với dữ liệu sau kết quả lại sai:
Option Explicit
Sub PhanBo()
Dim arrTemp
Dim c As Byte
Dim lngSoCot As Long
Dim shData As Worksheet
Dim dblSoMax As Double, dblSoPhanBo As Double, dblThayDoi As Double, dblTotal As Boolean
Set shData = Sheets("Sheet1")
dblSoPhanBo = shData.Range("D5").Value
arrTemp = shData.Range("B7:K7").Value
shData.Range("B8:K8").ClearContents
dblSoMax = 1000
dblTotal = WorksheetFunction.Sum(arrTemp)
dblThayDoi = dblTotal + dblSoPhanBo
lngSoCot = UBound(arrTemp, 2)
For c = 1 To lngSoCot
arrTemp(1, c) = dblSoMax
dblTotal = WorksheetFunction.Sum(arrTemp)
If dblTotal > dblThayDoi Then
arrTemp(1, c) = dblSoMax - (dblTotal - dblThayDoi)
Exit For
End If
Next
shData.Range("B8:K8").Value = arrTemp
End Sub
Sub PhanBo2()
Dim arrTemp
Dim c As Byte
Dim lngSoCot As Long
Dim shData As Worksheet
Dim dblSoMax As Double, dblSoPhanBo As Double, dblThayDoi As Double, dblTotal As Boolean
Set shData = Sheets("Sheet1")
dblSoPhanBo = shData.Range("D5").Value
arrTemp = shData.Range("B7:K7").Value
shData.Range("B8:K8").ClearContents
dblSoMax = 1000
dblTotal = WorksheetFunction.Sum(arrTemp)
dblThayDoi = dblTotal + dblSoPhanBo
lngSoCot = UBound(arrTemp, 2)
Do
c = c + 1
arrTemp(1, c) = dblSoMax 'Loi: Subscript out of range
dblTotal = WorksheetFunction.Sum(arrTemp)
If dblTotal > dblThayDoi Then
arrTemp(1, c) = dblSoMax - (dblTotal - dblThayDoi)
Exit Do
End If
Loop
shData.Range("B8:K8").Value = arrTemp
End Sub
Sub PhanBo3()
Dim arrTemp
Dim c As Byte
Dim lngSoCot As Long
Dim shData As Worksheet
Dim dblSoMax As Double, dblSoPhanBo As Double, dblThayDoi As Double, dblTotal As Boolean
Set shData = Sheets("Sheet1")
dblSoPhanBo = shData.Range("D5").Value
arrTemp = shData.Range("B7:K7").Value
shData.Range("B8:K8").ClearContents
dblSoMax = 1000
dblTotal = WorksheetFunction.Sum(arrTemp)
dblThayDoi = dblTotal + dblSoPhanBo
lngSoCot = UBound(arrTemp, 2)
Do Until c = lngSoCot
c = c + 1
arrTemp(1, c) = dblSoMax
dblTotal = WorksheetFunction.Sum(arrTemp)
If dblTotal > dblThayDoi Then
arrTemp(1, c) = dblSoMax - (dblTotal - dblThayDoi)
Exit Do
End If
Loop
shData.Range("B8:K8").Value = arrTemp
End Sub
Chạy solver trong file đính kèm
Trời ạ ngàn lần sorry Mod, vì Mod khai báo thiếu em khai báo Double nhưng thế nào lại gõ nhầm thành Boolean ...
Cái này chạy sao bác ơi? Code két có thêm gì đâu bác?
Solver là Addin có sẵn của excel, trong menu DataTrời ạ ngàn lần sorry Mod, vì Mod khai báo thiếu em khai báo Double nhưng thế nào lại gõ nhầm thành Boolean ...
Nãy giờ tưởng máy tính bị nhiễm virut , tải lại bài 1 rồi code ket để kiểm tra các kiểu, đến khổ
Cái này chạy sao bác ơi? Code két có thêm gì đâu bác?
