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