Sayıları Rastgele Karıştırma

Sayıları Rastgele Karıştırma isimli vba kodunu kullanarak, 1 – 52 arasındaki sayıların gelişigüzel bir şekilde karıştırmasını yapabilirsiniz.

Private Sub CommandButton1_Click()

Dim CardB(52) As Long
Dim I As Long, J As Long
For I = 1 To 52
   CardB(I) = I
Next I

Randomize Timer

For I = 1 To 52
    J = Int(Rnd * 52) + 1
    CardB(0) = CardB(I)
    CardB(I) = CardB(J)
    CardB(J) = CardB(0)
Next I

For x = 1 To 52
    Cells(x, 2) = CardB(x)
Next x

End Sub

Sayıları Rastgele Karıştırma Uygulama Adımları

1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
2. Project – VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
3. Araç çubuklarından Insert -> Module yazısına tıklayın.
4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
5. Alt kısma eklenen Module(1) yazısına çift tıklayın.
6. Üstteki kodu yapıştırın.

Kod Açıklaması

Bu kodları kullanmak için, bir UserForm nesnesine CommandButton eklemeniz gerekmektedir. Ayrıca, sayıların karıştırılması için, Excel sayfanızda sayısal değerlerin yazılmış olması gerekmektedir. Bunların akabinde, UserForm’a eklediğiniz CommandButton’a tıklamanız yeterli olacaktır.