Neu berechnen (aktualisieren) und jedes Ergebnis in einem anderen Blatt speichern

Question

Ich bin ein R-Programmierer, aber versuche VBA zum ersten Mal. Ich habe eine ziemlich einfache Populationsprojektion basierend auf einer Reihe von zufällig ausgewählten Geburts- und Überlebenswerten. Ich habe Populationswerte für die Jahre 1 bis 20 in den Zellen BC4: BC23 in Sheet1 vorhergesagt. Bei jeder Aktualisierung ändern sich die Werte. Ich möchte 100 mal auffrischen und jeden Populationswert in Sheet2 speichern (100 Spalten mit 20 Werten).

Basierend auf meiner Internet-Suche, scheint es, dass eine Kombination aus einer Schleife und EnableCalculation eine brauchbare VBA-Ansatz dafür ist. Ich habe verschiedene Codierungsansätze (Application.EnableEvents, CalculateManyTimes, usw.) ohne Glück versucht. Sicher wurde diese Art von Frage vorher gestellt, aber ich konnte sie nicht finden. Irgendwelche Tipps würden geschätzt. Vielen Dank.

Answer 1

Der Schlüssel ist Application.CalculateFull so könnte der Code sein:

Sub CalculateAndSave() 
    Dim Ws As Worksheet 
    Set Ws = Worksheets(2) 
    For i = 1 To 100 
     Application.CalculateFull 
     Ws.Range(Ws.Cells(4, i), Ws.Cells(23, i)) = Sheets(1).Range("BC4:BC23").Value 
    Next i 
End Sub