实验名称:多维数据分析实验实验目的：掌握工作表之间的关系及从一个表中查询记录，了解EXCELL知识和VB编程技术。
实验内容：1、用EXCELL做一X产品销售表，记录不少于100条。
2、每条记录使用序号、产品名称、销售网点、销售人员、销售时间、数量、单价、销售额，除销售额外，每个属性取值不少于4个。
3、用EXCELL做一个使用界面，分别从产品名称、销售网点、销售人员三个视角查看销售额，将该截面做到单独的一X工作表上。
4、分别用三X工作表表示产品名称销售额、销售网点销售额、销售人员销售额三的视图。
5、按产品名称求销售额汇总，并用工作表表示。
实验工具：Excel的控件技术、编程技术问题与解决方法：(1)点击控件时，目标数据能够显示，但必须“手动”切换到相应的界面，而非点击后直接显示。
解决方法为：在Sub 销售额汇总表()后，Sheet6.Select（2）在编写程序时容易出现错误，解决方法是通过对宏进行录制实现控件功能。
实验结论：产品销售表序号产品名称产地销售网点销售时间销售人员数量单价销售额1 优盘XX 赛格2008-10-11 李一50 89 44502 优盘XX 赛格2008-10-12 李一100 89 89003 优盘XX 赛格2008-10-13 李一20 89 17804 优盘XX 赛格2008-10-13 李一50 89 44505 优盘XX 赛格2008-10-13 李一20 89 17806 优盘XX 赛格2008-10-14 李一59 89 52517 显示器XX 赛格2008-10-15 李一8 100 8008 显示器XX 赛格2008-10-16 李一9 100 9009 显示器XX 赛格2008-10-16 李一20 100 200010 显示器XX 赛格2008-10-16 李一10 100 100011 显示器XX 赛格2008-10-16 李一13 100 130012 显示器XX 赛格2008-10-17 李一 5 100 50013 显示器XX 赛格2008-10-17 李一16 100 160014 显示器XX 赛格2008-10-17 李一16 100 160015 显示器XX 赛格2008-10-17 李一18 100 180016 显示器XX 赛格2008-10-17 李一13 100 130017 显示器XX 赛格2008-10-17 李一12 100 120018 光驱XX 青龙2008-10-18 X红9 110 99019 电脑XX 青龙2008-10-18 X红15 5420 8130020 电脑XX 青龙2008-10-18 X红12 5420 6504021 电脑XX 青龙2008-10-19 X红16 5420 8672022 电脑XX 青龙2008-10-19 X红14 5420 7588023 光驱XX 青龙2008-10-19 X红17 110 187024 光驱XX 青龙2008-10-19 X红16 110 176025 光驱XX 青龙2008-10-19 X红13 110 143026 光驱XX 青龙2008-10-19 X红12 110 132027 光驱XX 青龙2008-10-20 X红15 110 165028 光驱XX 青龙2008-10-20 X红18 110 198029 光驱XX 青龙2008-10-20 X红14 110 154030 光驱XX 青龙2008-10-20 X红17 110 187031 光驱XX 青龙2008-10-20 X红15 110 165032 光驱XX 青龙2008-10-20 X红16 110 176033 光驱XX 青龙2008-10-20 X红12 110 132034 光驱XX 青龙2008-10-20 X红12 110 132035 光驱XX 青龙2008-10-20 X红14 110 154036 显示器XX 云天2008-10-21 李梅11 100 110037 显示器XX 云天2008-10-21 李梅21 100 210038 显示器XX 云天2008-10-22 李梅20 100 200039 显示器XX 云天2008-10-22 李梅21 100 210040 显示器XX 云天2008-10-22 李梅25 100 250041 显示器XX 云天2008-10-22 李梅23 100 230042 显示器XX 云天2008-10-22 李梅22 100 220043 显示器XX 云天2008-10-22 李梅25 100 250044 显示器XX 云天2008-10-23 李梅12 100 120045 显示器XX 云天2008-10-23 李梅15 100 150046 优盘XX 阳光数码港2008-10-23 王星19 89 169147 优盘XX 阳光数码港2008-10-23 王星25 89 222548 优盘XX 阳光数码港2008-10-24 王星15 89 133549 优盘XX 阳光数码港2008-10-24 王星16 89 142450 优盘XX 阳光数码港2008-10-24 王星29 89 258151 优盘XX 阳光数码港2008-10-24 王星29 89 258152 优盘XX 阳光数码港2008-10-24 王星18 89 160253 优盘XX 阳光数码港2008-10-24 王星31 89 275954 优盘XX 阳光数码港2008-10-25 王星36 89 320455 优盘XX 阳光数码港2008-10-25 王星34 89 302656 优盘XX 阳光数码港2008-10-25 王星38 89 338257 优盘XX 阳光数码港2008-10-25 王星39 89 347158 优盘XX 阳光数码港2008-10-25 王星45 89 400559 优盘XX 阳光数码港2008-10-25 王星46 89 409460 显示器XX 阳光数码港2008-10-25 王星47 100 470061 显示器XX 阳光数码港2008-10-26 王星25 100 250062 显示器XX 阳光数码港2008-10-26 王星26 100 260063 显示器XX 阳光数码港2008-10-26 王星28 100 280064 显示器XX 阳光数码港2008-10-26 王星29 100 290065 显示器XX 阳光数码港2008-10-26 王星27 100 270066 显示器XX 阳光数码港2008-10-27 王星29 100 290067 显示器XX 阳光数码港2008-10-27 王星25 100 250068 显示器XX 阳光数码港2008-10-27 王星26 100 260069 显示器XX 阳光数码港2008-10-27 王星24 100 240070 手机XX 云天2008-10-28 李梅36 1800 6480071 手机XX 云天2008-10-28 李梅39 1800 7020072 手机XX 云天2008-10-28 李梅38 1800 6840073 手机XX 云天2008-10-28 李梅37 1800 6660074 手机XX 云天2008-10-28 李梅44 1800 7920075 手机XX 云天2008-10-28 李梅46 1800 8280076 手机XX 云天2008-10-29 李梅49 1800 8820077 手机XX 云天2008-10-29 李梅48 1800 8640078 手机XX 云天2008-10-29 李梅48 1800 8640079 手机XX 云天2008-10-29 李梅47 1800 8460080 手机XX 云天2008-10-29 李梅41 1800 7380081 手机XX 云天2008-10-29 李梅45 1800 8100082 手机XX 云天2008-10-29 李梅46 1800 8280083 手机XX 云天2008-10-29 李梅45 1800 8100084 手机XX 云天2008-10-29 李梅41 1800 7380085 手机XX 云天2008-10-29 李梅41 1800 7380086 手机XX 云天2008-10-30 李梅46 1800 8280087 手机XX 云天2008-10-30 李梅49 1800 8820088 优盘XX 赛格2008-10-30 李一52 89 462889 优盘XX 赛格2008-10-30 李一51 89 453990 优盘XX 赛格2008-10-30 李一51 89 453991 优盘XX 赛格2008-10-30 李一54 89 480692 优盘XX 赛格2008-10-30 李一56 89 498493 优盘XX 赛格2008-10-30 李一52 89 462894 优盘XX 赛格2008-10-30 李一52 89 462895 优盘XX 赛格2008-10-31 李一56 89 498496 优盘XX 赛格2008-10-31 李一45 89 400597 优盘XX 赛格2008-10-31 李一46 89 409498 优盘XX 赛格2008-10-31 李一42 89 373899 优盘XX 赛格2008-10-31 李一47 89 4183 100 优盘XX 赛格2008-10-31 李一45 89 4005使用界面产品名称,销售网点,销售人员与销售额产品名称销售额销售网点销售额销售人员销售额优盘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 青龙990X红990电脑81300 青龙81300X红81300电脑65040 青龙65040X红65040电脑86720 青龙86720X红86720电脑75880 青龙75880X红75880光驱1870 青龙1870X红1870光驱1760 青龙1760X红1760光驱1430 青龙1430X红1430光驱1320 青龙1320X红1320光驱1650 青龙1650X红1650光驱1980 青龙1980X红1980光驱1540 青龙1540X红1540光驱1870 青龙1870X红1870光驱1650 青龙1650X红1650光驱1760 青龙1760X红1760光驱1320 青龙1320X红1320光驱1320 青龙1320X红1320光驱1540 青龙1540X红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汇总表汇总2000004000006000008000001000000120000014000001600000电脑光驱手机显示器优盘程序：Sub 按钮4_单击()Sheets("产品名称").SelectActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[1]"Range("A1").SelectSelection.AutoFill Destination:=Range("A1:A101"), Type:=xlFillDefault Range("A1:A101").SelectActiveWindow.SmallScroll Down:=-93Range("B1").SelectActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[6]"Range("B1").SelectSelection.AutoFill Destination:=Range("B1:B101"), Type:=xlFillDefault Range("B1:B101").SelectActiveWindow.SmallScroll Down:=-3Range("C85").SelectActiveWindow.SmallScroll Down:=-93End SubSub 按钮5_单击()Sheets("销售网点").SelectActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[3]"Range("A1").SelectSelection.AutoFill Destination:=Range("A1:A101"), Type:=xlFillDefault Range("A1:A101").SelectActiveWindow.SmallScroll Down:=-81Range("B1").SelectActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[6]"Range("B1").SelectSelection.AutoFill Destination:=Range("B1:B101"), Type:=xlFillDefault Range("B1:B101").SelectActiveWindow.SmallScroll Down:=-60Range("D34").SelectEnd SubSub 按钮6_单击()Sheets("销售人员").SelectActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[4]"Range("A1").SelectSelection.AutoFill Destination:=Range("A1:A101"), Type:=xlFillDefault Range("A1:A101").SelectActiveWindow.SmallScroll Down:=-84Range("B1").SelectActiveCell.FormulaR1C1 = "=Sheet1!R[1]C[6]"Range("B1").SelectSelection.AutoFill Destination:=Range("B1:B101"), Type:=xlFillDefault Range("B1:B101").SelectRange("D95").SelectActiveWindow.SmallScroll Down:=-90End SubSub 按钮14_单击()Sheets("sheet1").SelectActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _"sheet1!R2C1:R102C8").CreatePivotTable TableDestination:="", TableName:= _"销售汇总表", DefaultVersion:=xlPivotTableVersion10ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)ActiveSheet.Cells(3, 1).SelectActiveSheet.PivotTables("销售汇总表").AddFields RowFields:="产品名称", ColumnFields _:="销售网点"ActiveSheet.PivotTables("销售汇总表").PivotFields("销售额").Orientation = xlDataFieldActiveWorkbook.ShowPivotTableFieldList = TrueActiveWorkbook.ShowPivotTableFieldList = FalseApplication.mandBars("PivotTable").Visible = FalseEnd Sub。