Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

[clown83]

Korhan Ayhan arkadaşım istedigim gibi olmuş eline saglık fakat tam olarak degil çift olarak oluşturulmuşama örnekteki gibi çift olarak 6 tane olucak şekilde kombine edilmesini yapabilirsen tam yerinde olucak arkadaşım ilgilendigin içinde teşekkürler.

Sayın Korhan Ayhan arkadasım . benim sorunum 1'den 40'a kadar olan rakamlardan olabilecek tüm 10'lu kombinasyonları görmek istiyorum fakat excel buna izin vermiyor sadece sonuc olarak gösteriyor. excel 2007 kullanıyorum program olarak. yardımcı olursanız sevinirim .şimdiden teşk.ederim.

 

[oLumeleqi]

Merhaba,
Dosyayı güncelledim. Yeniden indirebilirsiniz.

leumruk kardeşim olmamış ya kombinasyon dan çok permutasyon olmuş yani şöyle bi hatırlatma yapim sayısal lotosisteminde 12 sayının 6 ı kombinsayonu 924 felan yapyor güncelledigin dosyada çıkan sonuçtan daha fazla kombinasyon elde edilebilir diye düşünüyorum yanlış ifade etim galibasize sorunumu

 

[clown83]

Sayın Korhan Ayhan arkadasım . benim sorunum 1'den 40'a kadar olan rakamlardan olabilecek tüm 10'lu kombinasyonları görmek istiyorum fakat excel buna izin vermiyor sadece sonuc olarak gösteriyor. excel 2007 kullanıyorum program olarak. yardımcı olursanız sevinirim .şimdiden teşk.ederim.

 

[oLumeleqi]

leumruk arkadasım dosyaya baktınmı :'yardim:

 

[Korhan Ayhan]

Selamlar,

Sn. clown83,

Bu başlığın #21 nolu mesajında zaten isteğinize yakın bir çalışma mevcut. Siz sadece dosyadaki işlemleri takip edin. Sonuca gideceksiniz.

http://www.excel.web.tr/f50/kombinasyon-sonucunu-sayfalara-yazd-rabilirmiyiz-t36987/post325201.html

 

[leumruk]

leumruk arkadasım dosyaya baktınmı :'yardim:

Syn. oLumeleqi,
Ne istediğinizi tam anlamıyla anlayamıyorum.
Nasıl bir kombinasyon istediğinizi daha net açıklamalısınız. Mesela, benim verdiğim örnekte, son kombinasyondan sonra gelmesi gereken kombinasyonun hangi düzende olması gerekiyor.

 

[oLumeleqi]

Syn. oLumeleqi,
Ne istediğinizi tam anlamıyla anlayamıyorum.
Nasıl bir kombinasyon istediğinizi daha net açıklamalısınız. Mesela, benim verdiğim örnekte, son kombinasyondan sonra gelmesi gereken kombinasyonun hangi düzende olması gerekiyor.

Sizin eklediginiz örnek dosyayı düzenledim arkadaşım

 

[leumruk]

Merhaba,
Farklı bir yöntem kullandım. Sanırım işinizi görür. Kombinasyonları rastgele oluşturdum. Belirli bir düzeni yok. Fakat hepsi birbirinden farklı. Eklediğim dosyada 2000 farklı kombinasyon oluşuyor. Eğer 12 sayının 6'lı en fazla kaç kombinasyon oluşturduğunu biliyorsanız o sayıyı belirttiğim kısımla değiştirebilirsiniz.

Sub Yeni()
Columns(4).ClearContents
For X = 1 To [COLOR="Red"]2000[/COLOR]
Tekrar:
For i = 1 To 6
Randomize
İlk = Int(12 * Rnd + 1)
Son = Int(12 * Rnd + 1)
Cells(X, "d") = Cells(X, "d") & " " & Cells(İlk, "a") & Cells(Son, "a")
Next
Sat = [d65536].End(3).Row
If WorksheetFunction.CountIf(Range(Cells(1, "d"), Cells(Sat, "d")), Cells(X, "d")) > 1 Then
Cells(X, "d") = ""
GoTo Tekrar
End If
Next
End Sub

 

[oLumeleqi]

Eline saglık arkadaşım işimi görür çok teşekkür ederim

 

[7kasim]

Arkadaşlar aklınıza sağlık
Benimde bir sorum olacak.Sayın leumruk kombinasyonları rastegele değilde belli bir düzende olmasını istiyorum.Şöyle ki: 0,1,....,8,9
Bu sayı kümesinde 6 basamaklı rakamları istiyorum ancak kullanılan sayı tekrar kullanılmasın.
123456
259876 gibi.

125982 olmayacak yani.
teşekkürler

 

[7kasim]

sayın leumruk aklınıza sağlık çok güzel olmuş.
benim istediğimde buna benzer bir makro ancak bir fark var onu da çözmeye çalıştım ancak başaramadım.
örnekleyeyim çok kısa
1'den 9'a rakam var.ben bu sayı dizininden 5 basamaklı rakam elde etmek istiyorum fakat elde ettiğim rakamda aynı sayıdan yalnızca 1 adet olmasını istiyorum.
yani 12489, 35698, 623589 gibi.

12542, 36593 gibi değil.

teşekkür ediyorum.

 

[oLumeleqi]

Arkadaşlar konu kombinasyon ile alakalı oldugu için yeni konu açmak yerine buradan devam etmeyi daha makul buldum,örnek dosya ektedir açıklamasıda mevcutur,Şimdiden teşekkürler.

 

[manon]

dosyayı indiremiyorum

 

[kinagro]

sayın leumruk,
haluk beyin hazırlamış olduğu sayısal kombinasyon #21 nolu mesajdaki program hata veriyor.15-16 cı sütundan sonra duruyor.revize programı indirmeye çalışıyotrum resim klosörü çıkıyor.Bütün mesajları okudum ama çalışan programı bulamadım.yardımcı olurmusunuz..teşekürler

 

[kinagro]

merhabalar,
bana haluk beyin hazırlamış olduğu revizeli düzgün çalışan 6/49 kombinasyon programını nerden bulabileceğimi bilen birisi varsa yardımcı olablirmi lütfen......#21 deki program kesinlikle çalışmıyor hata veriyor...

 

[skyline172]

örnek.xls dosyasını indirdim ve çalıştırdım herşey süper fakat
ben sadece 2 li değil 5 li 6 li kombinasyon oluşturmak istiyorum. Nasıl yapabilirim.

çok teşekkürler

kolay gelsin

 

[skyline172]

6 değilde 3 veya 10 lu kombinasyon yapmak mümkün mü?

 

[Korhan Ayhan]

Selamlar,

80 sayısı derken neyi kastediyorsunuz. Örnek dosya ekleyerek açıklama yaparmısınız.

 

[Korhan Ayhan]

Selamlar,

Eğer 80 adet farklı sayının 10 'lu kombinasyonunu istiyorsanız aşağıdaki sonuçlar ortaya çıkacaktır.

=KOMBİNASYON(80;10)

1.646.492.110.120 sonucu ortaya çıkacaktır.


Eğer Office 2003 kullanıyorsanız;

1.646.492.110.120 / 65535 = 25.123.859 sayfa eder.


Eğer Office 2007 kullanıyorsanız;

1.646.492.110.120 / 1.048.575 = 1.570.219 sayfa eder.


Bu listeyi oluşturabilmeniz için mevcut bilgisayarlar size yetermi bir düşünün?

 

[Korhan Ayhan]

Selamlar,

İlk olarak makro seviyenizi düşük olarak ayarlayın.
Daha sonra 21 nolu mesajdaki dosyayı indirin.
Dosyayı açın ve bahsettiğiniz 80 numarayı ilk satıra sağa doğru yazın.
Sayfadaki butona tıklayın. Ekrana gelen kutucuğa 10 yazıp tamam tuşuna tıklayın.

Bilgisayarınıza bir zarar gelirse sorumluluk kabul etmeyeceğimi bildirmek isterim. İşlemciniz zarar görebilir.

2007 için makro ayarlarınızı aşağıdaki linki inceleyerek yapabilirsiniz.

http://office.microsoft.com/tr-tr/excel/HP100969191055.aspx?pid=CH101001571055