vba自動排序

　暱稱: VBA向前衝

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 »

發表於 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

學習才能提升自己

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

2^#

發表於 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

學習才能提升自己

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

3^#

發表於 2011-4-22 09:04 | 顯示全部帖子

回復 5# Siobhan.B

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

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

學習才能提升自己

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]