Toleransa Göre Sayı Üretme

[mstfyldrm]

Merhabalar,
Bu konudan çıkamadım yardımcı olabilecek kimse var mı
Örneğin; 45 ±0.5 toleransına göre 10 sayı üretmek istiyorum.
Noktadan sonra 2 basamak ya da 3 basamak olarak üretmek istiyorum.
Nasıl yapabilirim?

 

[cems]

Merhabalar,
Bu konudan çıkamadım yardımcı olabilecek kimse var mı
Örneğin; 45 ±0.5 toleransına göre 10 sayı üretmek istiyorum.
Noktadan sonra 2 basamak ya da 3 basamak olarak üretmek istiyorum.
Nasıl yapabilirim?

Oncelikle bir excel kitabı açın
kaydet butonuna basın size nasıl kaydetmesi gerektiğini soran bir diyalog açılır
Bu diyalogta dosyaya bir isim verin altında tür seceneklerinde makro kaydedenve calıstıran senin evet le masaustune kaydedin
alt f11 beraber basarak vba bolumune gecin ve sol agacta bir modul açın
Bu kodları module kopyalayın ve calıstırın
msg ile -.5 ile + 0,5 arasında 10 sayı bildirecektir.
noktadan sonraki hane sayısını 2 ya da 3 olarak ayarlayın


Sub RastgeleSayilarUret()
Dim i As Integer
Dim sayi As Double
Dim noktadanSonraBasamakSayisi As Integer
Dim tol As Double

' Tolerans
tol = 0.5

noktadanSonraBasamakSayisi = Int((3 - 2 + 1) * Rnd + 2) ' Noktadan sonra basamak sayısını belirle (2 veya 3)

MsgBox "Noktadan sonra basamak sayısı: " & noktadanSonraBasamakSayisi & vbCrLf & "--------------------------" & vbCrLf
For i = 1 To 10

sayi = Round((45 - tol) + (tol * 2) * Rnd, noktadanSonraBasamakSayisi)
MsgBox "Sayı " & i & ": " & sayi
Next i
End Sub

 

[Korhan Ayhan]

Alternatif...

=RASTGELEARADA(45*100-0,5*10;45*100+0,5*10)/100