在现有行的末尾添加行并创建删除按钮 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

在现有行的末尾添加行并创建删除按钮 VBA Excel 2010

Adding row at the end of existing ones and create a delete button VBA Excel 2010

excel

vba

button

excel-2010

delete-row