用于管理库存水平的VBA脚本

Question

我已经尝试了很长一段时间来制作一个交互式工作表，该工作表可以跟踪库存水平并在生产下降到设定的下限值时生产。

例如，超过24小时，我的消耗率为每小时10件，库存为100件，最低库存量为20.一旦达到20件，我希望excel自动启动生产模式并生产以特定的比率（公式）{例如：以20件/小时的速度）。在此期间我也在消费，因此库存净增加量为10件/小时。一旦达到上限，它应该停止生产并继续向下计数。

我的生产颜色编码为蓝色，消耗为红色。 VBA脚本读取字体颜色并确定在任何给定时间需要生成的人数（带蓝色文本的单元格总和）。

我有不同的生产规则，例如，小工作生产6小时，然后仅在22小时后重复。根据消费率。我需要有关VBA的帮助，可以根据设置的规则自动填写计划。 目前，我按照这些规则填写单元格，同时手动将总生产时间保持在给定常数以下（带蓝色文本的单元格总和）

5个大型工作:(运行时间：14小时GAP TIME：8小时）每个工作
10个中等工作:(每小时工作时间：10小时工作时间：13小时） 20个小工作:(每小时工作时间：6小时工作时间：22小时）

感谢您阅读整个问题！

我用来阅读蓝色字体颜色的VBA是：

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double

'Update 20140210
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next

End Function