標題: 巨集，不同工作表執行會產生問題，可否將工作表名稱略過執行 [打印本頁]

---

作者: wanliton    時間: 2011-12-31 15:03     標題: 巨集，不同工作表執行會產生問題，可否將工作表名稱略過執行

Sub Macro4()
'
' Macro4 Macro
'

'
    Range("I6").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 1
    Range("A1").Select
    Selection.Insert Shift:=xlDown
    Columns("F:M").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("A:E").Select
    ActiveWorkbook.Worksheets("1230").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("1230").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("1230").Sort
        .SetRange Range("A2:E449")

---

作者: jarodz    時間: 2012-1-4 00:16

把 ActiveWorkbook.Worksheets("1230") 換成 ActiveSheet 應該就可以了

---

作者: wanliton    時間: 2012-4-1 15:38

困惑已久，謝謝解謎，換成 ActiveSheet即可執行

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)