返回列表 上一主題 發帖

依日期大小自動排序

依日期大小自動排序

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

依日期大小排序

依日期大小排序.PNG
2021-7-9 14:35


感激不盡

回復 1# cowww
篩選.jpg
2021-7-9 15:01

先把小工單到零件料號列選取
選箭頭.jpg
2021-7-9 15:01

再到資料>點選篩選
選排序.jpg
2021-7-9 15:01

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

TOP

回復 2# s3526369

感謝s3526369大大的回覆

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

TOP

回復 3# cowww

開始自動排序.jpg
2021-7-9 16:45

在ThisWorkbook裡面貼上以下代碼
  1. Private Sub Workbook_Open()
  2.     Range("A6:J6").Select
  3.     Selection.AutoFilter
  4.     ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
  5.     ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
  6.         ("C6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
  7.         xlSortNormal
  8.     With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
  9.         .Header = xlYes
  10.         .MatchCase = False
  11.         .Orientation = xlTopToBottom
  12.         .SortMethod = xlPinYin
  13.         .Apply
  14.     End With
  15.     Selection.AutoFilter
  16. End Sub
複製代碼

TOP

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

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

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

TOP

回復 4# s3526369


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

現在出現這個錯誤
擷取.PNG
2021-7-9 18:06

TOP

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

TOP

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

回復 7# s3526369

非常感謝s3526369大大的回復

依日期排序.PNG
2021-7-12 09:12

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

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

TOP

        靜思自在 : 信心、毅力、勇氣三者具備,則天下沒有做不成的事。
返回列表 上一主題