Başka hücreye göre rastgele sayı oluşturma

[mehmetaltin]

Arkadaşlar a1 hücresinde 50 ile 100 arasında rastgele sayı oluşturuyorum.C1 hücresinde ise (10-20-30-40-50-60-70-80-90) sayılarından biri rastgele oluşacak ama bu sayı a1 sayısından küçük olmak zorunda çünkü a1 den c1 i çıkaracağız.Bunu nasıl yapabilirm.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

=RASTGELEARADA(1;A1/10-1)*10

 

[Saban Sertkaya]

Alternatiftir. Deneyiniz...

Sub Düğme1_Tıklat()
[A1] = "": [C1] = ""
Randomize
10
[A1] = Int(Rnd() * 100) + 51
If [A1] > 100 Then GoTo 10

20
a = Int(Rnd() * 9) + 1
Select Case a
Case 1: [C1] = 10
Case 2: [C1] = 20
Case 3: [C1] = 30
Case 4: [C1] = 40
Case 5: [C1] = 50
Case 6: [C1] = 60
Case 7: [C1] = 70
Case 8: [C1] = 80
Case 9: [C1] = 90
End Select
If [C1] > [A1] Then GoTo 20
End Sub

 

[mehmetaltin]

Ömer Bey çok teşekkürler oldu.Bir de bu küçük sayılar A1 deki sayıdan küçük 10'un katları nasıl yaparım.Örneğin A1 de 76 oluştu ise C1 deki sayı 60-50-40-30-20-10 sayılarından biri olsun...

 

[veyselemre]

=YUKARIYUVARLA(RASTGELEARADA(1;AŞAĞIYUVARLA(A1-1;-1));-1)

 

[mehmetaltin]

Çok teşekkürler

 

[Saban Sertkaya]

....................