返回列表下一主題上一主題發帖

[發問] 資料-排序問題請教

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-9-1 13:45 | 只看該作者

[發問] 資料-排序問題請教

DEAR ALL 大大
1.小弟於工具-選項-自定清單建立圖一原則
2.然後錄製圖二巨集(資料-排序-選項-自定排序方式選圖一項目)指定工作表依圖一原則(OrderCustom:=15)排序
2.1 但於其它人電腦即無法動作.
3.請問如何將圖一原則加於圖二VBA中.煩不吝賜教 THANKS

圖一
IMP1-A,IMP1-B,IMP2-A,IMP2-B,IMP3-A,IMP3-B,IMP4-A,IMP4-B
圖二
Sub TBDD2015轉置B2()
Sheet15.Select
Range("A1").Select
Cells.Select
Range("V1").Activate
Selection.Sort Key1:=Range("AB1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=15, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlStroke, DataOption1:=xlSortNormal
Range("V1").Select
End Sub