Excel VBA高效办公应用-第五章-销售数据的处理与分析-Part2（多条件筛选及判定）

1. 对销售明细清单格式化

代码段1-金额的格式化

Public Sub CurrencyFormat()
'定义用于循环的整型变量
Dim i As Integer
'定义用于保存记录数的变量
Dim iCount As Integer
    '把工作表的记录数赋予iCount
    iCount = Sheets("chap5_3").[A1].CurrentRegion.Rows.Count
    '选择待设置“自动筛选”区域
    Range("A2:G2").Select
    '设置为“自动筛选”
    Selection.AutoFilter
    For i = 3 To iCount
        '计算“合计金额”的值
        Cells(i, 7) = Cells(i, 2) * Cells(i, 3)
        '选择“单价”与“合计金额”列的单元格
        Range(Cells(i, 2), Cells(i, 7)).Select
        '设置单元格为“货币”格式
        Selection.NumberFormatLocal = "￥#,##0.00;￥-#,##0.00"
    Next i
End Sub

2. 对销售明细清单自动筛选及统计

代码段2-多条件自动筛选

Public Sub MultiCriteria()
'定义用于循环的整型变量
Dim i As Integer
'定义用于保存记录数的整型变量
Dim iCount As Integer
'定义一个存放“总金额合计”值的变量
Dim SngTotalSum As Single
    '为SngTotalSum变量赋初值
    SngTotalSum = 0
    '把工作表的记录数赋予iCount
    iCount = Sheets("chap5_4").[A1].CurrentRegion.Rows.Count
    '选择待设置“自动筛选”区域
    Range("A2:G2").Select
    '在第5列以“北京”为条件进行筛选
    Selection.AutoFilter Field:=5, Criteria1:="北京"
    '在第1列以“电风扇”为条件进行筛选
    Selection.AutoFilter Field:=1, Criteria1:="电风扇"
    For i = 3 To iCount
        Rows(i).Select
        '判断记录是否隐藏，如果不则计算
        If Selection.EntireRow.Hidden = False Then
            SngTotalSum = SngTotalSum + Cells(i, 7)
        End If
    Next i
    '把计算“总金额合计”的结果赋予H2单元格中
    Cells(2, 8) = SngTotalSum
    '选择H2单元格
    Cells(2, 8).Select
    '设置H2单元格“货币”格式
    Selection.NumberFormatLocal = "￥#,##0.00;￥-#,##0.00"
End Sub

3. 计算销售奖金及业绩评价

代码段3-多重条件判定

Public Sub performanceEvaluation()
'定义用于循环的整型变量
Dim i As Integer
    For i = 1 To 8
        '计算“奖金提取额”
        Cells(i + 2, 5) = Cells(i + 2, 2) * Cells(i + 2, 4)
        '进行各部门业绩评价
        Select Case Cells(i + 2, 2)
            '如果销售额在0到100000之间，则业绩为“差”
            Case 0 To 100000
                Cells(i + 2, 6) = "差"
            '如果销售额在100000到200000之间，则业绩为“一般”
            Case 100000 To 200000
                Cells(i + 2, 6) = "一般"
            '如果销售额在200000到300000之间，则业绩为“好”
            Case 200000 To 300000
                Cells(i + 2, 6) = "好"
            '如果销售额在300000到400000之间，则业绩为“较好”
            Case 300000 To 400000
                Cells(i + 2, 6) = "较好"
            '如果销售额在400000以上，则业绩为“很好”
            Case 400000 To 999999999
                Cells(i + 2, 6) = "很好"
        End Select
    Next i
End Sub