1、實(shí)驗(yàn)名稱(chēng) :多維數(shù)據(jù)分析實(shí)驗(yàn)實(shí)驗(yàn)?zāi)康模赫莆展ぷ鞅碇g的關(guān)系及從一個(gè)表中查詢(xún)記錄，了解 EXCELL 知識(shí)和 VB 編程技術(shù)。實(shí)驗(yàn)內(nèi)容： 1、用 EXCELL 做一張產(chǎn)品銷(xiāo)售表，記錄不少于100 條。2、每條記錄使用序號(hào)、產(chǎn)品名稱(chēng)、銷(xiāo)售網(wǎng)點(diǎn)、銷(xiāo)售人員、銷(xiāo)售時(shí)間、數(shù)量、單價(jià)、銷(xiāo)售額，除銷(xiāo)售額外，每個(gè)屬性取值不少于4 個(gè)。3、用 EXCELL 做一個(gè)使用界面，分別從產(chǎn)品名稱(chēng)、銷(xiāo)售網(wǎng)點(diǎn)、銷(xiāo)售人員三個(gè)視角查看銷(xiāo)售額，將該截面做到單獨(dú)的一張工作表上。4、分別用三張工作表表示產(chǎn)品名稱(chēng)銷(xiāo)售額、銷(xiāo)售網(wǎng)點(diǎn)銷(xiāo)售額、銷(xiāo)售人員銷(xiāo)售額三的視圖。5、按產(chǎn)品名稱(chēng)求銷(xiāo)售額匯總，并用工作表表示。實(shí)驗(yàn)工具： Excel 的控件技術(shù)

2、、編程技術(shù)問(wèn)題與解決方法： (1)點(diǎn)擊控件時(shí)，目標(biāo)數(shù)據(jù)能夠顯示，但必須“手動(dòng)”切換到相應(yīng)的界面，而非點(diǎn)擊后直接顯示。解決方法為：在Sub 銷(xiāo)售額匯總表 ()后，Sheet6.Select（ 2）在編寫(xiě)程序時(shí)容易出現(xiàn)錯(cuò)誤，解決方法是通過(guò)對(duì)宏進(jìn)行錄制實(shí)現(xiàn)控件功能。實(shí)驗(yàn)結(jié)論：產(chǎn)品銷(xiāo)售表序產(chǎn)品名產(chǎn)地銷(xiāo)售網(wǎng)點(diǎn)銷(xiāo)售時(shí)間銷(xiāo)售人員數(shù)量單價(jià)銷(xiāo)售額號(hào)稱(chēng)1優(yōu)盤(pán)山西賽格2008-10-11 李一508944502優(yōu)盤(pán)山西賽格2008-10-12 李一1008989003優(yōu)盤(pán)山西賽格2008-10-13 李一208917804優(yōu)盤(pán)山西賽格2008-10-13 李一508944505優(yōu)盤(pán)山西賽格2008-10-13 李一

3、208917806優(yōu)盤(pán)山西賽格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李一1810

4、0180016顯示器河北賽格2008-10-17 李示器河北賽格2008-10-17 李一12100120018光驅(qū)陜西青龍2008-10-18 張紅911099019電腦陜西青龍2008-10-18 張紅1554208130020電腦陜西青龍2008-10-18 張紅1254206504021電腦陜西青龍2008-10-19 張紅1654208672022電腦陜西青龍2008-10-19 張紅1454207588023光驅(qū)陜西青龍2008-10-19 張驅(qū)陜西青龍2008-10-19 張紅16110176025光驅(qū)陜西青龍2008-10-1

5、9 張驅(qū)陜西青龍2008-10-19 張紅12110132027光驅(qū)陜西青龍2008-10-20 張驅(qū)陜西青龍2008-10-20 張驅(qū)陜西青龍2008-10-20 張驅(qū)陜西青龍2008-10-20 張驅(qū)陜西青龍2008-10-20 張驅(qū)陜西青龍2008-10-20 張紅16110176033光驅(qū)陜西青龍2008-10-20 張紅12110132034光驅(qū)陜西青龍2008-10-20 張紅12110132035光驅(qū)陜西青龍2008-10-2

6、0 張示器河北云天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顯示器河北云

7、天2008-10-23 李盤(pán)山西陽(yáng)光數(shù)碼港2008-10-23 王星1989169147優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-23 王星2589222548優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-24 王星1589133549優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-24 王星1689142450優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-24 王星2989258151優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-24 王星2989258152優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-24 王星1889160253優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-24 王星3189275954優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-25

8、 王星3689320455優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-25 王星3489302656優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-25 王星3889338257優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-25 王星3989347158優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-25 王星4589400559優(yōu)盤(pán)山西陽(yáng)光數(shù)碼港2008-10-25 王星4689409460顯示器河北陽(yáng)光數(shù)碼港2008-10-25 王星47100470061顯示器河北陽(yáng)光數(shù)碼港2008-10-26 王星25100250062顯示器河北陽(yáng)光數(shù)碼港2008-10-26 王星26100260063顯示器河北陽(yáng)光數(shù)碼港2008-10-26 王星28

9、100280064顯示器河北陽(yáng)光數(shù)碼港2008-10-26 王星29100290065顯示器河北陽(yáng)光數(shù)碼港2008-10-26 王星27100270066顯示器河北陽(yáng)光數(shù)碼港2008-10-27 王星29100290067顯示器河北陽(yáng)光數(shù)碼港2008-10-27 王星25100250068顯示器河北陽(yáng)光數(shù)碼港2008-10-27 王星26100260069顯示器河北陽(yáng)光數(shù)碼港2008-10-27 王星24100240070手機(jī)山東云天2008-10-28 李梅3618006480071手機(jī)山東云天2008-10-28 李梅3918007020072手機(jī)山東云天2008-10-28 李梅3818

10、006840073手機(jī)山東云天2008-10-28 李梅3718006660074手機(jī)山東云天2008-10-28 李梅4418007920075手機(jī)山東云天2008-10-28 李梅4618008280076手機(jī)山東云天2008-10-29 李梅4918008820077手機(jī)山東云天2008-10-29 李梅4818008640078手機(jī)山東云天2008-10-29 李梅4818008640079手機(jī)山東云天2008-10-29 李梅4718008460080手機(jī)山東云天2008-10-29 李梅4118007380081手機(jī)山東云天2008-10-29 李梅4518008100082手機(jī)山

11、東云天2008-10-29 李梅4618008280083手機(jī)山東云天2008-10-29 李梅4518008100084手機(jī)山東云天2008-10-29 李梅4118007380085手機(jī)山東云天2008-10-29 李梅4118007380086手機(jī)山東云天2008-10-30 李梅4618008280087手機(jī)山東云天2008-10-30 李梅4918008820088優(yōu)盤(pán)山西賽格2008-10-30 李一5289462889優(yōu)盤(pán)山西賽格2008-10-30 李一5189453990優(yōu)盤(pán)山西賽格2008-10-30 李一5189453991優(yōu)盤(pán)山西賽格2008-10-30 李一54894

12、80692優(yōu)盤(pán)山西賽格2008-10-30 李一5689498493優(yōu)盤(pán)山西賽格2008-10-30 李一5289462894優(yōu)盤(pán)山西賽格2008-10-30 李一5289462895優(yōu)盤(pán)山西賽格2008-10-31 李一5689498496優(yōu)盤(pán)山西賽格2008-10-31 李一4589400597優(yōu)盤(pán)山西賽格2008-10-31 李一4689409498優(yōu)盤(pán)山西賽格2008-10-31 李一4289373899優(yōu)盤(pán)山西賽格2008-10-31 李一47894183100優(yōu)盤(pán)山西賽格2008-10-31 李一45894005使用界面產(chǎn)品名稱(chēng) ,銷(xiāo)售網(wǎng)點(diǎn) ,銷(xiāo)售人員 與銷(xiāo)售額產(chǎn)品名稱(chēng)銷(xiāo)售額銷(xiāo)售網(wǎng)

13、點(diǎn)銷(xiāo)售額銷(xiāo) 售 人銷(xiāo)售額員優(yōu)盤(pán)4450賽格4450李一4450優(yōu)盤(pán)8900賽格8900李一8900優(yōu)盤(pán)1780賽格1780李一1780優(yōu)盤(pán)4450賽格4450李一4450優(yōu)盤(pán)1780賽格1780李一1780優(yōu)盤(pán)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李一13

14、00顯示器1200賽格1200李一1200光驅(qū)990青龍990張紅990電腦81300青龍81300張紅81300電腦65040青龍65040張紅65040電腦86720青龍86720張紅86720電腦75880青龍75880張紅75880光驅(qū)1870青龍1870張紅1870光驅(qū)1760青龍1760張紅1760光驅(qū)1430青龍1430張紅1430光驅(qū)1320青龍1320張紅1320光驅(qū)1650青龍1650張紅1650光驅(qū)1980青龍1980張紅1980光驅(qū)1540青龍1540張紅1540光驅(qū)1870青龍1870張紅1870光驅(qū)1650青龍1650張紅1650光驅(qū)1760青龍1760張紅1760

15、光驅(qū)1320青龍1320張紅1320光驅(qū)1320青龍1320張紅1320光驅(qū)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優(yōu)盤(pán)1691陽(yáng)光數(shù)碼港1691王星1691優(yōu)盤(pán)2225陽(yáng)光數(shù)碼港2225王星2225優(yōu)盤(pán)1335陽(yáng)光數(shù)碼港133

16、5王星1335優(yōu)盤(pán)1424陽(yáng)光數(shù)碼港1424王星1424優(yōu)盤(pán)2581陽(yáng)光數(shù)碼港2581王星2581優(yōu)盤(pán)2581陽(yáng)光數(shù)碼港2581王星2581優(yōu)盤(pán)1602陽(yáng)光數(shù)碼港1602王星1602優(yōu)盤(pán)2759陽(yáng)光數(shù)碼港2759王星2759優(yōu)盤(pán)3204陽(yáng)光數(shù)碼港3204王星3204優(yōu)盤(pán)3026陽(yáng)光數(shù)碼港3026王星3026優(yōu)盤(pán)3382陽(yáng)光數(shù)碼港3382王星3382優(yōu)盤(pán)3471陽(yáng)光數(shù)碼港3471王星3471優(yōu)盤(pán)4005陽(yáng)光數(shù)碼港4005王星4005優(yōu)盤(pán)4094陽(yáng)光數(shù)碼港4094王星4094顯示器4700陽(yáng)光數(shù)碼港4700王星4700顯示器2500陽(yáng)光數(shù)碼港2500王星2500顯示器2600陽(yáng)光數(shù)碼港2600王星

17、2600顯示器2800陽(yáng)光數(shù)碼港2800王星2800顯示器2900陽(yáng)光數(shù)碼港2900王星2900顯示器2700陽(yáng)光數(shù)碼港2700王星2700顯示器2900陽(yáng)光數(shù)碼港2900王星2900顯示器2500陽(yáng)光數(shù)碼港2500王星2500顯示器2600陽(yáng)光數(shù)碼港2600王星2600顯示器2400陽(yáng)光數(shù)碼港2400王星2400手機(jī)64800云天64800李梅64800手機(jī)70200云天70200李梅70200手機(jī)68400云天68400李梅68400手機(jī)66600云天66600李梅66600手機(jī)79200云天79200李梅79200手機(jī)82800云天82800李梅82800手機(jī)88200云天88200李梅

18、88200手機(jī)86400云天86400李梅86400手機(jī)86400云天86400李梅86400手機(jī)84600云天84600李梅84600手機(jī)73800云天73800李梅73800手機(jī)81000云天81000李梅81000手機(jī)82800云天82800李梅82800手機(jī)81000云天81000李梅81000手機(jī)73800云天73800李梅73800手機(jī)73800云天73800李梅73800手機(jī)82800云天82800李梅82800手機(jī)88200云天88200李梅88200優(yōu)盤(pán)4628賽格4628李一4628優(yōu)盤(pán)4539賽格4539李一4539優(yōu)盤(pán)4539賽格4539李一4539優(yōu)盤(pán)4806賽格48

19、06李一4806優(yōu)盤(pán)4984賽格4984李一4984優(yōu)盤(pán)4628賽格4628李一4628優(yōu)盤(pán)4628賽格4628李一4628優(yōu)盤(pán)4984賽格4984李一4984優(yōu)盤(pán)4005賽格4005李一4005優(yōu)盤(pán)4094賽格4094李一4094優(yōu)盤(pán)3738賽格3738李一3738優(yōu)盤(pán)4183賽格4183李一4183優(yōu)盤(pán)4005賽格4005李一4005匯總表求和項(xiàng) : 銷(xiāo)售額產(chǎn)品名稱(chēng)匯總電腦308940光驅(qū)22000手機(jī)1414800顯示器62100優(yōu)盤(pán)121752總計(jì)1929592匯總求和項(xiàng) : 銷(xiāo)售額1600000140000012000001000000800000匯總6000004000002000

20、000電腦光驅(qū)手機(jī)顯示器優(yōu)盤(pán)產(chǎn)品名稱(chēng)程序：Sub 按鈕 4_單擊() Sheets("產(chǎn)品名稱(chēng)鏈接 ").Select ActiveCell.FormulaR1C1 = "=Sheet1!R1C1" Range("A1").SelectSelection.AutoFill Destination:=Range("A1:A101"), Type:=xlFillDefaultRange("A1:A101").SelectActiveWindow.SmallScroll Down:=-93Range(

21、"B1").SelectActiveCell.FormulaR1C1 = "=Sheet1!R1C6"Range("B1").SelectSelection.AutoFill Destination:=Range("B1:B101"), Type:=xlFillDefaultRange("B1:B101").SelectActiveWindow.SmallScroll Down:=-3Range("C85").SelectActiveWindow.SmallScroll Do

22、wn:=-93End SubSub 按鈕 5_單擊 ()Sheets("銷(xiāo)售網(wǎng)點(diǎn)鏈接 ").SelectActiveCell.FormulaR1C1 = "=Sheet1!R1C3"Range("A1").SelectSelection.AutoFill Destination:=Range("A1:A101"), Type:=xlFillDefaultRange("A1:A101").SelectActiveWindow.SmallScroll Down:=-81Range("B1&

23、quot;).SelectActiveCell.FormulaR1C1 = "=Sheet1!R1C6"Range("B1").SelectSelection.AutoFill Destination:=Range("B1:B101"), Type:=xlFillDefaultRange("B1:B101").SelectActiveWindow.SmallScroll Down:=-60Range("D34").SelectEnd SubSub 按鈕 6_單擊 ()Sheets("銷(xiāo)

24、售人員鏈接 ").SelectActiveCell.FormulaR1C1 = "=Sheet1!R1C4"Range("A1").SelectSelection.AutoFill Destination:=Range("A1:A101"), Type:=xlFillDefaultRange("A1:A101").SelectActiveWindow.SmallScroll Down:=-84Range("B1").SelectActiveCell.FormulaR1C1 = "=Sheet1!R1C6"Range("B1").SelectSelection.AutoFill Destination:=Range("B1:B101&