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