Rastgele sayı üretimi hakk.

[Cihan SK]

[E2] = Int((90 * Rnd) + 1)

1 - 90 arasındaki rakamları karışık tekrarlıyor. Ancak ben benim belirlediğim alan örneğin: 20 ila 30 veya 150 - 170 ya da 1000 ile 1050 arasındaki rakamları " Hepsi tekrar etmeden " tekrarlamasını istiyorum.

Belirlenen aralıktaki rakamların en az bir kere tekrarı olmadan yeni baştan yapmasını istemiyorum.
İnternet ortamında benzer kodlar var mı diye uyarlamak için ancak hep yukarıda yazdığım şekilde var.

[E2]= iNT(Rnd.Next(10,20)

gibi bir şey lazım. kod yanlış olabilir. Kusurumu bağışlayın. En az bir tekrar olmalı hücre vermemin nedeni alacağım kod ile köprü kodunu birleştireceğim.

 

[Cihan SK]

Dim RastgeleSayi As New Random
Dim OlusturulanSayi As Integer = RastgeleSayi.Next(10, 20)
MsgBox("Rastgele Oluşturulan Sayı: " & OlusturulanSayi)

bunun gibi olacak ama hücreye göre uyarlayamadım.