Rastgele Sayı Üretme!

[leumruk]

Bu konu soru-cevaba kapalıdır. Sorularınızı ayrı bir başlık açarak sorunuz.

 

[Mahir64]

Konuya katkı saylayan herkeze teşekkürler.

Sayın leumruk;
Ondalık sayı üretme ile ilgili çalışmanız çok işime yarayacak ayrıca teşekkürler.

 

[alinatali]

peki A1 ile AX50 arasında yani 50x50 lik bir matris için -10 ile 10 arasında matris elemanlarına rastgele sayılar atamak

 

[oktobır]

Rastgele Karıştırma İle İlgili Yeni Bir Soru

Sayın Leumruk,
Çok faydalı paylaşımlar teşekkürler. Çoğundan yararlanıyorum. Benim öğrenmek istediğim konu şu:
B2:B41 hücrelerine sırayla 1'den 40'a kadar sayıları yazıyorum.
Her hücrenin bulunduğu satırdaki sütunlarda yine o hücreyle bağlantılı bazı veriler bulunuyor.
Ben B2:B41 arasında yazılmış 1'den 40'a kadar olan sayıları her defasında rastgele karıştırmak istiyorum. Ama bu sayılar karıştığında da o sayının yanında bulunan bütün veriler de tekrar o sayının yanında kalsın istiyorum.

Yani rastgele karıştırma sonrası, satırlar rastgele karışmış olacak.

Ör: B2=2; C2=34,2; D2=%67; E2=0,74 ..........
Karıştırma işlemi sonrası 2'nin B27'ye gittiğini düşünelim. O zaman görüntünün aşağıdaki gibi olmasını istiyorum.
B27=2; C27=34,2; D27=%67; E27=0,74............

Bu konuda bana yardımcı olursanız sevinirim.
Şimdiden teşekkürler.

 

[leumruk]

Merhaba,
Forumun bu bölümünde soru-cevap yapmıyoruz; ancak sizin sorunuz konuyla ilgili farklı bir alternatif olduğu için cevabını buraya ekliyorum.

Sub Karistir()
Dim dz As Variant
dz = Range("a1:d" & [a65536].End(3).Row)
Randomize
For x = UBound(dz, 1) To 1 Step -1
  sayi = Int((x * Rnd) + 1)
    For y = 1 To 4
        hcr = dz(sayi, y)
        dz(sayi, y) = dz(x, y)
        dz(x, y) = hcr
    Next
Next
Range("a1:d" & [a65536].End(3).Row) = dz
End Sub

 

[irem.kok]

aynı sütunda 1 veya 2 sayılarını türetmek isitoyorum mesela ama bunu 2010 da bulamıyorum yardımcı olabilir misiniz ?

 

[Cihat KORKMAZ]

Bu başlık altındaki birçok açıklamayı okudum fakat tamamını okuyacak kadar vaktim olmadığı için soruma cevap olacak açıklama öncelerinde yapıldı ise şimdiden özür dilerim.

Benim sorunum şu idi b1 hücresinde alt sınırı, b2 hücresinde ise üst sınırı verilen aralıkta ve virgülden sonra 2 sayı olacak şekilde küsuratlı sayı üreten bir formüle ihtiyacım vardı. Yalnız bunu makro olarak değilde formül olarak oluşturmak niyetindeydim. Daha önce farklı bir yerde bu sorunumu dile getirdiğimde bu konu üzerine gerekli formülü paylaştılar fakat daha sonra fark ettim ki sayfa üzerinde her tıklamada değerler sürekli olarak değişmekteydi. Bunun değişmesini engellemenin bir yolu varsa bana bu konuda yardımcı olursanız sevinirim.

 

[Mahir64]

Cihat bey merhaba,

Formül devamlı hesaplama yapacağı için engellemenin tek yolu: Hesaplama seçeneğini Otomatik yerine Elle olarak değiştirmeniz.

 

[Cihat KORKMAZ]

Cihat bey merhaba,

Formül devamlı hesaplama yapacağı için engellemenin tek yolu: Hesaplama seçeneğini Otomatik yerine Elle olarak değiştirmeniz.

Mahir Bey hesaplama seçeneğini elle yaptığımız zaman çalışma kitabı içerisinde bulunan diğer formülleri etkiler mi ?

 

[kadabra363]

sorması ayp bu kodları nereye yazacaz ?

 

[mrcylmz_61]

hocam paylaşım ve bilgiler için teşekkürler. ben bir kelime oyunu kodu yazıyorum. 5 türkçe yada ingilizce kelimenin çevirisini karıştırarak karşılarına atıyor , oyuncu doğru kelimeleri bulmaya çalışıyor. burda şöyle bir kod yazıyorum işimide görüyor ama mantığını anlayamadım ;
for i=1 to 5
a=int(rnd*1000)
b=int((rnd*5)+8)
controls( "label" & b ).caption = sayfa1.cells( a , 1 )
burada b=int((rnd*5)+8) kodu ile ben tam olarak ne yapıyorum açıklamanız mümkün müdür???

 

[Korhan Ayhan]

Merhaba,

8-12 arasında rastgele sayı üretmenizi sağlar.

 

[mrcylmz_61]

korhan bey üretilen sayılar hiç aynı olmuyor bu rastlantımı yada 8 ile 13 arasında birbirini tekrarlamayan 6 sayı üretmek istiyorum ve bu bir for döngüsü içinde nasıl yapabilirim?

 

[mrcylmz_61]

Korhan bey kod aşağıdadır.
For i = 1 To 5
a = Int(Rnd * 1031)
Controls("TextBox" & i).Text = Sayfa1.Cells(a, 2)
b = Int((Rnd * 5) + 8)
Controls("label" & b).Caption = Sayfa1.Cells(a, 1)
Next

 

[Tasarım]

Arkadaşlar içerisinde sadece "ABCDEF0123456789" karakterlerini içeren ve birbirine benzemeyen şekilde sayı üretecek koda ihtiyacım var.

Lütfen yardımcı olur musunuz?

 

[Huseyinkis]

Arkadaşlar içerisinde sadece "ABCDEF0123456789" karakterlerini içeren ve birbirine benzemeyen şekilde sayı üretecek koda ihtiyacım var.

Lütfen yardımcı olur musunuz?

Sayılar kaç karakter olucak?

 

[Tasarım]

Sayılar kaç karakter olucak?

Toplam 16 karakter olacak ve içerisinde sadece ABCDEF harfleri ve sıfırdan dokuza kadar sayı değeri olacak.

 

[Huseyinkis]

Toplam 16 karakter olacak ve içerisinde sadece ABCDEF harfleri ve sıfırdan dokuza kadar sayı değeri olacak.

Ekteki dosyayı incelermisiniz.

 

[Tasarım]

Ekteki dosyayı incelermisiniz.

Elinize sağlık da, benim istediğim böyle değildi. Aşağıya örnek veriyorum.

ABCDEF0123456789
BACEFD2587963104
EFDCAB9632584710

vs. vs.

 

[Huseyinkis]

Elinize sağlık da, benim istediğim böyle değildi. Aşağıya örnek veriyorum.

ABCDEF0123456789
BACEFD2587963104
EFDCAB9632584710

vs. vs.

Ekli dosyayı incelermisiniz.