vba自動排序

Siobhan.B

你們好,

因為我試圖想要用自動排序把尺寸自動排好,
從網路上找到有人有做類似的表格,
但我一動表格, 把它改成我所需要的格式後, 就不動了,
我也不知道哪裡出了錯,  是否能請高手幫幫忙,
幫我改一下?  感激不盡!


------------------------------------------------------------------------------------
再容我補充一下, 我是想要有excel的那種遞增的效果, 長寬高會一起動, 而不是單項遞增, 而件數也要跟著其機型一起動, 麻煩大家了!

hugh0620

回復 1# Siobhan.B


      還是不了解~ 樓主你要的需求是什麼耶???
      是只要自動排序就好?還是有其他特別需求~
      若是只有自動排序的話~ 只要將資料範圍設定好 再依排序條件設好~ 就沒問題~
      下列是使用錄製巨集的方式

Sub Macro2()
    Range("A2").End(xlToRight).End(xlDown).Select      '資料範圍
   '=========自動排序(依長/寬為條件遞增)=============
    Selection.Sort Key1:=Range("b3"), Order1:=xlAscending, Key2:=Range("c3") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:= _
        xlSortNormal, DataOption2:=xlSortNormal
   '=========自動排序(依長/寬為條件遞增)=============

End Sub

Siobhan.B

回復 2# hugh0620


感謝您的回覆
不好意思, 我表達的不好

我想要的自動排序是~
假如我今天一次貼入 50種機型, 不同尺寸, 不同件數
是不是可以做到自動按 長寬高 來遞增排序好~

我就不用再去手動在excel按排序了?

hugh0620

回復 3# Siobhan.B

     下述程式碼為 依長寬高的順序條件~ 遞增  (使用錄製巨集完成後,調整的結果)

    Sub Macro1()
    Range("A2").End(xlToRight).End(xlDown).Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("C3") _
        , Order2:=xlAscending, Key3:=Range("D3"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal, DataOption3:=xlSortNormal

End Sub

Siobhan.B

回復 4# hugh0620


  
可以了。  
非常感謝你花時間看我的問題和解決我的問題,  再次謝謝!

hugh0620

回復 5# Siobhan.B

    給您一個小小建議唷~ 只要是一般在excel表中可以操作的方法~ 都可以去利用錄製巨集的方式~ 來完成
   錄製巨集
   1. 點選[錄製巨集]
   2. 將你的需求開始從頭操作一次
   3. 停止錄製
   4. 去VBE看你的錄製下來的程式瑪,按[F8]一行一行執行

   利用上述的步驟~ 可以了解你所操作的過程

chin15

在office領域中還是會有許多操作無法錄製巨集的
一個簡單的例子
你可嘗試在工作表上搜尋包含某個字符的儲存格
搜尋後把這些找到的儲存格的字型全部改為紅色
你會發現操作很方便，但就是錄不起來。