Kopieren Sie Formeln in Excel VBA-Makro

Question

Also hier ist mein Problem. Die Formel, die ich für Spalte 15 erstellt habe, wurde nicht kopiert, als ich auf den Knopf geklickt habe, den ich gemacht habe, um eine neue Zeile hinzuzufügen.

Original When the button was clicked to add a new row

Originalbild: Allerdings, wenn ich klickte den Button ‚Zeile hinzufügen Klicken Sie auf‘, die ich gemacht, die Formel für die Spalte 15 wurde nicht in die neue Zeile in der gleichen Spalte kopiert. Dies ist mein Code:

Private Sub CommandButton1_Click() 

    Dim mySheets 
    Dim i As Long 

    mySheets = Array("Sheet1") 

    For i = LBound(mySheets) To UBound(mySheets) 

     With Sheets(mySheets(i)) 

      .Range("B16").EntireRow.Insert Shift:=xlDown 
      .Range("C16").Value = "to" 
      .Range("F16").Value = "±" 
      .Range("J16").Value = "to" 
      .Range("O16").Value = "±" 
      .Range("B16").Font.Color = black 

     End With 

    Next i 

End Sub 

Answer 1

Versuchen Sie Folgendes:

Für genau die gleiche Formel:

With Sheets(mySheets(i)) 

    .Range("A15").Offset(1).Insert 
    .Range("R16").Formula = .Range("R15").Formula 

End With 

Für gleiche Formel mit relativen Bezügen:

With Sheets(mySheets(i)) 

    .Range("A15").Offset(1).Insert 
    .Range("R15").AutoFill Destination:=Range("R15:R16"), Type:=xlFillDefault 

End With