- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 233
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-11-24
       
|
排序語法(錄製巨集)是否可以簡化
Hi 大家好,
錄製巨集動作說明如下：
1.先於G4-->點選篩選
2.於G4-->從 A 到 Z 排序
3.於C4-->從 A 到 Z 排序
4.取消篩選功能
巨集語法如下：
Sub 排序1()
Range("G4").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("舊版採購入庫單").AutoFilter.Sort.SortFields.Add2 Key:= _
Range("G4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("舊版採購入庫單").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C4").Select
ActiveWorkbook.Worksheets("舊版採購入庫單").AutoFilter.Sort.SortFields.Add2 Key:= _
Range("C4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("舊版採購入庫單").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
End Sub |
|
發表於 2019-5-21 06:34
| 
