Rastgele ondalıklı sayılara bölme

[cenkozkurt]

Merhabalar,

Ekte ekledigim dosyada; 1 gün istenilen aralıklara bölünüyor, örneğin 15 dk, 20 dk gibi(00:00-00:15). Benim yapmak istedigim bu bölünen her aralıgın karsına 0,3 ile 0,15 arasında rastgele bir sayı üretilmesi. Bu makronun içine bunu nasıl ekleyebilirim? Yardımcı olursanız sevinirim.

 

[Ömer BARAN]

Merhaba.

CommandButton1'e ait kod blokunda Next i satırından hemen önce aşağıdaki satırı ekleyin.
.

Range(adres).Offset(i - 1, [B][COLOR="Red"]2[/COLOR][/B]) = WorksheetFunction.RandBetween([B][COLOR="Blue"]15[/COLOR][/B], [B][COLOR="blue"]30[/COLOR][/B]) [B][COLOR="Red"]/ 100[/COLOR][/B]

 

[cenkozkurt]

Teşekkürler.

 

[Ömer BARAN]

Teşekkürler.

Kolay gelsin.
.