在現有的行的末尾添加行並創建一個刪除按鈕VBA 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