暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
請問壹些關於 巨集的問題
本帖最後由 mark15jill 於 2011-4-18 11:20 編輯
如題
假使 有100筆資料 (同時放在一個EXCEL下 就是 一個新的EXCEL環境 放進100筆資料 並且未置底 僅縮小)
其中 40筆的資料 活頁簿 有 班級壹 班級貳 班級參 班級肆 班級五 五頁
30筆的資料 活頁簿 有 班級壹 班級貳 班級五 班級六 四頁
30筆的資料 活頁簿 有 班級壹 班級貳 班級肆 四頁
我已經有作三個巨集模組
但是 卻發生 幾種情形 使得 效率變很差
情形1 會發生 陣列錯誤 導致程式執行中斷
情形2 會發生 資料數太多 同時放置太多EXCEL檔的話會當掉
情形3 有時候會產生 資料未做修正 就直接儲存關閉(如: sheet名稱未改 就直接儲存關閉)
想請教是否可以自動忽略情形一的錯誤
感謝各位高手
以下是我所做的巨集指令
Sub Macro1()
'
' Macro1 Macro
'
' 快速鍵: Ctrl+l
Application.DisplayAlerts = False
Sheets("班級壹").Select
ActiveWindow.SelectedSheets.Delete
Sheets("班級貳").Select
ActiveWindow.SelectedSheets.Delete
Sheets("班級參").Select
ActiveWindow.SelectedSheets.Delete
Sheets("班級肆").Select
ActiveWindow.SelectedSheets.Delete
Sheets("班級五").Select
ActiveWindow.SelectedSheets.Delete
Sheets("班級六").Select
ActiveWindow.SelectedSheets.Delete
End Sub
Sub Macro2()
'
' Macro2 Macro
'
' 快速鍵: Ctrl+q
Sub CloseAllWorkbooks()
Dim Book As Workbook
For Each Book In Workbooks
If Book.Name <> ThisWorkbook.Name Then
Book.Close savechanges:=True
End If
Next Book
ThisWorkbook.Close savechanges:=True
End Sub
End Sub
Sub Macro3()
'
' Macro3 Macro
'
' 快速鍵: Ctrl+e
Application.Run "PERSONAL.XLSB!Macro1"
Application.Run "PERSONAL.XLSB!Macro2"
End Sub |
|
發表於 2011-4-15 09:30
| 
