既存のものの末尾に行を追加し、削除ボタンを作成する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