依日期大小自動排序

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-7-9 14:36 | 只看該作者

依日期大小自動排序

請問要如何依照日期那欄位做自動排序

感激不盡

樓主熱帖

　暱稱: 大榮

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

2^#

發表於 2021-7-9 15:03 | 只看該作者

回復 1# cowww

先把小工單到零件料號列選取

再到資料>點選篩選

就會跑出往下的箭頭點選進去選擇從最舊到最新排序

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

3^#

發表於 2021-7-9 15:29 | 只看該作者

回復 2# s3526369

感謝s3526369大大的回覆

但是老闆要的是檔案下載後"自動"排序

　暱稱: 大榮

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

4^#

發表於 2021-7-9 16:47 | 只看該作者

回復 3# cowww

在ThisWorkbook裡面貼上以下代碼

Private Sub Workbook_Open()
Range("A6:J6").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
("C6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
End Sub

複製代碼

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

5^#

發表於 2021-7-9 17:49 | 只看該作者

本帖最後由 cowww 於 2021-7-9 17:51 編輯

成功了
非常感謝s3526369大大的解答

只是老闆希望可以做"遞減"的排序
小弟不才，不知道從哪修改，還請s3526369大大指導

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

6^#

發表於 2021-7-9 18:07 | 只看該作者

回復 4# s3526369

抱歉
s3526369大大
小弟看錯了，並沒有成功，只是測試的資料本來就是按日期排序下來

現在出現這個錯誤

　暱稱: 大榮

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

7^#

發表於 2021-7-12 08:22 | 只看該作者

回復 6# cowww
超出活頁簿就會顯示這個

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

8^#

發表於 2021-7-12 09:26 | 只看該作者

本帖最後由 cowww 於 2021-7-12 09:28 編輯

回復 7# s3526369

非常感謝s3526369大大的回復

異常是消失了，但日期無法自動排序

非常抱歉
其中一個檔案太大(壓縮後還是超過1M)，導致無法附件給s3526369大大測試

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

9^#

發表於 2021-7-12 09:44 | 只看該作者

回復 7# s3526369
檔案以上傳，請s3526369大大試試看

匯入資料TEST123.zip (317.29 KB)

首件.zip (254.18 KB)

MLD007.zip (890.41 KB)

　暱稱: 大榮

帖子: 45
主題: 3
精華: 0
積分: 72
點名: 0
作業系統: WIN7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2018-2-12
最後登錄: 2024-7-15

10^#

發表於 2021-7-12 09:51 | 只看該作者

回復 9# cowww

你把檔案寄給我[email protected] 謝謝