fr323744
2009-04-20, 10:01 PM
我想請問在試算表中執行巨集,當儲存格A1的值為1時中止或是暫停巨集,應該怎麼做呢? 請個位大大為我解答 謝謝!!
贊助商連結
贊助商連結
|
贊助商連結 fr323744 2009-04-20, 10:01 PM 我想請問在試算表中執行巨集,當儲存格A1的值為1時中止或是暫停巨集,應該怎麼做呢? 請個位大大為我解答 謝謝!! 贊助商連結 wkl66216 2009-04-25, 11:20 PM 你有你的巨集檔案? 比較好改成你要的.~ fr323744 2009-04-27, 03:12 PM 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 2009-05-20, 02:27 PM Sub Macro01() if [a1]=1 then exit sub ......底下接你的代碼 |
|
|