麻辣家族討論版版 - Powered by Discuz! Board

標題: vba自動排序 [打印本頁]

作者: Siobhan.B 時間: 2011-4-21 10:38 標題: vba自動排序

本帖最後由 Siobhan.B 於 2011-4-21 10:50 編輯

你們好,

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

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

作者: hugh0620 時間: 2011-4-21 12:03

本帖最後由 hugh0620 於 2011-4-21 12:11 編輯

回復 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 時間: 2011-4-21 13:47

回復 2# hugh0620

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

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

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

作者: hugh0620 時間: 2011-4-21 16:17

回復 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 時間: 2011-4-21 16:40

回復 4# hugh0620


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

作者: hugh0620 時間: 2011-4-22 09:04

回復 5# Siobhan.B

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

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

作者: chin15 時間: 2011-4-22 09:25

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

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