Sayıları Rastgele Karıştırma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Sayıları Rastgele Karıştırma isimli içerikte, ilgili işlemin Python Formülleri ile nasıl yapacağınızı öğreten bir Python Formülü yer almaktadır.
Faydalanılması temennisiyle.
Hazır Kod
VBA:
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 SubAçıklama
Bu kodları kullanmak için bir UserForm nesnesine CommandButton eklemeniz gerekir.Sayıları Rastgele Karıştırma isimli içerikte, ilgili işlemin Python Formülleri ile nasıl yapacağınızı öğreten bir Python Formülü yer almaktadır.
- Python kodunu uygulayacağınız hücreyi seçin.
- =PY yazın ve TAB tuşuna basın
- Hücrenin soluna arka planı yeşil olacak şekilde PY geldiğini görün.
- Üstteki kodu yapıştırın.
- Ctrl + Enter tuşlarına birlikte basın.
Hazır Kod
Python:
import random
l = list(range(1,52))
random.shuffle(l)
l
