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,"",IF(L$1=$A12,SUMIF(Actual_Order!$A:$A,$B12&L$2&$A$1,Actual_Order!$G:$G),SUMIF(Total_Fcst!$A:$A,$B12&L$2&$A$1,Total_Fcst!$F:$F)))
公式中L$1<$A12是判断单元格位置的，SUMIF(Actual_Order!$A:$A,$B12&L$2&$A$1,Act
ual_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("Water_Fall")
Data_Month = .Cells(Target.Row, 2).Value
ETD_month = .Cells(2, Target.Column).Value
catogory = .Range("A1").Value
End With
With ThisWorkbook.Worksheets("Detail_Data").ListObjects("Table_Monthly_Fcst_Databa.accdb").Range
.AutoFilter
If Target.Row = Target.Column Then
‘如果双击单元格在对角线，则筛选Open order ,否则筛选Fcst.
三国演义经典片段
幼儿园大班随笔.AutoFilter Field:=1, Criteria1:=Data_Month + 0
.AutoFilter Field:=2, Criteria1:="Open PO"
.AutoFilter Field:=10, Criteria1:=ETD_month
.AutoFilter Field:=14, Criteria1:=catogory
El
.AutoFilter Field:=1, Criteria1:=Data_Month
.AutoFilter Field:=10, Criteria1:=ETD_month晚修
.AutoFilter Field:=14, Criteria1:=catogory
End If
磷酸苯丙哌林片的作用End With
ThisWorkbook.Worksheets("Detail_Data").Activate
ThisWorkbook.Worksheets("Detail_Data").Cells(1, 1).Select
End If
End Sub
加完以上代码，
当双击WaterFall的值，则弹出以下DetailData做进一步的分析。
