Rastgele oluşturulan sayıların toplamını sınırlamak

[karakaçan]

iyi günler arkadaşlar bir sorunum var yardımcı olursanız sevinirim.

Ekteki dosyada A2:A11 aralığında 1 ile 10 arasında benzersiz sayı üretiliyor. B sütunda ise A sütunudaki sayıların satır numaralarından farkının mutlak değeri hesaplanıyor. Amacım şu B1:B10 aralığındaki sayıların toplamının 4 olduğunda makronun uyarı vermesi tabi mümkünse.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub RASTGELE_SAYI_ÜRET_3()
    Dim X As Byte, SAYI As Byte
 
    Columns(1).ClearContents
    For X = 1 To 10
BAŞLA: SAYI = Int((10 * Rnd) + 1)
    If WorksheetFunction.CountIf(Columns(1), SAYI) > 0 Or SAYI = 0 Then GoTo BAŞLA
    Cells(X, 1) = SAYI
    If WorksheetFunction.Sum(Range("B1:B10")) = 4 Then
        MsgBox "Sayılar 4 değerine ulaştı!", vbExclamation
    End If
    Next
End Sub

 

[karakaçan]

Korhan bey ilginize teşekkürler.
dikkat ettim de rastgele sayı üretme fonksiyonu belli bir zamandan sonra hep aynı sayıları üretiyor. Yani biraz sınırlı.
Mesela 1,2,3 sayıları ile 6 farklı sıralama yapılıyor. Ben 1den 10 a kadar olan sayıların tüm permütasyonlarının yani sıralamalarını excelde yapak istiyorum 1 2 3 4 5 6 7 8 9 10 , 1 3 2 4 5 6 7 8 9 10 ............ gibi (her sayı arı hücrede olacak) böyle bir kod var mı ?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkteki konuda birçok örnek kod var. İnceleyiniz.



Rastgele Sayı Üretme!
Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

Eğer bunlarda yetersiz derseniz forumda "kombinasyon" ifadesi ile arama yapınız.

 

[karakaçan]

sayın korhan ayhan ilginize teşekkür ederim. aradığım sorunun cevabını buldum.