Excel 排序的問題

Function Fn5開獎號大至小( )
    'Model = "今彩539落球"
    ActiveWorkbook.Worksheets(Model).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(Model).Sort.SortFields.Add Key:=Worksheets(Model).Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortTextAsNumbers
        'Order:=xlDescending,
        'Order:=xlAscending,
    With ActiveWorkbook.Worksheets(Model).Sort
        '以下這行,要用絕對路徑,就不容易出錯
        .SetRange Worksheets(Model).Range("a1").CurrentRegion
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Function

留言

這個網誌中的熱門文章

超任 三國志3代,登入武將金手指

歐姆龍 HEM-7600T 評價,購買心得分享(打臉文)

年青人眼鏡評價(負評),辛酸血淚史分享文