Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

Katılım
24 Mart 2009
Mesajlar
4
Excel Vers. ve Dili
excel 2007
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.
 
Katılım
15 Mart 2009
Mesajlar
50
Excel Vers. ve Dili
office 2003 türkçe
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 :(
 
Katılım
24 Mart 2009
Mesajlar
4
Excel Vers. ve Dili
excel 2007
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.
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,469
Excel Vers. ve Dili
Office 2010 & 2013 tr
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.
 
Katılım
15 Mart 2009
Mesajlar
50
Excel Vers. ve Dili
office 2003 türkçe
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
 

Ekli dosyalar

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,469
Excel Vers. ve Dili
Office 2010 & 2013 tr
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.
Kod:
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
 

Ekli dosyalar

Son düzenleme:
Katılım
15 Mart 2009
Mesajlar
50
Excel Vers. ve Dili
office 2003 türkçe
Eline saglık arkadaşım işimi görür çok teşekkür ederim
 
Katılım
15 Temmuz 2008
Mesajlar
3
Excel Vers. ve Dili
2003 TR
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
 
Katılım
15 Temmuz 2008
Mesajlar
3
Excel Vers. ve Dili
2003 TR
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.
 
Katılım
15 Mart 2009
Mesajlar
50
Excel Vers. ve Dili
office 2003 türkçe
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.
 

Ekli dosyalar

Katılım
22 Ekim 2009
Mesajlar
16
Excel Vers. ve Dili
exel 2003
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
 
Katılım
22 Ekim 2009
Mesajlar
16
Excel Vers. ve Dili
exel 2003
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...
 
Katılım
20 Ocak 2010
Mesajlar
2
Excel Vers. ve Dili
2003 tr
ö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
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,318
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,318
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,318
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
 
Üst