- Katılım
- 15 Eylül 2016
- Mesajlar
- 39
- Excel Vers. ve Dili
- türkçe 2007
merhaba
yardımlarınız için şimdiden teşekkür ederim
benim ihtiyacım olan macro örnek olarak sayısal loto gibi düşünelim.sitede örneği var
örnek elimde 1,3,15,18,35,41,61,77, ve buna benzer 40 adet rakam var ben 40 adet sayıyı kendim belirlemek istiyorum 1ile 40 arası değil40 adet sayıyı kendim belirlemek istiyorum değişik makrolarla
5li6lı8li10lu olarak yapmak istiyorum nasıl yapacağım konusunda yardımcı olursanız sevinirim tüm sonuçları listlemesini istiyorum bu makrodaki gibi
Sub Listele()
Dim X As Byte, z As Long
Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte, g As Byte
X = 49
For a = 1 To X
For b = a + 1 To X
For c = b + 1 To X
For d = c + 1 To X
For e = d + 1 To X
For f = e + 1 To X
z = z + 1
Cells(z, 1) = a
Cells(z, 2) = b
Cells(z, 3) = c
Cells(z, 4) = d
Cells(z, 5) = e
Cells(z, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
End Sub
yardımlarınız için şimdiden teşekkür ederim
benim ihtiyacım olan macro örnek olarak sayısal loto gibi düşünelim.sitede örneği var
örnek elimde 1,3,15,18,35,41,61,77, ve buna benzer 40 adet rakam var ben 40 adet sayıyı kendim belirlemek istiyorum 1ile 40 arası değil40 adet sayıyı kendim belirlemek istiyorum değişik makrolarla
5li6lı8li10lu olarak yapmak istiyorum nasıl yapacağım konusunda yardımcı olursanız sevinirim tüm sonuçları listlemesini istiyorum bu makrodaki gibi
Sub Listele()
Dim X As Byte, z As Long
Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte, g As Byte
X = 49
For a = 1 To X
For b = a + 1 To X
For c = b + 1 To X
For d = c + 1 To X
For e = d + 1 To X
For f = e + 1 To X
z = z + 1
Cells(z, 1) = a
Cells(z, 2) = b
Cells(z, 3) = c
Cells(z, 4) = d
Cells(z, 5) = e
Cells(z, 6) = f
Next f
Next e
Next d
Next c
Next b
Next a
End Sub