文档2-销售漏斗可视化图表模板-含VBA宏

销售漏斗可视化图表模板含VBA宏代码与使用说明（Excel2016+）即下即用：7工作表完整模板自动计算：漏斗转化率+业绩预测一键生成：周报+数据校验

目录1.模板文件结构说明2.各工作表功能详解3.VBA宏代码安装与使用4.图表制作技巧5.常见问题速查

1.模板文件结构说明本模板包含7个工作表，各表功能如下：工作表名称功能说明是否自动计算数据录入录入所有商机信息，是其他表的数据源否（需手动录入）漏斗转化率自动统计各阶段数量、计算转化率是人员对比各销售人员业绩排名与转化率对比是预测分析基于历史转化率预测下月销售额是赢单丢单分析赢单/丢单原因统计与改进建议是销售周期各维度平均成交天数分析是使用说明操作指南与常见错误解决方法参考1.1文件使用流程打开模板，进入"数据录入"工作表按规范录入商机信息（客户名称使用化名）其他工作表自动刷新计算结果查看"漏斗转化率"识别瓶颈环节查看"预测分析"获取业绩预测每周运行VBA宏生成周报

2.各工作表功能详解2.1数据录入工作表字段说明：记录编号：系统自动生成，格式OPP-YYYY####客户名称：使用化名（客户A1、客户B2等），禁止真实信息所属区域：下拉选择（华东/华北/华南/西南/华中）产品线：下拉选择（5个产品选项）销售负责人：下拉选择（8人名单）创建日期：商机录入日期，格式YYYY-MM-DD当前阶段：下拉选择（线索/商机/报价/成交/丢单）预计金额：正数，单位为元预计成交日期：格式YYYY-MM-DD，必须晚于创建日期实际成交日期：成交/丢单时必填销售周期(天)：公式自动计算=实际成交日期-创建日期赢单/丢单原因：成交/丢单时从下拉选择月度目标：该销售人员的月度业绩目标2.2漏斗转化率工作表自动计算内容：各阶段商机数量统计阶段间转化率（本阶段→下一阶段）整体转化率（线索→成交）阶段金额汇总核心公式示例：=COUNTIF(数据录入!G:G,"成交")说明：统计"数据录入"工作表中"当前阶段"为"成交"的记录数2.3预测分析工作表提供两种预测方法：加权漏斗预测法：当前各阶段金额×历史转化率历史趋势预测法：近3月平均成交额综合预测：两种方法加权平均（默认7:3）2.4赢单丢单分析工作表包含两部分：赢单原因统计：分析成功因素，提炼可复用策略丢单原因统计：识别失败根因，提供改进措施3.VBA宏代码安装与使用3.1如何启用宏文件→选项→信任中心→信任中心设置宏设置→启用所有宏（或启用受信任位置的宏）将文件保存为.xlsm格式（启用宏的工作簿）3.2如何安装VBA代码按Alt+F11打开VBA编辑器左侧项目窗口中找到本工作簿右键→插入→模块将下方代码复制粘贴到模块中按Ctrl+S保存，关闭VBA编辑器3.3VBA宏代码以下是完整的VBA辅助宏代码，可直接复制使用：Sub自动更新漏斗图()

DimptAsPivotTable

DimwsAsWorksheet

ForEachwsInActiveWorkbook.Worksheets

ForEachptInws.PivotTables

pt.RefreshTable

Nextpt

Nextws

MsgBox"漏斗数据已更新！",vbInformation,"完成"

EndSub

Sub生成周报()

DimwsSourceAsWorksheet

DimwsReportAsWorksheet

SetwsSource=ThisWorkbook.Sheets("数据录入")

OnErrorResumeNext

SetwsReport=ThisWorkbook.Sheets("周报")

IfwsReportIsNothingThen

SetwsReport=ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

wsReport.Name="周报"

Else

wsReport.Cells.Clear

EndIf

OnErrorGoTo0

'统计关键指标

DimlastRowAsLong

lastRow=wsSource.Cells(wsSource.Rows.Count,1).End(xlUp).Row

DimtotalLeadsAsLong,totalOppsAsLong,totalQuotesAsLong,totalWinsAsLong

totalLeads=Application.WorksheetFunction.CountIf(wsSource.Range("G2:G"&lastRow),"线索")

totalOpps=Application.WorksheetFunction.CountIf(wsSource.Range("G2:G"&lastRow),"商机")

totalQuotes=Application.WorksheetFunction.CountIf(wsSource.Range("G2:G"&lastRow),"报价")

totalWins=Application.WorksheetFunction.CountIf(wsSource.Range("G2:G"&lastRow),"成交")

'写入周报

wsReport.Range("A1").Value="销售周报摘要"

wsReport.Range("A1").Font.Size=16

wsReport.Range("A1").Font.Bold=True

wsReport.Range("A3").Value="指标"

wsReport.Range("B3").Value="数值"

wsReport.Range("A3:B3").Font.Bold=True

wsReport.Range("A4").Value="本周新增线索"

wsReport.Range("B4").Value=totalLeads

wsReport.Range("A5").Value="活跃商机数"

wsReport.Range("B5").Value=totalOpps

wsReport.Range("A6").Value="报价中商机"

wsReport.Range("B6").Value=totalQuotes

wsReport.Range("A7").Value="本周成交数"

wsReport.Range("B7").Value=totalWins

MsgBox"周报已生成！",vbInformation,"完成"

EndSub

Sub数据完整性校验()

DimwsAsWorksheet

DimlastRowAsLong

DimiAsLong

DimerrorsAsString

Setws=ThisWorkbook.Sheets("数据录入")

lastRow=ws.Cells(ws.Rows.Count,1).End(xlUp).Row

errors=""

Fori=2TolastRow

Ifws.Cells(i,2).Value=""Thenerrors=errors&"第"&i&"行：客户名称为空"&vbCrLf

Ifws.Cells(i,7).Value=""Thenerrors=errors&"第"&i&"行：当前阶段为空"&vbCrLf

Ifws.Cells(i,8).Value<=0Thenerrors=errors&"第"&i&"行：预计金额无效"&vbCrLf

Ifws.Cells(i,7).Value="成交"Orws.Cells(i,7).Value="丢单"Then

Ifws.Cells(i,10).Value=""Thenerrors=errors&"第"&i&"行：成交/丢单需填写实际日期"&vbCrLf

Ifws.Cells(i,12).Value=""Thenerrors=errors&"第"&i&"行：成交/丢单需填写原因"&vbCrLf

EndIf

Nexti

Iferrors=""Then

MsgBox"数据校验通过！所有记录完整。",vbInformation,"校验结果"

Else

MsgBox"发现以下问题："&vbCrLf&vbCrLf&errors,vbExclamation,"校验结果"

EndIf

EndSub

Function预测销售额(阶段AsString,金额AsDouble)AsDouble

Dim转化率AsDouble

SelectCase阶段

Case"线索":转化率=0.283

Case"商机":转化率=0.33

Case"报价":转化率=0.431

Case"成交":转化率=1

CaseElse:转化率=0

EndSelect

预测销售额=金额*转化率

EndFunction3.4如何运行宏按Alt+F8打开宏对话框选择需要运行的宏名称（如"生成周报"）点击"运行"按钮3.5为宏添加快捷键Alt+F8→选中宏→选项设置快捷键（如Ctrl+Shift+U）点击确定保存4.图表制作技巧4.1漏斗图制作（Excel2016+）准备数据：在"漏斗转化率"表中选中阶段和数量列插入→图表→漏斗图调整颜色：右键图表→设置数据系列格式→填充添加数据标签：图表设计→添加图表元素→数据标签4.2低版本Excel替代方案若Excel版本不支持漏斗图，使用堆积条形图模拟：准备三列数据：阶段名称、占位宽度、实际宽度占位宽度=(最大值-当前值)/2插入堆积条形图，隐藏占位数据系列设置数据系列重叠100%，间隙宽度0%4.3转化率柱状图选中转化路径和转化率数据插入→图表→簇状柱形图添加数据标签显示百分比设置颜色：低转化率红色，高转化率绿色4.4月度趋势折线图选中月份和金额数据插入→图表→折线图添加数据标记和趋势线设置次坐标轴显示成交率【销售分析深度图表】

5