CommandButton ile Rastgele sayı dağılım.

[tekkral.cihan]

Minimum değer aralığı ve maximum değer aralığı girmiş olduğum değer aralığında kilo d16:d55 boyu e16:e55 sağ f16:f55 sol g16:g55 mekik h16:h55 şınav I16:I55 kadar rastgele değer atamak hakkında yardımcı olursanız sevinirim.

Yeni Microsoft Excel Çalışma dSayfası.xls - 98 KB

 

[antonio]

Merhaba,
Eklediğiniz Örnek dosya formatına göre kodlarınız aşağıdadır.

Sub rastgele_degerleri_dagit()
Dim sh As Worksheet, adeg As Integer, udeg As Integer
Set sh = Sheets("1-f")
For d = 4 To 9
    adeg = sh.Cells(9, d + 8)
    udeg = sh.Cells(8, d + 8)
    For i = 16 To 55
        deg = Int((udeg - adeg + 1) * Rnd + adeg)
        sh.Cells(i, d).Value = deg
    Next i
Next d
msgbox "İşlem tamamlandı.",vbInformation, "antonio"
End Sub

 

[tekkral.cihan]

Yardımcı olduğunuz için çok teşekkür ederim

 

[antonio]

Rica ederim.
NOT: Örnek dosyanızda; 8 satıra "Minimum Değerler Aralığı" yazmışsınız, ama karşısındaki değerler maksimum değerlerdir..
9. satıra ise "Maximum Değerler Aralığı" yazmışsınız ama karşısındaki değerler minimum değerlerdir.
Ben kodları mevcut sayısal verilerin bulundukları konuma (satırlara) göre ayarladım. Siz sadece yazının yerini değiştiriniz. 8. Satırın hizasını: Maximum Değerler Aralığı olarak, 9. satırın hizasını Minimum Değerler Aralığı olarak belirtiniz.