返回列表 上一主題 發帖

vba自動排序

Siobhan.B

帖子
5 
主題
2 
精華
0 
積分
7 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
註冊時間
2011-4-20 
最後登錄
2011-5-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-21 10:38 | 只看該作者

vba自動排序

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

你們好,

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


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

自動排序.rar (11.26 KB)

收藏 分享

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
555 
主題
58 
精華
0 
積分
622 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-5-13 
2#
發表於 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

Siobhan.B

帖子
5 
主題
2 
精華
0 
積分
7 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
註冊時間
2011-4-20 
最後登錄
2011-5-12 
3#
發表於 2011-4-21 13:47 | 只看該作者
回復 2# hugh0620


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

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

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

自動排序.rar (11.07 KB)

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
555 
主題
58 
精華
0 
積分
622 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-5-13 
4#
發表於 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

Siobhan.B

帖子
5 
主題
2 
精華
0 
積分
7 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
註冊時間
2011-4-20 
最後登錄
2011-5-12 
5#
發表於 2011-4-21 16:40 | 只看該作者
回復 4# hugh0620


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

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
555 
主題
58 
精華
0 
積分
622 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-5-13 
6#
發表於 2011-4-22 09:04 | 只看該作者
回復 5# Siobhan.B

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

   利用上述的步驟~ 可以了解你所操作的過程
學習才能提升自己

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
7#
發表於 2011-4-22 09:25 | 只看該作者
在office領域中還是會有許多操作無法錄製巨集的
一個簡單的例子
你可嘗試在工作表上搜尋包含某個字符的儲存格
搜尋後把這些找到的儲存格的字型全部改為紅色
你會發現操作很方便，但就是錄不起來。

TOP

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題