Buton ile rastgele sayı

[MESUT K]

Herkese merhaba

Aşağıdaki resimde belirttiğim sorunumla ilgili bilen arkadaşlardan yardım istiyorum.

İndir rastgele

Dosyayı indir rastgele

dosya.co

 

[bmutlu966]

Deneyin.

Sub rastgele()

For t = 2 To 26
    Cells(t, "B") = Round((1000 * Rnd + 1), 1)
Next

End Sub

 

[MESUT K]

Deneyin.

Sub rastgele()

For t = 2 To 26
    Cells(t, "B") = Round((1000 * Rnd + 1), 1)
Next

End Sub

Soruyu eksik sordum kusuruma bakmayın.hangi sayı aralığında olduğunu yazmadım.
C2=alt sayı
C3=üst sayı
C2 ve C3 hücrelerindeki aralığa göre sayı üretildiğinde kod nasıl olmalı

 

[bmutlu966]

Sub rastgele()
Dim sayi As Double
For t = 2 To 26
   sayi = ([C3] - [C2] + 1) * Rnd + [C2]
   Cells(t, "B") = Round(sayi, 1)
Next
End Sub

 

[MESUT K]

Sub rastgele()
Dim sayi As Double
For t = 2 To 26
   sayi = ([C3] - [C2] + 1) * Rnd + [C2]
   Cells(t, "B") = Round(sayi, 1)
Next
End Sub

alt ve üst sayı aralığının dışına taşıyor

 

[Haluk]

+1 ifadesini silin, öyle deneyin...

.

 

[veyselemre]

Sub Test()
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        Cells(i, 2).Value = WorksheetFunction.RandBetween(Range("C2").Value * 10, Range("C3").Value * 10) / 10
    Next i
End Sub