財務(wù)決策支持系統(tǒng)實驗-資料下載頁
2025-04-17 12:11本頁面
【正文】 李一4806優(yōu)盤4984賽格4984李一4984優(yōu)盤4628賽格4628李一4628優(yōu)盤4628賽格4628李一4628優(yōu)盤4984賽格4984李一4984優(yōu)盤4005賽格4005李一4005優(yōu)盤4094賽格4094李一4094優(yōu)盤3738賽格3738李一3738優(yōu)盤4183賽格4183李一4183優(yōu)盤4005賽格4005李一4005 匯總表求和項:銷售額 產(chǎn)品名稱匯總電腦308940光驅(qū)22000手機(jī)1414800顯示器62100優(yōu)盤121752總計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)點鏈接).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)點 (銷售匯總表).PivotFields(銷售額).Orientation = xlDataField = True = False (PivotTable).Visible = FalseEnd Sub10 / 10
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1