补货日期的选择

商品的缺货会导致排名在短时间内有很大的下降，之前苦心孤诣积累下来的人气，很有可能毁于一旦。因此，一款热卖的产品，我们必须时时跟进产品的销量与库存余量以及供应商的生产进度。力保做到补货及时，不压库存，流转迅速，控制成本。

我们建议将每次出运的流转以及费用都记录下来，并且简略的记录与该货代合作时所发生的事情。比如与A货代合作的时候，清关遇上了什么样的困难，或者在咨询的时候，货代是否专业等。这样之后积累多次之后，便会形成一个详细的物流供应商的参考文档，可供同事以及自己分析，选择出最适合自己的物流供应商。

我在这里截取最新三条数据，以供参考表头的设置。

1

另外关于补货日期的选择，我们先时时监控每天的库存以及销量，先以日销量为基准，计算补货的日期。这里使用下面的公式：
补货日期=现在的日期+(库存/日销量-流转日期)

这里我们估算出了预计补货的日期：

2

这边的补货日期差距巨大，没有办法给我们提供清晰的参考，因此我们再计算每天的平均日销，重新一次计算补货日期。

3.png

这里我们可以发现所有的日期都落在5月份，似乎表明，我们在5月的某天，需要进行一次补货。

这里至今日销的计算方式是这样的：
累计往上求和，并且除以多少天。
因此普通的sum求和无法求得，这里使用了一小段代码，也贴出来供大家参考。

Sub mSum()
    Dim rg_r, rg_c, rg_sum As Range
    Dim nm As String
    Dim e_n, e_n_c, i As Integer
    
    nm = ActiveSheet.Name
    Set rg_r = ThisWorkbook.Sheets(nm).Range("a:a")
    Set rg_c = ThisWorkbook.Sheets(nm).Range("1:1")
    e_n = Application.WorksheetFunction.CountA(rg_r)
    e_n_c = Application.WorksheetFunction.CountA(rg_c)

    For i = 2 To e_n
        Set rg_sum = Range(Cells(2, 2), Cells(i, 2))
        Cells(i, e_n_c) = Application.Sum(rg_sum) / (i - 1)
    Next 
End Sub