财会决策支持系统实验.doc

n实验名称:多维数据分析实验实验目的：掌握工作表之间的关系及从一个表中查询记录，了解EXCELL知识 和VB编程技术。实验内容：1、用EXCELL做一张产品销售表，记录不少于100条。 2、每条记录使用序号、产品名称、销售网点、销售人员、销售时间、数量、单价、销售额，除销售额外，每个属性取值不少于4个。 3、用EXCELL做一个使用界面，分别从产品名称、销售网点、销售人员三个视角查看销售额，将该截面做到单独的一张工作表上。 4、分别用三张工作表表示产品名称销售额、销售网点销售额、销售人员销售额三的视图。 5、按产品名称求销售额汇总，并用工作表表示。实验工具：Excel的控件技术、编程技术问题与解决方法：(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-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李示器河北赛格2008-10-17李一12100120018光驱陕西青龙2008-10-18张红911099019电脑陕西青龙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张红12110132027光驱陕西青龙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显示器河北云天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优盘山西阳光数码港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王星3889338257优盘山西阳光数码港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显示器河北阳光数码港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-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手机山东云天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-31李一5689498496优盘山西赛格2008-10-31李一4589400597优盘山西赛格2008-10-31李一4689409498优盘山西赛格2008-10-31李一4289373899优盘山西赛格2008-10-31李一47894183100优盘山西赛格2008-10-31李一45894005 使用界面产品名称,销售网点,销售人员与销售额产品名称销售额销售网点销售额销售人员销售额优盘4450赛格4450李一4450优盘8900赛格8900李一8900优盘1780赛格1780李一1780优盘4450赛格4450李一4450优盘1780赛格1780李一1780优盘5251赛格5251李一5251显示器800赛格800李一800显示器900赛格900李一900显示器2000赛格2000李一2000显示器1000赛格1000李一1000显示器1300赛格1300李一1300显示器500赛格500李一500显示器1600赛格1600李一1600显示器1600赛格1600李一1600显示器1800赛格1800李一1800显示器1300赛格1300李一1300显示器1200赛格1200李一1200光驱990青龙990张红990电脑81300青龙81300张红81300电脑65040青龙65040张红65040电脑86720青龙86720张红86720电脑75880青龙75880张红75880光驱1870青龙1870张红1870光驱1760青龙1760张红1760光驱1430青龙1430张红1430光驱1320青龙1320张红1320光驱1650青龙1650张红1650光驱1980青龙1980张红1980光驱1540青龙1540张红1540光驱1870青龙1870张红1870光驱1650青龙1650张红1650光驱1760青龙1760张红1760光驱1320青龙1320张红1320光驱1320青龙1320张红1320光驱1540青龙1540张红1540显示器1100云天1100李梅1100显示器2100云天2100李梅2100显示器2000云天2000李梅2000显示器2100云天2100李梅2100显示器2500云天2500李梅2500显示器2300云天2300李梅2300显示器2200云天2200李梅2200显示器2500云天2500李梅2500显示器1200云天1200李梅1200显示器1500云天1500李梅1500优盘1691阳光数码港1691王星1691优盘2225阳光数码港2225王星2225优盘1335阳光数码港1335王星1335优盘1424阳光数码港1424王星1424优盘2581阳光数码港2581王星2581优盘2581阳光数码港2581王星2581优盘1602阳光数码港1602王星1602优盘2759阳光数码港2759王星2759优盘3204阳光数码港3204王星3204优盘3026阳光数码港3026王星3026优盘3382阳光数码港3382王星3382优盘3471阳光数码港3471王星3471优盘4005阳光数码港4005王星4005优盘4094阳光数码港4094王星4094显示器4700阳光数码港4700王星4700显示器2500阳光数码港2500王星2500显示器2600阳光数码港2600王星2600显示器2800阳光数码港2800王星2800显示器2900阳光数码港2900王星2900显示器2700阳光数码港2700王星2700显示器2900阳光数码港2900王星2900显示器2500阳光数码港2500王星2500显示器2600阳光数码港2600王星2600显示器2400阳光数码港2400王星2400手机64800云天64800李梅64800手机70200云天70200李梅70200手机68400云天68400李梅68400手机66600云天66600李梅66600手机79200云天79200李梅79200手机82800云天82800李梅82800手机88200云天88200李梅88200手机86400云天86400李梅86400手机86400云天86400李梅86400手机84600云天84600李梅84600手机73800云天73800李梅73800手机81000云天81000李梅81000手机82800云天82800李梅82800手机81000云天81000李梅81000手机73800云天73800李梅73800手机73800云天73800李梅73800手机82800云天82800李梅82800手机88200云天88200李梅88200优盘4628赛格4628李一4628优盘4539赛格4539李一4539优盘4539赛格4539李一4539优盘4806赛格4806李一4806优盘4984赛格4984李一4984优盘4628赛格4628李一4628优盘4628赛格4628李一4628优盘4984赛格4984李一4984优盘4005赛格4005李一4005优盘4094赛格4094李一4094优盘3738赛格3738李一3738优盘4183赛格4183李一4183优盘4005赛格4005李一4005 汇总表求和项:销售额产品名称汇总电脑308940光驱22000手机1414800显示器62100优盘121752总计1929592程序：Sub 按钮4_单击() Sheets(产品名称链接).Select ActiveCell.FormulaR1C1 = =Sheet1!R1C1 Range(A1).Select Selection.AutoFill Destination:=Range(A1:A101), Type:=xlFillDefault Range(A1:A101).Select ActiveWindow.SmallScroll Down:=-93 Range(B1).Select ActiveCell.FormulaR1C1 = =Sheet1!R1C6 Range(B1).Select Selection.AutoFill Destination:=Range(B1:B101), Type:=xlFillDefault Range(B1:B101).Select ActiveWindow.SmallScroll Down:=-3 Range(C85).Select ActiveWindow.SmallScroll Down:=-93End SubSub 按钮5_单击() Sheets(销售网点链接).Select ActiveCell.FormulaR1C1 = =Sheet1!R1C3 Range(A1).Select Selection.AutoFill Destination:=Range(A1:A101), Type:=xlFillDefault Range(A1:A101).Select ActiveWindow.SmallScroll Down:=-81 Range(B1).Select ActiveCell.FormulaR1C1 = =Sheet1!R1C6 Range(B1).Select Selection.AutoFill Destination:=Range(B1:B101), Type:=xlFillDefault Range(B1:B101).Select ActiveWindow.SmallScroll Down:=-60 Range(D34).SelectEnd SubSub 按钮6_单击() Sheets(销售人员链接).Select ActiveCell.FormulaR1C1 = =Sheet1!R1C4 Range(A1).Select Selection.AutoFill Destination:=Range(A1:A101), Type:=xlFillDefault Range(A1:A101).Select ActiveWindow.SmallScroll Down:=-84 Range(B1).Select ActiveCell.FormulaR1C1 = =Sheet1!R1C6 Range(B1).Select Selection.AutoFill Destinatio