- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
感謝各位先進的回覆,
我使用的巨集都是用錄製的,所以各位寫給我的,我真的看不懂,不過我依"oobird"教我的方法,在巨集中不要冠上工作表的名稱,所以我將其中一個比較短的巨集先將所有工作表名稱去除後執行巨集,可是出現對話誆"編譯錯誤:找不到方法或資料成員"我不了解它的意思是什麼,不過有箭頭指著巨集的第一行,顯示有問題,由於我之前問的問題只是截取一小段巨集內容,而大家回覆給我的,我又不會套用,所以我將完整的巨集寫於下,希望樓上有回覆給我的各種方式都幫我套入完整的巨集中,我再遂一試試看結果如何?不是我偷懶,我真的看不懂.
Sub sorting_chart()
'
' sorting_chart 巨集
'
'
Windows("2011 BCMart Chart.xls").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("U4").Select
ActiveWorkbook.Worksheets.Sort.SortFields.Clear
ActiveWorkbook.Worksheets.Sort.SortFields.Add Key:=Range("U5:U3000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets.Sort.SortFields.Add Key:=Range("Q5 3000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets.Sort.SortFields.Add Key:=Range("A5:A3000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets.Sort
.SetRange Range("A4:AA3000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.SaveAs Filename:= _
" :\BCM\2011 BCMart Chart\2011 BCMart Chart-sorted-2011.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub |
|
發表於 2011-10-16 21:19
| 
