- 帖子
- 45
- 主題
- 3
- 精華
- 0
- 積分
- 72
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2018-2-12
- 最後登錄
- 2025-3-27
|
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
複製代碼 |
|