皇冠app怎么下载:VBA实例:高考分数投档指数剖析(模块2.历程部门)
时间:2个月前 阅读:74 评论:1
原创
VBA实例:高考分数投档指数剖析(模块2.历程部门)
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
©著作权归作者所有:来自51CTO博客作者鬼谷子2015的原创作品,如需转载,请注明出处,否则将追究法律责任
VBA excel
上一篇:Q语言 我的下令库《通用》窗口操...