標題: 儲存格排序問題 [打印本頁]

---

作者: cclo0728    時間: 2019-8-8 13:47     標題: 儲存格排序問題

本帖最後由 cclo0728 於 2019-8-8 13:50 編輯

目前我用巨集錄製時,在excel都可以正常執行
很妙的我在公司的WPS卻不行
想請問用VBA寫的話,程式是如何設定
    Columns("C:I").Select
    ActiveWorkbook.Worksheets("EA&EB").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("EA&EB").Sort.SortFields.Add Key:=Range("E2:E100") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("EA&EB").Sort
        .SetRange Range("C1:I100")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
[attach]31132[/attach]
排序為訂單號碼欄位[attach]31131[/attach]
在麻煩各位指導一下,謝謝

---

作者: cclo0728    時間: 2019-8-12 11:24

回復 1# cclo0728
已找到排序指令,謝謝
    Range("C:I").CurrentRegion.Select '排序E排
    Selection.Sort Key1:=Range("E:E"), ORDER1:=1, Header:=x1yes

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)