皇冠app怎么下载:VBA实例:高考分数投档指数剖析(模块2.历程部门)

原创

VBA实例:高考分数投档指数剖析(模块2.历程部门)

鬼谷子2015 0人谈论 17人阅读 2020-09-02 23:21:41

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 excel

0

,

联博统计

www.326681.com采用以太坊区块链高度哈希值作为统计数据,联博以太坊统计数据开源、公平、无任何作弊可能性。联博统计免费提供API接口,支持多语言接入。

,

珍藏

上一篇:Q语言 我的下令库《通用》窗口操...
鬼谷子2015