实验报告——管理信息.docVIP

实验概述： 实验目的及要求: 实验原理 实验准备工作 实验内容： 实验方案设计： 实验过程（实验步骤，记录，数据，分析）： 输入 处理 Sub 成本价升序排列() 成本价升序排列 Macro 宏由 微软用户 录制，时间: 2011-9-22 快捷键: Ctrl+a Range(D15).Select Range(A2:F22).Sort Key1:=Range(C4), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal End Sub Sub 零售价格小于500() 零售价格小于500 Macro 宏由 微软用户 录制，时间: 2011-9-22 Range(F3:F22).Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:==500, Operator:=xlAnd End Sub Sub 查询打印机() 查询打印机 Macro 宏由 微软用户 录制，时间: 2011-9-22 快捷键: Ctrl+c Range(B3:B16).Select Selection.AutoFilter Range(B3).Select ActiveCell.FormulaR1C1 = 商品名称 Range(B3:B22).Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:==*Printer*, Operator:=xlAnd End Sub Sub 查HP产品() 查HP产品 Macro 宏由 微软用户 录制，时间: 2011-9-22 快捷键: Ctrl+d Selection.AutoFilter Range(B3).Select ActiveCell.FormulaR1C1 = 商品名称 Range(B3:B22).Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:==*HP*, Operator:=xlAnd Range(C28).Select End Sub Sub 成本价降序排列() 成本价降序排列 Macro 宏由 微软用户 录制，时间: 2011-9-22 快捷键: Ctrl+f Range(C16).Select ActiveCell.FormulaR1C1 = 350 Range(D17).Select Range(A3:F22).Sort Key1:=Range(C4), Order1:=xlDescending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal Range(D31).Select End Sub Sub 加价率大于百分之10() 加价率大于百分之10 Macro 宏由 微软用户 录制，时间: 2011-9-22 快捷键: Ctrl+e Range(C3:C22).Select Selection.AutoFilter Range(D3:D22).Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=10%, Operator:=xlAnd Selection.AutoFilter Field:=1, Criteria1:=0.1, Operator:=xlAnd Range(D25).Select End Sub Sub 返回() 返回 Macro 宏由 微软用户 录制，时间: 2011-9-22 快捷键: Ctrl+g Selection.AutoFilter Field:=1 End Sub 输