返回列表 上一主題 發帖

可否巨集執行中途+人手操作

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-6 12:18 | 只看該作者

可否巨集執行中途+人手操作

請問巨集可否在執行期間, 遇到指定情況下 暫停操作 (例如當工作表不存在)
讓使用者可以人手操作 (例如新增工作表), 再按鍵繼續執行餘下巨集指令
請指教
收藏 分享

chchang76

帖子
13 
主題
2 
精華
0 
積分
22 
點名
0  
作業系統
window XP 
軟體版本
XP 
閱讀權限
10 
性別
男 
註冊時間
2012-6-4 
最後登錄
2012-8-9 
2#
發表於 2012-6-6 12:39 | 只看該作者
我印象中我學過可以寫 當出現ERROR 或不正確值的時候 可以跳出視窗請使用者是否要繼續 或修正數值

應該是可以辦得~  前提只是你要知道甚麼情況需要強制中止!

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-6-6 13:03 | 只看該作者
回復 1# enoch
類似這樣嗎?
  1. Option Explicit
  2. Sub Ex()
  3.     Dim xlSheetName As String
  4.     On Error GoTo xlErr
  5.     xlSheetName = "我的工作頁"                '工作表的名稱
  6.     Sheets(xlSheetName).Activate
  7.     Exit Sub
  8. xlErr:
  9.     If Err = 9 Then
  10.         If MsgBox("[ " & xlSheetName & " ]  不存在 " & Chr(10) & "新增 [ " & xlSheetName & " ] ?", vbYesNo) = vbYes Then
  11.             ActiveWorkbook.Sheets.Add.Name = xlSheetName
  12.             Resume
  13.         End If
  14.     End If
  15.     MsgBox "程式中斷"
  16. End Sub
複製代碼

TOP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
4#
發表於 2012-6-6 14:32 | 只看該作者
GKBEE
不好意思, 我表達得唔清楚
在以上程式若執行到 ERR=9 之後,
能否有空間改為人手操作,而不限於預定的執行指示: 指定的新增工作表,
例如可能想將現有工作表改名為 "我的工作頁"
當人手做完之後再返回程式執行

實際問題:
想寫程式當發現檔案只有一頁工作表, 自動列印第一頁, 若多於一張工作表,
則人手選擇第幾頁後, 再繼續執行列印

煩請再指教

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
206  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-9-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2012-6-6 15:21 | 只看該作者
回復 4# enoch

    如果要設定列印頁數
  1. Sub ex()
  2. ActiveWindow.View = xlPageBreakPreview
  3. With 工作表1
  4. If .HPageBreaks.Count = 0 Then
  5. .PrintOut
  6. Else
  7. .PrintPreview
  8. End If
  9. End With
  10. ActiveWindow.View = xlNormalView
  11. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題