R1C1-Formel auf variable Zeilen setzen, um dieselbe Spalte zu referenzieren

Question

Ich brauche Hilfe, um einen Code zu schreiben, der eine R1C1-Formel in die Zellen einer Zeile einfügt.

Die Startposition der Zeilen variiert bei jeder Ausführung des Makros. Ie. Wenn das Makro zum ersten Mal ausgeführt wird, wird die Formel in Zeile B16 als R [-5] C [3] eingegeben. R [-5] ist in diesem Fall E12.

Wenn das Makro jedoch ein anderes Mal ausgeführt wird, & wird es in Zeile B25 eingegeben, möchte ich immer noch, dass es auf E3 verweist, aber es verweist auf E20.

Hier mein Code

Dim cell As Range, MyRange As Range 

Set MyRange = Range("B1:B5000") 

For Each cell In MyRange 

If cell = " " And cell.Offset(, 1) <> "Record" Then 

cell.FormulaR1C1 = "=SUM(R[-5]C[3]: SUM(R[-5]C[4])" 

End If 

Next cell 

End With 

Sie haben recht ist, versucht mein Code This row - 5, this column + 3: this row -5, this column + 4 Das Problem, das ich ist zu sagen, dass diese Zeile & jede Zeile könnte ich relativ Referenzierung, da diese Formel verwenden möchte Kopien nach unten in der nächsten Zeile Also, was ich versuche zu tun, dies

Cell B16 = E11+F11 
Cell B17 = E12+F12 
Cell B18 = E13+F13 etc 

dann, wenn das Makro & Startzelle E25 erneut ausgeführt wird, dann

Cell E25 = E20+F20 
Cell E26 = E21+F21 
Cell E26= E22+F22 etc 

So, unabhängig davon, welche Zelle die Makropunkte auf, es wird immer die Berechnung von E11+F11 starten

Answer 1

Hier ist mein Code

Dim Zelle As Range, MyRange As Range Set MyRange = Range ("B1: B5000")

für jede Zelle in MyRange

Wenn Zelle = "" Und cell.Offset (1) <> "Record" Dann

cell.FormulaR1C1 = "= SUM (R [-5] C [3]: SUM (R [-5] C [4])"

End If

Nächste Zelle

End With

Answer 2

Sie verwenden relative Verweise in Ihrer Formel und die Formel wird nicht funktionieren, wie Sie versuchen, =SUM(E1:SUM(F1) zu sagen, wenn die in der Zelle B6 eingegeben. Alle Zeilen höher als diese und es wird versucht, auf das Blatt zu verweisen.

Um die absolute Referenzierung zu verwenden, verwenden Sie R3C5 (Zeile 3, Spalte 5 = E3).
Allenfalls Ihre Formel zu sagen versuchte This row - 5, this column + 3: this row -5, this column + 4

Vielleicht "=SUM(R3C5:R3C4)" versuchen, die gleich wie =SUM($E$3:$F$3) ist.

Auch - cell = " " - die Zelle muss ein einzelnes Leerzeichen enthalten? Sollte es cell = "" sein?

bearbeiten: Als Antwort auf Ihre bearbeiten - wenn Sie die erste Formel immer bei E11 aussehen: F11, und die nächste E12 sein: F12, etc. Sie eine dieser Lösungen verwenden können:

um die Formel für alle Zeilen in einem Hit hinzufügen - das ist nicht mit einem Raum für eine Zelle überprüft:

Public Sub Test() 

    Dim MyRange As Range 
    Dim lOffset As Long 

    Set MyRange = Range("B1:B5000") 

    With MyRange 
     lOffset = 11 - .Row 
     .FormulaR1C1 = "=IF(RC[1]<>""Record"",SUM(R[" & lOffset & "]C5:R[" & lOffset & "]C6),"""")" 
    End With 

End Sub 

um zu überprüfen, dass jede Zelle einen Raum in sich hat, bevor sie die Formel Zugabe:

Public Sub Test1() 

    Dim MyRange As Range 
    Dim rCell As Range 
    Dim lOffset As Long 

    Set MyRange = Range("B30:B5000") 

    lOffset = 11 - MyRange.Row 
    For Each rCell In MyRange 
     If rCell = " " And rCell.Offset(, 1) <> "Record" Then 
      rCell.FormulaR1C1 = "=SUM(R[" & lOffset & "]C5:R[" & lOffset & "]C6)" 
     End If 
    Next rCell 

End Sub 

Hier die Ergebnisse für den zweiten Codeblock in der Reihe die Formel beginnt immer zeigen 11:

Und wenn Sie den Bereich ändern die Formel geht in:

Edit 2:
Wenn Zeilen 20:24 Datensatz haben, wird =SUM($E11:$F11) in Zeile 25 platziert. Wenn Zeile 26 einen Datensatz enthält, dann Zeile 27 wird =SUM($E12:$F12)

haben 0

Public Sub Test1() 

    Dim MyRange As Range 
    Dim rCell As Range 
    Dim lOffset As Long 

    Set MyRange = Range("B20:B30") 

    lOffset = 11 
    For Each rCell In MyRange 
     If rCell = " " And rCell.Offset(, 1) <> "Record" Then 
      rCell.FormulaR1C1 = "=SUM(R[" & lOffset - rCell.Row & "]C5:R[" & lOffset - rCell.Row & "]C6)" 
      lOffset = lOffset + 1 
     End If 
    Next rCell 

End Sub