excel rastgele | excel rasgele

Excel'de Rastgele Sayı, Kelime, Tarih, Renk, Şekil Nasıl Oluşturulur?

Genel Açıklama:

Bu derste excel ile rastgele sayı, rakam, tarih gibi nesneleri oluşturmayı gösteriyoruz. Bu işlemi yaparken S_SAYI_ÜRET() , RASTGELEARADA() fonksiyonlarının yanında TARİH() ve YUVARLA gibi formüllerde kullanılmıştır. Tabii excelin hazır formüllerinin yetmediği yerlerde makro kodlarda kullanılmıştır.

---

Çalışma dosyasını buradan indirebilirsiniz.

Excel ile rastgele sayı oluşturmak

Excel ile rastgele sayı oluşturmak için temelde iki hazır fonksiyon bulunmaktadır. Bunlardan birincisi S_SAYI_ÜRET() 'dir. Bu fonksiyon sıfır ile bir arası sonsuz sayıda sayı oluşturur. Diğer formül ise; RASTGELEARADA() 'dır. Bu fonksiyon ise bize parametre olarak verdiğimiz alt ve üst sınırlar içerisinde rastgele sayı üretir.

---

Excel ile rastgele metin oluşturmak

Excel ile rastgele metin oluşturmak için makro ile ufak bir fonksiyon hazırladık. Bu fonksiyon kullanıcıdan aldığı bir dizi içerisindeki elemanlardan rastgele birini seçmektedir. Fonksiyona ait makro kodları aşağıda paylaşıyorum.

---

    Function RandomItem(rng As Range)
    Dim dizi As Variant
    Dim result As String
    Dim number As Integer
    dizi = rng
    number = WorksheetFunction.RandBetween(1, rng.count)
    RandomItem = dizi(number, 1)
    End Function 
       

---

---

Excel ile rastgele tarih oluşturmak

Excel ile rastgele tarih oluşturmak için aslında yine rastgele sayı oluşturuyoruz. RASTGELEARADA fonksiyonu ile rastgele oluşturduğumuz 1-31 arası gün, 1-12 arasında ay ve 2010-2017 arasında da rastgele yıl belireyerek, bu sayıları TARİH fonksiyonuna parametre olarak veriyoruz.

---

Excel ile rastgele renk oluşturmak

Rastgele renk oluşturmak için C1:F10 hücrelerini For Each döngüsü ile her bir döngüde rastgele renk ataması yapıyoruz. Yine methodun kodlarını aşağıda paylaşıyorum.

---

    Sub randomColor()
    Dim rng As Range
    Dim i As Variant
    Set rng = Worksheets("Random Renk").Range("C1:F10")
    For Each i In rng.Cells
    i.Interior.Color = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)
    Next i
    'rng.Interior.Color = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)
    End Sub
       

---

---

Excel ile rastgele şekil oluşturmak

Excel ile rastgele şekil oluşturmak için makro ile ufak bir method hazırladık. Bu method ile rastgele şekil oluşturduğumuz gibi şekle rastgele renk ve rastgele konum da belirliyoruz. Fonksiyona ait makro kodları aşağıda paylaşıyorum.

---

    Sub randomShape()
    Dim count As Integer
    Dim i As Integer
    Dim sh As Object
    count = 1
    For i = 1 To 10
    count = count + 1
    Set sh = Worksheets("Random Şekil").Shapes.AddShape(i, 100, 100, 50, 50)
    sh.Fill.ForeColor.RGB = RGB(Int(Rnd() * 255), Int(Rnd() * 255), Int(Rnd() * 255))
    sh.Name = "Shape" & count
    sh.Left = Int(Rnd() * 250)
    sh.Top = Int(Rnd() * 250)
    Next i
    End Sub 
       

---

---

---