Excel için For ve Next döngüsündeki Kaydetme Sonucu Sonuç

Question

Yineleme çözücüsünü 51 kez kullanmak istiyorum ve sonuçları her bir hesaplayıcının Excel'deki ayrı bir hücrede saklamasını istiyorum. Aşağıda benim VBA komutum var; ancak senaryoda bir sorunla karşılaşıyorum. Kaydedilen sonuç sadece 51, son hesaplama sonucunu gösterir. Basit bir betik ama nerede yanlış yaptığımı anlayabiliyordum. Yardım için teşekkürler! objektif fonksiyonu varsayarsak

Private Sub Button1_Click() 
Dim j As Integer 
For j = 1 To 51 
Range("m4") = j 
solversolve UserFinish:=True 
solversolve(UserFinish:=True) = Range("Q" & j + 3) 
Next j 
End Sub 

Answer 1

Range ("m4") 'dir ve denemek ardından Range ("S4") başlayarak çözümleri çözmek istiyoruz:

Private Sub Button1_Click()` 
    Dim j As Integer 
    For j = 1 To 51 
    solversolve UserFinish:=True 
    Range("Q" & j + 3).value=Range("m4").value 
    Next j 
End Sub 

Ama, 'yok Yeniden çalıştırmak için modelde değişiklik yapmak? Rastgele değerler var mı?