標題: 排序鍵值無效。 [打印本頁]

---

作者: av8d    時間: 2012-8-14 10:55     標題: 排序鍵值無效。

ActiveSheet.Columns("A:F").Select
    Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlStroke, DataOption1:=xlSortNormal

---

作者: GBKEE    時間: 2012-8-14 11:14

回復 1# av8d
你這程式碼是在 Sheet物件模組  
但 ActiveSheet 不是 Sheet物件模組的工作表  
Range("C2")  沒指明是那個工作表 就會出錯
這問題已有說明過
改成   ActiveSheet.Range("C2")
如你這程式碼在 ThisWorkbook物件模組 , 一般模組中就不須改了.

---

作者: av8d    時間: 2012-8-14 11:18

回復 2# GBKEE


    我原本還擔心沒有附上檔案會讓人不曉得錯在哪~

沒想到G大瞬間解決了我的問題~真是萬分感謝! 我會多注意這問題~

---

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