기존 행 끝에 행을 추가하고 삭제 버튼을 만듭니다. Excel 2010

Question

불쌍한 영어를 사용해 죄송합니다. 노력하고있어.

기존 스크립트가 끝나면 행을 추가 할 수있는 스크립트가 필요하며이 스크립트는 사용자가 필요에 따라 삭제할 수 있도록이 행의 맨 앞에 버튼을 추가합니다.

유지하고 싶은 형식 및 방정식이 있기 때문에 워크 시트의 첫 번째 행을 복사합니다.

Private Sub addRow_Click() 

Application.ScreenUpdating = False 
ActiveSheet.Unprotect 

Rows("1:1").Hidden = False 
Rows("1:1").Select 
Application.CutCopyMode = False 
Selection.Copy 
Range("LastRow").Select 

Selection.Insert Shift:=xlDown 
Rows("1:1").Hidden = True 
Application.CutCopyMode = False 

ActiveSheet.Protect 
Application.ScreenUpdating = True 

End Sub 

당신이 날 도와 줄 수 :

이 새 행을 추가하는 스크립트입니다?

Answer 1

답을 찾았습니다. 그것을하는 것이 가장 좋은 방법인지 확실하지 않지만 내 경우에는 효과가 있습니다!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
     ActiveSheet.Unprotect 
    Application.EnableEvents = False 
    On Error GoTo ErrorHandler 

    If UCase(Target.Value) = "X" Then 
     ActiveCell.EntireRow.Delete Shift = xlUp 
    End If 

    ExitHere: 
     Cancel = True 
     Application.EnableEvents = True 
     ActiveSheet.Protect 
     Exit Sub 
    ErrorHandler: 
     Resume ExitHere 


    End Sub