爲什麼我的宏只能工作一次？

-4

它第一次正確，但只要我點擊分配的按鈕或運行宏，它只是添加行（6：6），這是行（5：5）的副本中的另一個。任何幫助都感激不盡。爲什麼我的宏只能工作一次？

請注意，當我刪除activesheet.unprotect和個ActiveSheet.Protect

Sheets("Template").Select 
    Rows("1:21").Select 
    Selection.Copy 
    Sheets("Weekly Plan").Select 
    ActiveSheet.Unprotect 
    Rows("6:6").Select 
    Range("B6").Activate 
    Selection.Insert Shift:=xlDown 
    Range("K10").Select 
    Range("K28:K47").Select 
    Range("K47").Activate 
    Application.CutCopyMode = False 
    Selection.Copy 
    Range("K7").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    ActiveSheet.Protect

來源

2014-09-01 Seesharp

@mehow它工作正常，當我刪除activesheet.unprotect和activesheet.protect – Seesharp 2014-09-01 09:53:26

將它的工作這樣能正常工作？

Sheets("Weekly Plan").Select 
ActiveSheet.Unprotect 
Sheets("Template").Select 
Rows("1:21").Select 
Selection.Copy 
Rows("6:6").Select 
Range("B6").Activate 
Selection.Insert Shift:=xlDown 
Sheets("Weekly Plan").Select 
Range("K10").Select 
Range("K28:K47").Select 
Range("K47").Activate 
Application.CutCopyMode = False 
Selection.Copy 
Range("K7").Select 
ActiveSheet.Paste 
Application.CutCopyMode = False 
ActiveSheet.Protect

來源

2014-09-01 10:02:34

爲什麼我的宏只能工作一次？

回答

相關問題