巨集，不同工作表執行會產生問題，可否將工作表名稱略過執行
- 帖子
- 12
- 主題
- 5
- 精華
- 0
- 積分
- 22
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- taiwan
- 註冊時間
- 2010-5-5
- 最後登錄
- 2018-2-16
|
巨集，不同工作表執行會產生問題，可否將工作表名稱略過執行
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") |
|
|
|
|
|
|
|
- 帖子
- 12
- 主題
- 5
- 精華
- 0
- 積分
- 22
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office 2007
- 閱讀權限
- 10
- 性別
- 男
- 來自
- taiwan
- 註冊時間
- 2010-5-5
- 最後登錄
- 2018-2-16
|
3#
發表於 2012-4-1 15:38
| 只看該作者
|
困惑已久，謝謝解謎，換成 ActiveSheet即可執行 |
|
|
|
|
|
|
|
- 帖子
- 32
- 主題
- 7
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2011
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-12-13
- 最後登錄
- 2014-7-8
|
2#
發表於 2012-1-4 00:16
| 只看該作者
|
把 ActiveWorkbook.Worksheets("1230") 換成 ActiveSheet 應該就可以了 |
|
|
|
|
|
|
|
