Toplamı 20 yi geçmeyen toplama işlemi

[mehmetaltin]

Arkadaşlar rastgele toplamı işlemi etkinliği hazırlamak istiyorum ama toplam en fazla 20 olabilir.Mesela A1 hücresinde rastgele 0 il 20 arasında bir sayı oluşturulacak.Altındaki A2 hücresinde A1 hücresindeki sayıya göre rastgele bir sayı oluşacak.

A1 HÜCRESİ 20 8 11
A2 HÜCRESİ 0 7 2 gibi.Sadece toplam en fazla 20 olabilir...

 

[çıtır]

Deneyiniz.

Sub Rastgele()
Dim tahmin(2)
Randomize
sayı= 20
For dongu = 1 To 2
tahmin(dongu) = Int(Rnd * sayı)
Cells(dongu, 1).Value = tahmin(dongu)
sayı = sayı- Range("A1").Value
Next dongu
Range("A1").Select
End Sub

 

[mehmetaltin]

Hocam bunu kod ile nasıl yapabiliriz...

 

[çıtır]

Bu vba kodu zaten.Formülle nasıl yapılaçağını mı sormak istediniz?

 

[mehmetaltin]

evet

 

[çıtır]

A1 Hücresine kopyalayınız.

=RASTGELEARADA(0;20)

A2 Hücresine kopyalayınız.

=RASTGELEARADA(0;20-A1)

Klavyenin F9 tuşuna basarak deneyiniz.

 

[mehmetaltin]

Hocam çok teşekkürler oldu.Bunu çıkartma işlemi için nasıl düzenleyebilirim.Üstteki sayı en fazla 20 olacak şekilde çıkarma yapacak...

 

[çıtır]

Hocam çok teşekkürler oldu.Bunu çıkartma işlemi için nasıl düzenleyebilirim.Üstteki sayı en fazla 20 olacak şekilde çıkarma yapacak...

Rica ederim.Dönüş yaptığınız için teşekkür ederim.A1 Hücresindeki sayı(üsteki sayı )zaten en fazla 20 olabilir.Soruyu anlayamadım.

 

[mehmetaltin]

Önce toplamada 14 tane yaptım diğerlerinde hata veriyor. !SAYI şeklinde gözüküyorlar...

Çıkarmada mantık üstteki sayı en fazla 20 olabilir ve üstteki sayı her zaman alttaki sayıdan büyük yada eşit olabilir.Alttaki sayıdan küçük olamaz...

 

[çıtır]

A1 Hücresine kopyalayınız.

=RASTGELEARADA(10;20)

veya

=RASTGELEARADA(0;20)

A2 Hücresine kopyalayınız.

=RASTGELEARADA(0;20-A1)

veya

=EĞER(A1>10;RASTGELEARADA(0;20-A1);RASTGELEARADA(0;A1))

Klavyenin F9 tuşuna basarak deneyiniz.

 

[mehmetaltin]

toplama oldu hocam eline sağlık.Çıkarmada mantık üstteki sayı en fazla 20 olabilir ve üstteki sayı her zaman alttaki sayıdan büyük yada eşit olabilir.Alttaki sayıdan küçük olamaz...