财务决策支持系统实验

1、实验名称：多维数据分析实验实验目的：掌握工作表之间的关系及从一个表中查询记录，了解EXCELS识和VB编程技术。实验内容：1、用EXCEL做一张产品销售表，记录不少于100条。2 、每条记录使用序号、产品名称、销售网点、销售人员、销售时间、数量、单价、销售额，除销售额外，每个属性取值不少于4个。3 、用EXCELL做一个使用界面，分别从产品名称、销售网点、销售人员三个视角查看销售额，将该截面做到单独的一张工作表上。4 、分别用三张工作表表示产品名称销售额、销售网点销售额、销售人员销售额三的视图。5 、按产品名称求销售额汇总，并用工作表表示。实验工具：Excel的控件技术、编程技术问题与解决方法

2、：（1）点击控件时，目标数据能够显示，但必须“手动”切换到相应的界面，而非点击后直接显示。解决方法为：在Sub销售额汇总表（）后,Sheet6.Select（2）在编写程序时容易出现错误，解决方法是通过对宏进行录制实现控件功能。实验结论：产品销售表产品名销售网点销售时间销售人员数量单价销售额称产地1优盘山西赛格2008-10-11李一508944502优盘山西赛格2008-10-12李一1008989003优盘山西赛格2008-10-13李一208917804优盘山西赛格2008-10-13李一508944505优盘山西赛格2008-10-13李一208917806优盘山西赛格2008-10-

3、14李一598952517显示器河北赛格2008-10-15李一81008008显示器河北赛格2008-10-16李一91009009显示器河北赛格2008-10-16李一20100200010显示器河北赛格2008-10-16李一10100100011显示器河北赛格2008-10-16李示器河北赛格2008-10-17李一510050013显示器河北赛格2008-10-17李一16100160014显示器河北赛格2008-10-17李一16100160015显示器河北赛格2008-10-17李示器河北赛格2008-10-17李一131001

4、30017显示器河北赛格2008-10-17李一12100120018光驱陕西青龙2008-10-18张红9110990序19电脑陕西青龙2008-10-18张红1554208130020电脑陕西青龙2008-10-18张红1254206504021电脑陕西青龙2008-10-19张红1654208672022电脑陕西青龙2008-10-19张红1454207588023光驱陕西青龙2008-10-19张驱陕西青龙2008-10-19张红16110176025光驱陕西青龙2008-10-19张驱陕西青龙2008-10-19张红12110132

5、027光驱陕西青龙2008-10-20张驱陕西青龙2008-10-20张驱陕西青龙2008-10-20张驱陕西青龙2008-10-20张驱陕西青龙2008-10-20张驱陕西青龙2008-10-20张红16110176033光驱陕西青龙2008-10-20张红12110132034光驱陕西青龙2008-10-20张红12110132035光驱陕西青龙2008-10-20张小命河北云天2008-10-21李梅11100110037皿小命河北云

6、天2008-10-21李梅21100210038业小命河北云天2008-10-22李梅20100200039通小命河北云天2008-10-22李梅21100210040皿小命河北云天2008-10-22李梅25100250041业/八芸日河北云天2008-10-22李梅23100230042业刀、百百河北云天2008-10-22李梅22100220043业小店河北云天2008-10-22李梅25100250044显示器河北云天2008-10-23李梅12100120045业小命河北云天2008-10-23李盘山西阳光数码港2008-10-23王星1989169147优

7、盘山西阳光数码港2008-10-23王星2589222548优盘山西阳光数码港2008-10-24王星1589133549优盘山西阳光数码港2008-10-24王星1689142450优盘山西阳光数码港2008-10-24王星2989258151优盘山西阳光数码港2008-10-24王星2989258152优盘山西阳光数码港2008-10-24王星1889160253优盘山西阳光数码港2008-10-24王星3189275954优盘山西阳光数码港2008-10-25王星3689320455优盘山西阳光数码港2008-10-25王星3489302656优盘山西阳光数码港2008-10-25王星3

8、889338257优盘山西阳光数码港2008-10-25王星3989347158优盘山西阳光数码港2008-10-25王星4589400559优盘山西阳光数码港2008-10-25王星4689409460业小店河北阳光数码港2008-10-25王星47100470061业小命河北阳光数码港2008-10-26王星25100250062业小命河北阳光数码港2008-10-26王星26100260063显示器河北阳光数码港2008-10-26王星28100280064显示器河北阳光数码港2008-10-26王星29100290065显示器河北阳光数码港2008-10-26王星27100270066

9、显示器河北阳光数码港2008-10-27王星29100290067显示器河北阳光数码港2008-10-27王星25100250068显示器河北阳光数码港2008-10-27王星26100260069显示器河北阳光数码港2008-10-27王星24100240070手机山东云天2008-10-28李梅3618006480071手机山东云天2008-10-28李梅3918007020072手机山东云天2008-10-28李梅3818006840073手机山东云天2008-10-28李梅3718006660074手机山东云天2008-10-28李梅4418007920075手机山东云天2008-10

10、-28李梅4618008280076手机山东云天2008-10-29李梅4918008820077手机山东云天2008-10-29李梅4818008640078手机山东云天2008-10-29李梅4818008640079手机山东云天2008-10-29李梅4718008460080手机山东云天2008-10-29李梅4118007380081手机山东云天2008-10-29李梅4518008100082手机山东云天2008-10-29李梅4618008280083手机山东云天2008-10-29李梅4518008100084手机山东云天2008-10-29李梅4118007380085手机山

11、东云天2008-10-29李梅4118007380086手机山东云天2008-10-30李梅4618008280087手机山东云天2008-10-30李梅4918008820088优盘山西赛格2008-10-30李一5289462889优盘山西赛格2008-10-30李一5189453990优盘山西赛格2008-10-30李一5189453991优盘山西赛格2008-10-30李一5489480692优盘山西赛格2008-10-30李一5689498493优盘山西赛格2008-10-30李一5289462894优盘山西赛格2008-10-30李一5289462895优盘山西赛格2008-10-

12、31李一5689498496优盘山西赛格2008-10-31李一4589400597优盘山西赛格2008-10-31李一4689409498优盘山西赛格2008-10-31李一4289373899优盘山西赛格2008-10-31李一47894183100优盘山西赛格2008-10-31李一45894005使用界面产品名称与销售额销售网点与销售额返回产品销售表产品名称与销售额汇总销售人员与销售额产品名称，销售网点，销售人员与销售额4450098O78oO584741O8000900200人售一一一一一一一一一销吊李李李李李李李李李ooooO1O508585O4974723304814150000

13、289产品名称销售额销售网点格格赛赛格格赛赛格格赛赛ooooO5085849747481411O5O285oOoO9O2盘盘盘盘优优优优盘示优显足口足口曾曾示示显显显示器显示器显示器显示器显示器显示器显示器显示器光驱电脑电脑电脑电脑光驱光驱光驱光驱光驱光驱光驱光驱光驱光驱光驱光驱光驱显示器显示器显示器显示器显示器显示器显示器显示器显示器显示器盘盘盘盘盘盘盘盘优优优优优优优优1000赛格1300赛格500赛格1600赛格1600赛格1800赛格1300赛格1200赛格990青龙81300青龙65040青龙86720青龙75880青龙1870青龙1760青龙1430青龙1320青龙1650青龙19

14、80青龙1540青龙1870青龙1650青龙1760青龙1320青龙1320青龙1540青龙1100云天2100云天2000云天2100云天2500云天2300云天2200云天2500云天1200云天1500云天1691阳光数码港2225阳光数码港1335阳光数码港1424阳光数码港2581阳光数码港2581阳光数码港1602阳光数码港2759阳光数码港1000李一1300李一500李一1600李一1600李一1800李一1300李一1200李一990张红81300张红65040张红86720张红75880张红1870张红1760张红1430张红1320张红1650张红1980张红1540张红

15、1870张红1650张红1760张红1320张红1320张红1540张红1100李梅2100李梅2000李梅2100李梅2500李梅2300李梅2200李梅2500李梅1200李梅1500李梅1691王星2225王星1335王星1424王星2581王星2581王星1602王星2759王星100013005001600160018001300120099081300650408672075880187017601430132016501980154018701650176013201320154011002100200021002500230022002500120015001691222513

16、3514242581258116022759显示器显示器显示器显示器显示器显示器显示器显示器显示器显示器手机手机手机手机手机手机手机手机手机手机手机手机手机手机手机手机手机手机优盘优盘优盘优盘优盘优盘优盘优盘320430263382347140054094470025002600280029002700290025002600240064800702006840066600792008280088200864008640084600738008100082800810007380073800828008820046284539453948064984462846284984阳光数码港阳光数码港

17、阳光数码港阳光数码港阳光数码港阳光数码港阳光数码港阳光数码港阳光数码港阳光数码港阳光数码港阳光数码港阳光数码港阳光数码港阳光数码港阳光数码港云天云天云天云天云天云天云天云天云天云天云天云天云天云天云天云天云天云天赛格赛格赛格赛格赛格赛格赛格赛格3204王星3026338234714005409447002500260028002900270029002500260024006480070200684006660079200828008820086400864008460073800810008280081000738007380082800882004628453945394806498446

18、2846284984王星王星王星王星王星王星王星王星王星王星王星王星王星王星王星李梅李梅李梅李梅李梅李梅李梅李梅李梅李梅李梅李梅李梅李梅李梅李梅李梅李梅李一李一李一李一李一李一李一李一320430263382347140054094470025002600280029002700290025002600240064800702006840066600792008280088200864008640084600738008100082800810007380073800828008820046284539453948064984462846284984盘盘盘盘盘寸。8赛格Ooio赛格4005李4

19、094李3738李4183李一4005李产30894022000141480062100121752才19295921600000汇总电脑光驱手机显示器优盘I产品名称程序：Sub按钮4单击()Sheets(n产品名称链接).SelectActiveCell.FormulaRICISheetl!R1C1MRange(A1n).SelectSelection.AutoFillDestination:=Range(HA1:A101),Type:=xlFillDefaultRange(A1:A101).SelectActiveWindow.SmallScrollDown:=-93Range(B1n).

20、SelectActiveCell.FormulaRICI=H=Sheet1!R1C6nRange(B1H).SelectSelection.AutoFillDestination:=Range(B1:B101),Type:=xlFillDefaultRange(nB1:B101n).SelectActiveWindow.SmallScrollDown:=-3RangeCCSS).SelectActiveWindow.SmallScrollDown:=-93EndSubSub按钮5一单击()Sheets(H销售网点链接)SelectActiveCell.FormulaRICI=H=Sheet1!

21、R1C3nRange(A1H).SelectSelection.AutoFillDestination:=Range(A1:A101),Type:=xlFillDefaultRange(”A1:A101)SelectActiveWindow.SmallScrollDown:=-81RangeCBI).SelectActiveCelLFormulaR1C1=n=Sheet1!R1C6fRange(B1).SelectSelection.AutoFillDestination:=Range(nB1:B101),Type:=xlFillDefaultRangefBIBIOISelectActiveW

22、indow.SmallScrollDown:=-60Range(D34n).SelectEndSubSub按钮6单击()Sheets。销售人员链接力.SelectActiveCelLFormulaR1C1=n=Sheet1!R1C4HRange(A1).SelectSelection.AutoFillDestination:=Range(HA1:A101),Type:=xlFillDefaultRange(”A1:A101)SelectActiveWindow.SmallScrollDown:=-84Range(B1).SelectActiveCelLFormulaR1C1=M=Sheet1!R1C6fRange(B1).SelectSelectio