返回列表 上一主題 發帖

排序問題

funnydisk

帖子
28 
主題
13 
精華
0 
積分
68 
點名
0  
作業系統
winXP 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-4 
最後登錄
2015-9-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-8-9 01:30 | 只看該作者

排序問題

想請問各位前輩排序的問題，假如有幾個活頁的進貨資料沒有照順序排列，例如
1. 7月進貨
貨號   品名      數量
1001 鉛筆      12
1003 油性筆  10
1002 中性筆  15
...
2. 8月進貨  
貨號   品名      數量
1002 中性筆  20
1003 油性筆  19
1001 鉛筆      6
...
以上二個活頁如何要複製到「2012進貨資料」活頁變成
                          7月      8月
貨號   品名      數量     數量
1001 鉛筆      12         6
1002 中性筆  15         20
1003 油性筆  10         19
...
這段vba要怎麼寫呢，謝謝
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
267  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-10-31 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-8-9 08:29 | 只看該作者
回復 1# funnydisk

這樣功能並不難，論壇中關於此類討論亦不在少數
使用Dictionary物件可以輕鬆完成
不過最重要的是工作表名稱如何對應欄位的問題
建議上傳您的檔案了解整體結構
學海無涯_不恥下問

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2012-8-9 08:47 | 只看該作者
回復 1# funnydisk
提供你參考：
xlSh    :  要處理的表單名稱
StartRow:  起始位置
EndRow  :  最末位置

    Set sh = Sheets(xlSh)
    With sh.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("C" & StartRow), SortOn:=xlSortOnValues, _
                                                        Order:=xlAscending         ' 資料由小而大依序排序
        .SetRange Range("A" & StartRow & ":E" & EndRow)
        ' .Header = xlNone
        .Apply
    End With
加油！

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
返回列表 上一主題