- 帖子
- 51
- 主題
- 9
- 精華
- 0
- 積分
- 65
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-3-30
- 最後登錄
- 2016-7-21
|
手動製作巨集程式碼過於繁雜問題(如何精簡程式碼)
如題
請問各位前輩，小弟在前幾篇看見有人問隱藏的問題
於是檢視了我自己的語法
因為是用錄巨集的方式自學的，所以程式碼總是可以發現許許多多的重複
像是- Sheets("Pmax").Select
- Columns("C:AI").Select
- Selection.EntireColumn.Hidden = True
- Columns("AK:BC").Select
- Selection.EntireColumn.Hidden = True
- Columns("BE:BQ").Select
- Selection.EntireColumn.Hidden = True
- Columns("BS:CE").Select
- Selection.EntireColumn.Hidden = True
- Columns("CG:DI").Select
- Selection.EntireColumn.Hidden = True
- Columns("DV:IB").Select
- Selection.EntireColumn.Hidden = True
- Columns("ID:IG").Select
- Selection.EntireColumn.Hidden = True
或是- ActiveWindow.ScrollRow = 6
- Sheets("Liner").Select
- Sheets("Liner").Copy Before:=Sheets(1)
- Sheets("Liner (2)").Select
- Sheets("Liner (2)").Name = "總表"
- Columns("B:GJ").Select
- Selection.EntireColumn.Hidden = False
- ActiveWindow.ScrollColumn = 4
- ActiveWindow.ScrollColumn = 3
- Sheets("總表").Select
- Sheets("總表").Copy Before:=Sheets(2)
- Sheets("總表").Select
- Sheets("總表").Copy Before:=Sheets(1)
- Sheets("總表").Select
- Sheets("總表").Move Before:=Sheets(1)
- Sheets("總表").Select
- Sheets("總表").Copy Before:=Sheets(2)
- Sheets("總表 (4)").Select
- Sheets("總表 (4)").Name = "Sav"
- Columns("C:AX").Select
- Selection.EntireColumn.Hidden = True
- Columns("BA:BM").Select
- Selection.EntireColumn.Hidden = True
- Columns("BO:CA").Select
- ....
發現也許是太簡單 所以沒什麼人再討論這個問題
所以想說要來請益一下各位高手前輩
我該怎麼做精簡呢?
不然龐大的程式碼真的會讓程式跑的越來越慢.. |
|
發表於 2016-5-3 14:25
| 
