VBA实例:高考分数投档指数分析(模块2.过程部分)
2020-09-02 23:21
1676 查看
Sub 记录排序() Rows("5:5").Select Rows("5:230").Select ActiveWorkbook.Worksheets("备选院校").Sort.SortFields.Clear ActiveWorkbook.Worksheets("备选院校").Sort.SortFields.Add Key:=range("I5:I500"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("备选院校").Sort.SortFields.Add Key:=range("C5:C500"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("备选院校").Sort .SetRange range("A5:AH500") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Rows("1:1").Select End Sub
Sub 投档排序() Rows("5:5").Select Rows("5:230").Select ActiveWorkbook.Worksheets("备选院校").Sort.SortFields.Clear ActiveWorkbook.Worksheets("备选院校").Sort.SortFields.Add Key:=range("T5:T500"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("备选院校").Sort .SetRange range("A5:AH500") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Rows("1:1").Select End Sub
相关文章推荐
- VBA实例:高考分数投档指数分析(模块3.同步代码部分)
- VBA实例:高考分数投档指数分析(数据准备:计算线差;计算省排名)
- VBA实例:高考分数投档指数分析(备选院校页)
- VBA实例:高考分数投档指数分析(表格模板)
- [原创]桓泽学音频编解码(11):AC3 exponent(指数部分)模块解码算法分析
- Python3.5内置模块之random模块用法实例分析
- Linux启动过程简略分析-start_kernel部分代码阅读
- mybatis源码分析(1)——SqlSessionFactory实例的产生过程
- Spark Shuffle模块——Suffle Read过程分析
- 动态规划案例-矩阵连乘(含表格填写过程、问题理解、实例分析)
- OpenStack建立实例完整过程源码详细分析(3)
- OpenStack建立实例完整过程源码详细分析(5)
- OpenStack建立实例完整过程源码详细分析(7)
- 分析一个通用的rtsp server实现过程串联模块
- 分析一个通用的rtsp server实现过程发送模块
- Hive学习之路 (二十)Hive 执行过程实例分析
- Glusterfs之rpc模块源码分析(下)之RDMA over TCP的协议栈工作过程浅析
- Jquery Ajax学习实例7 Ajax所有过程事件分析示例
- OpenStack建立实例完整过程源码详细分析(14)----依据AMQP通信架构实现消息接收机制解析之一
- SSL握手过程实例分析