依日期大小自動排序 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 依日期大小自動排序

返回列表下一主題上一主題發帖

依日期大小自動排序

　暱稱: 大榮

中學生 Rank: 2

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

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

複製代碼

中學生 Rank: 2

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

3^#

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

回復 2# s3526369

感謝s3526369大大的回覆

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

　暱稱: 大榮

中學生 Rank: 2

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

2^#

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

回復 1# cowww

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

再到資料>點選篩選

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

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。

返回列表下一主題上一主題