Arama butonu
Bu konudaki kullanıcılar: 1 misafir
4
Cevap
4299
Tıklama
0
Öne Çıkarma
excelde rastgele sayı dağıtma
S
11 yıl
Teğmen
Konu Sahibi

yapmak istediğim ama beceremediğim a1 hücresine verdiğim değeri formül b1 c1 d1 hücrelerine rastgele dağıtacak yani bu üç hücredeki sayıların toplamı a1 e eşit olacak



S
8 yıl
Er

Sub Macro1()
'
' Macro1 Macro
i = Int(Rnd() * 10)

BuOlmadi:
j = Int(Rnd() * 10)
y = Int(Rnd() * 10)

If ((j + y) <> i) Then GoTo BuOlmadi

Range("a1").Value = i
Range("e1").Value = j
Range("e2").Value = y


End Sub


Bu mesaja 1 cevap geldi.
S
8 yıl
Er

10 değeri senin a1 e girmek istediğin değer onu kafana göre değiştirirsin kaç hücreye dağıtacaksanda o kadar j,i gibi değişken ekle ve if komutuna + olarak ekle


Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @sadaasdasda
A
8 yıl
Binbaşı

Sub RastgeleSayiDagit() 

s = Val(Range("a1").Value)

s1 = Int(Rnd() * (s - 2))
s2 = Int(Rnd() * (s - s1))
s3 = s - s2 - s1

Range("b1").Value = s1
Range("c1").Value = s2
Range("d1").Value = s3

End Sub





< Bu mesaj bu kişi tarafından değiştirildi akcan -- 28 Ekim 2016; 11:00:28 >

I
3 yıl
Teğmen

Şu online tool konuyla ilgilenenlere yardımcı olabilir -> https://functioncube.com/Functions/Divide-Number



DH Mobil uygulaması ile devam edin. Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin. Gizle ve güncelleme çıkana kadar tekrar gösterme.