Excel巨集的問題

[fr323744]

我想請問在試算表中執行巨集,當儲存格A1的值為1時中止或是暫停巨集,應該怎麼做呢? 請個位大大為我解答 謝謝!!

[wkl66216]

你有你的巨集檔案?
比較好改成你要的.~

[fr323744]

wkl66216大大你好! 我錄製了1,2,3,.....N個巨集然後再把N個巨集組合成一個
因為我只會錄製然後再跟著內容編輯找不到相關文章可以參考
巨集內容大概如下

Sub Macro01()
'
' Macro01 Macro
'
' 快速鍵: Ctrl+z
'
Range("IA126:IF126").Select
Selection.Copy
Range("IA136:IF235").Select
ActiveSheet.Paste
Range("IA127:IF127").Select
Application.CutCopyMode = False
Selection.Copy
Range("IA136:IF235").Select
ActiveSheet.Paste
Range("IA128:IF128").Select
Application.CutCopyMode = False
Selection.Copy
Range("IA136:IF235").Select
ActiveSheet.Paste
Range("IA129:IF129").Select
Application.CutCopyMode = False
Selection.Copy
Range("IA136:IF235").Select
ActiveSheet.Paste
Range("IA130:IF130").Select
Application.CutCopyMode = False
Selection.Copy
Range("IA136:IF235").Select
ActiveSheet.Paste
Range("IA131:IF131").Select
Application.CutCopyMode = False
Selection.Copy
Range("IA136:IF235").Select
ActiveSheet.Paste
Range("IA132:IF132").Select
Application.CutCopyMode = False
Selection.Copy
Range("IA136:IF235").Select
ActiveSheet.Paste
Range("IA133:IF133").Select
Application.CutCopyMode = False
Selection.Copy
Range("IA136:IF235").Select
ActiveSheet.Paste
Range("IA134:IF134").Select
Application.CutCopyMode = False
Selection.Copy
Range("IA136:IF235").Select
ActiveSheet.Paste
Range("IA125:IF125").Select
Application.CutCopyMode = False
Selection.Copy
Range("IA136:IF235").Select
ActiveSheet.Paste
End Sub

[birdbird]

Sub Macro01()
if [a1]=1 then exit sub
......底下接你的代碼