Board logo

標題: 依日期大小自動排序 [打印本頁]
作者: cowww    時間: 2021-7-9 14:36     標題: 依日期大小自動排序

請問要如何依照日期那欄位做自動排序
[attach]33550[/attach]

感激不盡
作者: s3526369    時間: 2021-7-9 15:03

回復 1# cowww
[attach]33551[/attach]
先把小工單到零件料號列選取
[attach]33553[/attach]
再到資料>點選篩選
[attach]33552[/attach]
就會跑出往下的箭頭點選進去 選擇從最舊到最新排序
作者: cowww    時間: 2021-7-9 15:29

回復 2# s3526369

感謝s3526369大大的回覆

但是老闆要的是檔案下載後"自動"排序
作者: s3526369    時間: 2021-7-9 16:47

回復 3# cowww

[attach]33554[/attach]
在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
複製代碼
作者: cowww    時間: 2021-7-9 17:49

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

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

只是老闆希望可以做"遞減"的排序
小弟不才，不知道從哪修改，還請s3526369大大指導
作者: cowww    時間: 2021-7-9 18:07

回復 4# s3526369


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

現在出現這個錯誤
[attach]33555[/attach]
作者: s3526369    時間: 2021-7-12 08:22

回復 6# cowww
超出活頁簿就會顯示這個
作者: cowww    時間: 2021-7-12 09:26

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

回復 7# s3526369

非常感謝s3526369大大的回復

[attach]33581[/attach]
異常是消失了，但日期無法自動排序

非常抱歉
其中一個檔案太大(壓縮後還是超過1M)，導致無法附件給s3526369大大測試
作者: cowww    時間: 2021-7-12 09:44

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

[attach]33584[/attach]
[attach]33585[/attach]
[attach]33586[/attach]
作者: s3526369    時間: 2021-7-12 09:51

回復 9# cowww

你把檔案寄給我[email protected] 謝謝
作者: samwang    時間: 2021-7-12 10:46

回復 8# cowww


With Sheets(2).Range("a5:j" & Cells(Rows.Count, "A").End(xlUp).Row)
        .Cells.Sort Key1:=.Cells(4), Order1:=xlAscending, Header:=xlYes
End With

因為你的資料都是公式，你可以整列反顏色去，執行F8就會知道問題在哪裡了

轉為值再執行看看，謝謝
作者: cowww    時間: 2021-7-12 11:00

回復 10# s3526369


   已寄出
MLD007的檔案過大
有針對我不需要的欄位做了刪除
作者: cowww    時間: 2021-7-12 11:00

回復 10# s3526369


    已寄出
MLD007的檔案過大
有針對我不需要的欄位做了刪除



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)