46、产品组合与员工调度应用的VBA实现

产品组合与员工调度应用的VBA实现

1. 产品组合应用

产品组合应用涉及到对产品生产和资源使用的管理。在这个应用中，我们可以通过VBA代码实现一些关键功能，例如计算产品的成本和利润，以及记录资源的使用情况。

以下是一段用于计算产品成本和利润的VBA代码：

wsModel.Range("UnitRev").Cells(p1).Value
.Offset(p1, 4).Value = wsModel.Range("Produced").Cells(p1).Value * _
wsModel.Range("UnitCost").Cells(p1).Value
.Offset(p1, 5).Value = wsModel.Range("Produced").Cells(p1).Value * _
wsModel.Range("UnitProfit").Cells(p1).Value
End If
Next
End With
End Sub

另外， EnterResourceResults 子过程用于将资源使用结果转移到报告表中，并计算每种资源的剩余量：

Sub EnterResourceResults()
' This sub transfers results about resource usage.
Dim r As Integer ' resource index
With wsReport.Range(ResRepAnchor)
' Clear old data (if any).