dizideaynisayilarvar:
ReDim ilksayi(5)
ReDim sonsayi(5)
For k = 1 To 5
tekrar:
ilksayi(k) = aradasayi(Range("af5"), Range("ad5"))
artis = Range("ad4")
If Range("ad9") = 1 And ilksayi(k) Mod artis <> 0 Then GoTo tekrar 'ritmik sayma olsun
If Range("ad9") = 2 Then oruntuolacak = oruntuolacak 'örüntü olacağı için öylesine bir eşitlik konuldu. Bir özelliği yok
sonsayi(k) = ilksayi(k) + 9 * artis
If sonsayi(k) > Range("ad6") Then GoTo tekrar
Next k
ay = benzermi(ilksayi, 5)
If ay = "benzer" Then GoTo dizideaynisayilarvar:
'yerleştiriyoruz.
k = 1
For a = 4 To 12 Step 2
Randomize
If Range("ad7") = 3 Then hangisi = Int(Rnd() * 2 + 1) 'karışık
If Range("ad7") = 1 Then hangisi = 1 'ileri
If Range("ad7") = 2 Then hangisi = 2 'geri
If hangisi = 1 Then
Cells(a, 2) = ilksayi(k)
Cells(a, 4) = ilksayi(k) + artis
Cells(a, 6) = ilksayi(k) + artis * 2
Cells(a, 8) = ilksayi(k) + artis * 3
End If
If hangisi = 2 Then
Cells(a, 2) = sonsayi(k)
Cells(a, 4) = sonsayi(k) - artis
Cells(a, 6) = sonsayi(k) - artis * 2
Cells(a, 8) = sonsayi(k) - artis * 3
End If
k = k + 1
Next a
If Range("ad9") = 1 Then Range("a1") = "RİTMİK SAYMALAR"
If Range("ad9") = 1 Then Range("a3") = "Ritmik saymalardaki boşlukları tamamlayın."
If Range("ad9") = 2 Then Range("a1") = "Örüntüler"
If Range("ad9") = 2 Then Range("a3") = "Aşağıdaki örüntülerde boşlukları tamamlayın."
yukarıdaki kodlarda benzermi fonksiyonu var onun kodlarını boş bir modle yerleştirin
Function benzermi(diziadi As Variant, DiziTumElemanSayisi As Integer) As String
For a = 1 To DiziTumElemanSayisi
'don3:
'Randomize
'harfrakam(a) = Int(Rnd() * 10 + 1)
For b = 1 To DiziTumElemanSayisi
If a <> b And diziadi(a) = diziadi(b) And diziadi(a) <> "" Then
benzermi = "benzer"
GoTo 10
Else
benzermi = "benzer değil"
End If
Next b
Next a
10
End Function
