Sayının rastgele toplamlarını gösterme

[mehmetaltin]

Arkadaşlar bir sayının f9 ile sürekli rastgele toplamlarını gösterebilir miyim.

Örneğin; sayımız 10 ise

8+2,6+4 gibi f9 tuşu ile rastgele gösterebilir miyiz...

 

[Ömer BARAN]

Merhaba.
Sayfaya bir adet düğme/şekil ekleyin ve aynı sayfanın kod bölümüne aşağıdaki kod'u yapıştırın.
A1 hücresine bir değer yazdıktan sonra düğmeye tekrar-tekrar tıklayıp sonucu gözlemleyin.

Sub TOPLAMAYIRMA()

a = Cells(1, 1)
    For b = 0 To a
        t = WorksheetFunction.RandBetween(0, a)
            Cells(1, 2) = t
            Cells(1, 3) = "+"
            Cells(1, 4) = a - t
        Next
If a = 0 Then
    Cells(1, 2) = ""
    Cells(1, 4) = ""
End If

End Sub

 

[mehmetaltin]

Hocam teşekkür ederim ilgilendiğiniz için bunu normal kod olarak eklemem mümkün mü,yada farklı bir yol mümkün mü?

 

[mehmetaltin]

Kod bilgim fazla yok ama mesela a1 satırındaki sayı 4 ise onu 10a tamamlasın yada benim belirlediğim bir sayıya a2 hücresinde tamamlasın...

 

[Ömer BARAN]

Konu açılışında sorduğunuz soru; verilen sayıların hangi sayıların toplamı olduğuna yönelik idi,
son mesajınız ise verilen sayıya ulaşmak kaç eklemek gerekir gibi bir soru soruyorsunuz.

Ben açılış mesajınıza göre cevap yazayım.
Sanırım formül istediniz.
A1 hücresine bir sayı yazın.
B1 hücresine

=RASTGELEARADA(0;A1)

C1 hücresine

'+

D1 hücresine

=A1-B1

F9 tuşuna basarak sonuçlar değişir.

 

[mehmetaltin]

teşekkürler hocam

 

[mehmetaltin]

HOCAM ben yapamadım sanırım A1 hücresine =RASTGELEARADA(1-9) yaptım rastgele sayı üretiyor,A3 hücresi bu A1 hücresindeki sayıyı 10 tamamlasın istiyorum ama olmadı...