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
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
'
' 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. Cevapları Gizle
Bu mesaja 1 cevap geldi. Cevapları Gizle
Bu mesajda bahsedilenler: @sadaasdasda
< Bu mesaj bu kişi tarafından değiştirildi akcan -- 28 Ekim 2016; 11:00:28 >