財(cái)務(wù)決策支持系統(tǒng)實(shí)驗(yàn)(更新版)
【正文】 器62100優(yōu)盤121752總計(jì)1929592程序：Sub 按鈕4_單擊() Sheets(產(chǎn)品名稱鏈接).Select = =Sheet1!R[1]C[1] Range(A1).Select Destination:=Range(A1:A101), Type:=xlFillDefault Range(A1:A101).Select Down:=93 Range(B1).Select = =Sheet1!R[1]C[6] Range(B1).Select Destination:=Range(B1:B101), Type:=xlFillDefault Range(B1:B101).Select Down:=3 Range(C85).Select Down:=93End SubSub 按鈕5_單擊() Sheets(銷售網(wǎng)點(diǎn)鏈接).Select = =Sheet1!R[1]C[3] Range(A1).Select Destination:=Range(A1:A101), Type:=xlFillDefault Range(A1:A101).Select Down:=81 Range(B1).Select = =Sheet1!R[1]C[6] Range(B1).Select Destination:=Range(B1:B101), Type:=xlFillDefault Range(B1:B101).Select Down:=60 Range(D34).SelectEnd SubSub 按鈕6_單擊() Sheets(銷售人員鏈接).Select = =Sheet1!R[1]C[4] Range(A1).Select Destination:=Range(A1:A101), Type:=xlFillDefault Range(A1:A101).Select Down:=84 Range(B1).Select = =Sheet1!R[1]C[6] Range(B1).Select Destination:=Range(B1:B101), Type:=xlFillDefault Range(B1:B101).Select Range(D95).Select Down:=90End SubSub 按鈕14_單擊() Sheets(sheet1).Select (SourceType:=xlDatabase, SourceData:= _ sheet1!R2C1:R102C8).CreatePivotTable TableDestination:=, TableName:= _ 銷售匯總表, DefaultVersion:=xlPivotTableVersion10 TableDestination:=(3, 1) (3, 1).Select (銷售匯總表).AddFields RowFields:=產(chǎn)品名稱, ColumnFields _ :=銷售網(wǎng)點(diǎn) (銷售匯總表).PivotFields(銷售額).Orientation = xlDataField = True = False (PivotTable).Visible = FalseEnd Sub10 / 10。實(shí)驗(yàn)名稱:多維數(shù)據(jù)分析實(shí)驗(yàn)實(shí)驗(yàn)?zāi)康模赫莆展ぷ鞅碇g的關(guān)系及從一個(gè)表中查詢記錄，了解EXCELL知識(shí) 和VB編程技術(shù)。解決方法為：在Sub 銷售額匯總表()后，（2）在編寫程序時(shí)容易出現(xiàn)錯(cuò)誤，解決方法是通過對(duì)宏進(jìn)行錄制實(shí)現(xiàn)控件功能。 用EXCELL做一個(gè)使用界面，分別從產(chǎn)品名稱、銷售網(wǎng)點(diǎn)、銷售人員三個(gè)視角查看銷售額，將該截面做到單獨(dú)的一張工作表上。 分別用三張工作表表示產(chǎn)品名稱銷售額、銷售網(wǎng)點(diǎn)銷售額、銷售人員銷售額三的視圖。實(shí)驗(yàn)工具：Excel的控件技術(shù)、編程技術(shù) 問題與解決方法：(1)點(diǎn)擊控件時(shí)，目標(biāo)數(shù)據(jù)能夠顯示，但必須“手動(dòng)”切換到相應(yīng)的界面，而非點(diǎn)擊后直接顯示。實(shí)驗(yàn)內(nèi)容：用EXCELL做一張產(chǎn)品銷售表，記錄不少于100條
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1