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

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

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

依日期大小自動排序

　暱稱: 大榮

中學生 Rank: 2

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

1^# 跳轉到 »

發表於 2021-7-9 15:03 | 顯示全部帖子

回復 1# cowww

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

再到資料>點選篩選

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

　暱稱: 大榮

中學生 Rank: 2

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

2^#

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

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

3^#

發表於 2021-7-12 08:22 | 顯示全部帖子

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

　暱稱: 大榮

中學生 Rank: 2

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

4^#

發表於 2021-7-12 09:51 | 顯示全部帖子

回復 9# cowww

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

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。

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