发布时间 : 星期日 文章Excel制作动态WaterFall Analysis 方法详解更新完毕开始阅读c68483d951e79b8969022637
Excel制作动态WaterFall Analysis 方法详解（全）-包含VBA代码示例
Supply Chain S&OP 相关项目中往往会涉及Fcst 准确性分析,Water Fall Analysis 是一个很流行的分析手段。
通常Fcst tracking 有两个方向，一个是销售预测者和真实销售值的对比，另外一个是给供应商的预测订单数量和实际订单数量的对比。本文介绍后者在Excel中的作法。
1-首先建立两个表格放数据，Monthly Fcst , Monthly Sale,Monthly Fcst 表格存放历史上每个月Next 12 Month Fcst, Monthly Sales 则是每个月Actual Sale。高级一点的这两个表格也可以Link到数据库达到自动更新的效果。
2-设计一个新Sheet如上图，行和列名分别列出月份，旁边打1 到100 做辅助数据。 观察WaterFall 中规律有三点，
（1）行数和列数相等时为表格对角线的单元格，里面放销售值。 （2）列数比行数大时为上半部分表格，放预测值。 （2）列数比行数小时放空值。
有心的人可能会发现这是大学线性代数矩阵那一章节基本概念。
如果要显示不同供应商的Water Fall，在左上角加一个单元格叫Selection，里面放供应商名字给用户选择，这样就是一个动态Waterfall了。
在第一个单元格输入类似以下的公式，填充至所有，动态waterFall就大功告成了，如果你选择供应商A，waterFall 就会刷新成A的，如果选择（All）就是所有供应商的，因为（All）公式中是不识别的，所以要用Vlookup 把（All） 转成* ，*在sumif 的条件中表示所有。
=IF(L$1<$A12,\A:$A,$B12&L$2&$A$1,Total_Fcst!$F:$F)))
公式中L$1<$A12是判断单元格位置的，SUMIF(Actual_Order!$A:$A,$B12&L$2&$A$1,Actual_Order!$G:$G)是为了动态引用不同供应商。
3-加上些条件格式，如让对角线的值变红色等等，可以让分析结果更加一目了然。 4-添加双击可以Drill Down 到detail Data 功能。
在分析的时候，经常看到一个Fcst 或则Actual Order 很异常，想查下更加Detail Level的数据，看看什么原因。解决方法如下：
添加一张链接到Access的表格保护Detail的数据，在Excel中添加一个双击事件，把双击的单元格所对应的条件转化到Detail数据表格的筛选条件中。参考代码如下：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row >= 12 And Target.Column >= 11 And Len(Target.Value) > 1 Then
Dim Data_Month Dim ETD_month Dim catogory
With ThisWorkbook.Worksheets(\Data_Month = .Cells(Target.Row, 2).Value ETD_month = .Cells(2, Target.Column).Value catogory = .Range(\End With
With ThisWorkbook.Worksheets(\.AutoFilter
If Target.Row = Target.Column Then
‘如果双击单元格在对角线，则筛选Open order ,否则筛选Fcst. .AutoFilter Field:=1, Criteria1:=Data_Month + 0 .AutoFilter Field:=2, Criteria1:=\.AutoFilter Field:=10, Criteria1:=ETD_month .AutoFilter Field:=14, Criteria1:=catogory Else
.AutoFilter Field:=1, Criteria1:=Data_Month .AutoFilter Field:=10, Criteria1:=ETD_month .AutoFilter Field:=14, Criteria1:=catogory End If End With
ThisWorkbook.Worksheets(\ThisWorkbook.Worksheets(\End If End Sub 加完以上代码，
当双击WaterFall的值，则弹出以下DetailData做进一步的分析。