返回列表 上一主題 發帖

依日期大小自動排序

依日期大小自動排序

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


感激不盡

回復 1# cowww

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

再到資料>點選篩選

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

TOP

回復 2# s3526369

感謝s3526369大大的回覆

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

TOP

回復 3# cowww


在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大大
小弟看錯了,並沒有成功,只是測試的資料本來就是按日期排序下來

現在出現這個錯誤

TOP

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

TOP

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

回復 7# s3526369

非常感謝s3526369大大的回復


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

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

TOP

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

匯入資料TEST123.zip (317.29 KB)
首件.zip (254.18 KB)
MLD007.zip (890.41 KB)

TOP

回復 9# cowww

你把檔案寄給我s6369954709@yahoo.com.tw 謝謝

TOP

        靜思自在 : 布施如播種,以歡喜心滋潤種子,才會發芽。
返回列表 上一主題