Toplama eşit sayılar uretme

[ozgretmen]

Merhabalar;
A1 Hücresinde 50 sayisi olsun.Toplamı 50 olcak sekilde rastgele 5 adet ( bu 5 degisebilir )sayı nasil olusturulabilir.
Tesekkurler.

 

[Korhan Ayhan]

Merhaba,

Bu işlemi makro ile isterseniz çözüm üretilebilir. Formüllerle kontrolü zor olabilir.

 

[dEdE]

Merhaba,
Sayın Korhan Ayhan'ın önerisi doğrultusunda makrolu çözüm üreten dosya ilişiktedir.
Aynı mantıkla, sayfaya başvurmadan sorunu bellekte çözen kodu yazamadım.
-Ekli dosyadaki kodu sayfaya başvurmayacak şekilde düzenleyebilir miyiz?
-Farklı algoritmalarla daha hızlı çözüm üretebilecek kod önerilerinizi paylaşabilir misiniz?

 

[Muhammet Okumuş]

Sub toplma()
x = 250
ReDim tablo(1 To 5, 1 To 1)
For i = 1 To 5
tablo(i, 1) = 50
Next


10
a = WorksheetFunction.RandBetween(1, 5)
If tablo(a, 1) = 0 Then GoTo 10
tablo(a, 1) = tablo(a, 1) - 1
x = x - 1

If x = 50 Then
Range("A1").Resize(5, 1) = tablo
Exit Sub
End If
GoTo 10


End Sub

Kod geliştirilebilir.

 

[Muhammet Okumuş]

Sub toplma2()

ReDim tablo(1 To 5, 1 To 1)
For i = 1 To 5
tablo(i, 1) = 0
Next


10
a = WorksheetFunction.RandBetween(1, 5)

tablo(a, 1) = tablo(a, 1) + 1
x = x + 1

If x = 50 Then
Range("A1").Resize(5, 1) = tablo
Exit Sub
End If
GoTo 10


End Sub

Artırma yöntemi ile de ulaşılabilir.

 

[dEdE]

Sayın Muhammet Okumuş,
Teşekkürler,
Bazen basit düşünmek gerekiyor. GoTo düşünmemiştim.

 

[Muhammet Okumuş]

Kesinlikle öyle.