Excel洗涤用品销售额预测

Excel洗涤用品销售额预测销售额预测即根据几个月的具体销售额，来推测其他月份的销售额。下面运用控件及VBA代码，来制作一个“洗涤用品销售额预测”表格。通过本例的学习，让用户掌握如何制作一个控件按钮的方法。洗涤用品捎诺领领侧■百品名一月二月三月四月五月六月七月八月九月+月+一月十二月1注浴客4UC6E3O40EBL定用园.国TBW1E心的1W63:3951：,E：E5QM品16B5DBBGBQD5C.6由DHL187Q5TG&3TES5SB.B2篦妣曲后12aL554121IEL2&23DO4OT.424侬143B767E.T429321WHO6T.g51KHaTE4942C法而明2231512L022U宓251500541222425160.6始5期,2544627.T日&1646.1flSTMT.4712135.1TE6043.44睦SZL1日4565434445654BT胃汨的6539QT1,S56714&：皆因444.55Z1134.46473：573]46.!E护舞景g21254W4E312g6d.H2SV7S.B^0239.167dm.1?27?ES.E779 .Q3C41Bl9B0E0Q.G1．实验目的使用控件VBA代码2．操作步骤：（1）在A1至N7单元格区域中，输入相应的字段信息，并设置单元格的格式，如图10-58所示。IA]-B -C -E -E -F -GH T J ILH1-流潦用品格售额湿测近千百事名一月 二月 三月 四月 王月六月 七月 八月 九月十月1—月十二月53|1沛昭盖4函翟3545就由LlEL?704S12462133+ 2SfcJuK通5 12345 15651 5-1121 i512G21洲面隔2Z3151Z1QEZ1452 部151gML2Z314 用= fiE211日4与6区W74 4SE^12EJME717 5沪龙鼻驼L254 或38 45倒£小酩g6E4312J11|_fl___. | ^ ^ ^ ^创建表格一,图10-5Excel创建表格（2）选择【开发工具】选项卡，单击【控件】组中的【插入】下拉按钮，在【ActiveX控件】栏中，选择【命令按钮】控件。然后，在工作表中，绘制该控件，如图10-59所示。3ECII&F4H1J匕 工1»E]法赤用品霜售量（刘测州茴吊名一口二月四月五月七月八月九月|十月t-月十二月31湘&嘉:■■.■&L02S1GS0213TB15124SZ12D1 1， ■■£i4±n42然成国，51234S45^4&S12L4E13&2&3丽班2S315121C-221152251500&±1^2*如诩制E4呼克陛11鸵5654544i4K94Z的霞/T—— 艮蜘ft7B十发彩3ZL2&L汨③如4位12B&33CLITH[□■A.Si：.jj.3¥绘制口匚0min■北匚ti%f -l Aein«X£»1选择AQjsp:朝。A聿・会1D口,j~bH.bectl,5hw+2Sh^+3巴।1^^1■「

图10-59绘制控件(3)选择绘制的控件，单击【控件】组中的【属性】按钮。然后，在弹出的【属性】对话框中，选择Caption图10-59绘制控件(3)选择绘制的控件，单击【控件】组中的【属性】按钮。然后，在弹出的【属性】对话框中，选择Caption项，输入“销售分析”文字，即可更改控件名称，如图10-60所示。•商品有一月二月三月四月五月六月七月凡月L工+,眄加国KifiZlS49ZL3Q2物ET1234SE412145L2623诜面搦2到5一单击」;皿耳S5Z31045654H45E5425G54B7G始式手畦BscmEH4L1Z图10-60重命名控件(5)在弹出的VBA编辑窗口中，输入代码，如图10-62所示。图10-6Excel输入代码其中，VBA编辑窗口中的具体代码内容如下:PrivateSubCommandButton1_Click()DimSv(12),Av(12)AsDouble‘定义两个双精度的数组变量Dimi,jAsInteger’定义用于循环的整型变量Fori=3To7

对每一种商品都进行循环预测j=3While(NotIsEmpty(Cells(i,j).Value))’取得所有已知数据Sv(j-2)=CDbl(Cells(i,j).Value)’将单元格内的数据转换成双精度数据类型Av(j-2)=j2’取得已知数据的个数j=j+1'循环变量递增WendIf(j>3)ThenCells(i,j).Value=WorksheetFunction.Forecast((j-3),Sv,Av)‘使用Forecast函数预测(i,j)点的值Cells(i,j).Font.ColorIndex=30’设置字体颜色为红色EndIfNextiEndSub(6)单击【控件】组中的【设计模式】按钮，取消设计模式。然后依次单击【销售分析】按钮，即可得出六月至十二月份的销售额，如图10-63所示。图10-6Excel得出销售预测值六月图10-6Excel得出销售预测值六月七月八月九月十月+一月"H633W4.S班(H咯E6野乳&BTC9T65.37:3SOOijfiT..3448314307e.TB.T470057.fl510043.7544Z916D.643口^Q・Z54462T-7白乳例&1两脚JT12135.1766的g