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

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

代码段1-金额的格式化

Public Sub CurrencyFormat()
'定义用于循环的整型变量
Dim i As Integer
'定义用于保存记录数的变量
Dim iCount As Integer'把工作表的记录数赋予iCountiCount = Sheets("chap5_3").[A1].CurrentRegion.Rows.Count'选择待设置“自动筛选”区域Range("A2:G2").Select'设置为“自动筛选”Selection.AutoFilterFor 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'把工作表的记录数赋予iCountiCount = 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 iCountRows(i).Select'判断记录是否隐藏，如果不则计算If Selection.EntireRow.Hidden = False ThenSngTotalSum = SngTotalSum + Cells(i, 7)End IfNext 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 IntegerFor 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 100000Cells(i + 2, 6) = "差"'如果销售额在100000到200000之间，则业绩为“一般”Case 100000 To 200000Cells(i + 2, 6) = "一般"'如果销售额在200000到300000之间，则业绩为“好”Case 200000 To 300000Cells(i + 2, 6) = "好"'如果销售额在300000到400000之间，则业绩为“较好”Case 300000 To 400000Cells(i + 2, 6) = "较好"'如果销售额在400000以上，则业绩为“很好”Case 400000 To 999999999Cells(i + 2, 6) = "很好"End SelectNext i
End Sub

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

Excel VBA高效办公应用-第十七章-用户权限管理系统
没想到,Excel还能实现权限管理系统.VBA真是要逆天了. Option ExplicitPrivate Sub Workbook_Open() '打开工作薄,不让用户看见工作表内容,所以将工作薄最 ...
Excel VBA高效办公应用-第十四章-Excel图书管理系统
本示例提供了以下功能: 1. 图书资料管理(订阅.搜索.删除) 2. 读者管理(添加.搜索.删除) 3. 借阅图书 4. 归还图书看上去功能挺齐全,可用Excel实现事务管理系统,在如今的互联网时代 ...
Excel VBA高效办公应用-第十六章-VBA高效文件操作（同时给多个工作簿加解密）
本示例演示了批量加解密文件操作. Option ExplicitPrivate Sub ComboBox1_Change()'增加列表框的选项 ListBox1.AddItem ComboBox1.T ...
Excel VBA高效办公应用-第十章-高效处理学员资料-Part2 （考勤记录表）
这个示例的意义在于,当数据量较大时,通过在用户窗体中提供筛选条件,帮助用户快速获取期望数据. 但应为使用多重筛选也能实现同样功能,所以,这里的做法有点鸡肋啊. Option ExplicitPriva ...
EXCEL VBA从入门到精通第一章：VBA入门
第一章:VBA入门第一节:什么是VBA 介绍VBA的定义,作用和优点. VBA(Visual Basic for Applications)是一种编程语言,是微软Office套件中的一个重要组成部分 ...
Excel VBA自动化办公：选择Excel文件合并订单数据生成订单汇总表、生成发货单并导出pdf文件、自动统计业绩生成业绩表
基本需求: 让用户可以选择多个文件,根据用户选中的工作簿进行合并订单数据,按照预先设计好的订单模板写入数据. 对于同一个交易序号下面有多个订单的,需要计算该交易序号下所有订单的总金额.总票数.相同交易 ...
python读取文件夹下的文件名写入excel（高效办公）
最近在负责举办一个活动,需要对提交的作品进行初审,顺便得生成一个excel包含同学们的学号和姓名,方便后期导入学时,提交的作品量在几百份,一个一个输入也是很耗时了,这不得学以致用一波,用python几 ...
第五章：iptables应用案例分析（代理服务器上设置iptables）
一.代理服务器架设的位置如上图实验环境如下: 1)局域网网段:192.168.1.0/24,该网段内有2台服务器和1台客户端 (1)WEB服务器:192.168.1.3/24 (2)FTP服务器:1 ...
VBA智慧办公——高效处理Excel表格（序）
七天助你学会VBA实际操作导航链接: 智慧办公抉择之--VBA与Python的选择_vba与python办公哪个好_ncq的小舔狗的博客-CSDN博客 VBA智慧办公2--探索_ncq的小舔狗的博客 ...

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

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

最新文章

热门文章