- ©«¤l
- 45
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2018-2-12
- ³Ì«áµn¿ý
- 2024-7-15
|
¦^´_ 3# cowww
¦bThisWorkbook¸Ì±¶K¤W¥H¤U¥N½X- 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
½Æ»s¥N½X |
|