凑数：求助装车时怎样用车最少的代码

chzsh · 发表于 2023-5-24 12:52

本帖最后由 chzsh 于 2023-5-25 08:36 编辑

20件货物199.203吨 6辆车装完，每车重量不超过43吨，不低于35吨，装车最经济。每件货物不能拆分。谢谢

micch · 发表于 2023-5-24 13:03

总重量不到200吨，一个车43吨，4个车不够，5个车够了。

所以按顺序4个一组，分别装5个车就完了，都没超43

micch · 发表于 2023-5-24 13:05

吴中泉 · 发表于 2023-5-25 10:23

micch 发表于 2023-5-24 13:03
总重量不到200吨，一个车43吨，4个车不够，5个车够了。

所以按顺序4个一组，分别装5个车就完了，都没超4 ...

楼主题目出滴有问题啊,如果用6辆车怎么装都不经济,并且不符合上下限要求.
不过以你分配的干,我们一大卡车主又没活干了,大家都为了有口饭吃,不容易啊.

sogo777 · 发表于 2023-5-25 10:44

Option Explicit
Sub CalculateLoading()
Dim cargoWeight As Double
Dim truckCapacity As Double
Dim minTruckCapacity As Double
Dim numTrucks As Integer
Dim remainingCargo As Double
Dim i As Integer
' 定义货物总重量和每辆车的容量上下限
cargoWeight = 199.203
truckCapacity = 43
minTruckCapacity = 35
' 计算所需的车辆数量
numTrucks = Application.WorksheetFunction.Ceiling(cargoWeight / truckCapacity, 1)
' 检查每辆车的容量是否满足要求
If numTrucks * minTruckCapacity < cargoWeight Then
numTrucks = numTrucks + 1
End If
' 输出结果
MsgBox "需要 " & numTrucks & " 辆车进行装载。"
' 计算每辆车的装载情况
remainingCargo = cargoWeight
For i = 1 To numTrucks
If remainingCargo > truckCapacity Then
MsgBox "第 " & i & " 辆车装载 " & truckCapacity & " 吨货物。"
remainingCargo = remainingCargo - truckCapacity
Else
MsgBox "第 " & i & " 辆车装载 " & remainingCargo & " 吨货物。"
End If
Next i
End Sub

复制代码

chzsh · 发表于 2023-5-26 06:41

sogo777 发表于 2023-5-25 10:44

谢谢大佬的帮助。但我还有两个条件需要满足：一、每件货物不能拆分。二、请把装车货物编号放在F列。如例子。谢谢

chzsh · 发表于 2023-5-27 18:56

chzsh 发表于 2023-5-26 06:41
谢谢大佬的帮助。但我还有两个条件需要满足：一、每件货物不能拆分。二、请把装车货物编号放在F列。如例 ...

哪位大佬给帮下忙

chzsh · 发表于 2023-5-28 21:20

chzsh 发表于 2023-5-26 06:41
谢谢大佬的帮助。但我还有两个条件需要满足：一、每件货物不能拆分。二、请把装车货物编号放在F列。如例 ...

chzsh 发表于 2023-5-26 06:41
谢谢大佬的帮助。但我还有两个条件需要满足：一、每件货物不能拆分。二、请把装车货物编号放在F列。如例 ...

哪位大佬给帮下忙

chzsh · 发表于 2023-6-2 15:04

chzsh 发表于 2023-5-28 21:20
chzsh 发表于 2023-5-26 06:41
谢谢大佬的帮助。但我还有两个条件需要满足：一、每件货物不能拆分。 ...

哪位大佬给帮下忙

18380222672 · 发表于 2023-6-2 16:24

怎么说呢，如果按照你给的数据，每件货物的重量都在10吨左右，那我觉得人工更方便。但是如果每件货物的重量不等，或者你要最优解的话，这个算法就很复杂了。

		自动登录	找回密码
密码			免费注册

[求助] 凑数：求助装车时怎样用车最少的代码