• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro'ya kod eklemek

O

oLumeleqi

Katılım
15 Mart 2009
Mesajlar
50
Excel Vers. ve Dili
office 2003 türkçe
Arkadaşlar örnek dosyadaki listeyi dökebilmemiz için hangi kodu kullanmamız lazım yardımcı olurmusunuz.

örnek diziliş çıkarma işlemi yaıcagı rakamlar yani çıkarma işlemindeki sonuçları o düzende 3 ve 6 lı grupları yazdırmak istiyorum
 

Ekli dosyalar

Son düzenleme:
oLumeleqi' Alıntı:
Arkadaşlar bi fikriniz yokmu
Genişletmek için tıkla ...
Merhaba,
İstediğiniz pek mümkün görünmüyor. Döngü kullanmak gerekli; ancak döngüyü her türlü döndürdüm bir sonuca ulaşamadım. Ama yine de belli olmaz; belki bir yapan çıkar. Kesin konuşmak istemiyorum.
 
Kemal bey merakımı mazur görün.Dosyadakiler ne bulgularıdır?
 
arkadaşlar ne tür kodlarla çözebiliriz yardımcı olabilecek kimse yokmu
 
Merhaba, sorunuz net anlayamadım.
Özel mesajınıza istinaden cevaplıyorum.
Dosyanızdaki tablo ile sınırlı olamak şartıyla. Dosyanıza uygun olarak.
Kod: 
Sub test()
z = 6: x = 4
For i = 1 To 3
x = x + 1
For y = z To 12
s = s + 1
Cells(s, 5) = Cells(1, 1) & "-" & Cells(1, 1) & "/" & Cells(1, 1) & "-" & Cells(2, 1) & "/" & _
Cells(1, 1) & "-" & Cells(3, 1) & "/" & Cells(1, 1) & "-" & Cells(4, 1) & "/" & _
Cells(1, 1) & "-" & Cells(x, 1) & "/" & Cells(1, 1) & "-" & Cells(y, 1)
Next
z = z + 1
Next
End Sub
Kod: 
Sub test1()
z = 6: x = 4
For i = 1 To 3
x = x + 1
For y = z To 12
s = s + 1
Cells(s, 6) = Cells(1, 1) - Cells(1, 1) - Cells(1, 1) - Cells(2, 1) - _
Cells(1, 1) - Cells(3, 1) - Cells(1, 1) - Cells(4, 1) - _
Cells(1, 1) - Cells(x, 1) - Cells(1, 1) - Cells(y, 1)
Next
z = z + 1
Next
End Sub
 
meslan' Alıntı:
Merhaba, sorunuz net anlayamadım.
Özel mesajınıza istinaden cevaplıyorum.
Dosyanızdaki tablo ile sınırlı olamak şartıyla. Dosyanıza uygun olarak.
Kod: 
Sub test()
z = 6: x = 4
For i = 1 To 3
x = x + 1
For y = z To 12
s = s + 1
Cells(s, 5) = Cells(1, 1) & "-" & Cells(1, 1) & "/" & Cells(1, 1) & "-" & Cells(2, 1) & "/" & _
Cells(1, 1) & "-" & Cells(3, 1) & "/" & Cells(1, 1) & "-" & Cells(4, 1) & "/" & _
Cells(1, 1) & "-" & Cells(x, 1) & "/" & Cells(1, 1) & "-" & Cells(y, 1)
Next
z = z + 1
Next
End Sub
Kod: 
Sub test1()
z = 6: x = 4
For i = 1 To 3
x = x + 1
For y = z To 12
s = s + 1
Cells(s, 6) = Cells(1, 1) - Cells(1, 1) - Cells(1, 1) - Cells(2, 1) - _
Cells(1, 1) - Cells(3, 1) - Cells(1, 1) - Cells(4, 1) - _
Cells(1, 1) - Cells(x, 1) - Cells(1, 1) - Cells(y, 1)
Next
z = z + 1
Next
End Sub
Genişletmek için tıkla ...

Arkadaşım saolasın ugraşmışsın ama istedigimden çok uzak bi çalışma malesef 3 ve 6 lı kombinasyon düzeninde istemiştim buda 320 ve 924 ediyor
 
Selamlar,
Aşağıdaki eki dener misiniz? İstediğiniz sonuçları veriyor. Ancak fazlasını da veriyor. Yaklaşık 100.000 civarında sonuç çıkıyor.
Kod: 
Sub Dene2()
[d1:e65536].ClearContents
Sat = 1
Sut = 4
For a = 1 To 7
    For b = 2 To 8
        For c = 3 To 9
            For d = 4 To 10
                For e = 5 To 11
                    For f = 6 To 12
                        Cells(Sat, Sut) = Cells(a, "a") & Cells(a, "a") _
                        & "-" & Cells(a, "a") & Cells(b, "a") & "-" & Cells(a, "a") _
                        & Cells(c, "a") & "-" & Cells(a, "a") & Cells(d, "a") _
                        & "-" & Cells(a, "a") & Cells(e, "a") & "-" & Cells(a, "a") & Cells(f, "a")
                        Sat = Sat + 1
                        If Sat = 65536 Then
                            Sut = 5
                            Sat = 1
                        End If
                    Next
                Next
            Next
        Next
    Next
Next
End Sub
 

Ekli dosyalar

leumruk' Alıntı:
Selamlar,
Aşağıdaki eki dener misiniz? İstediğiniz sonuçları veriyor. Ancak fazlasını da veriyor. Yaklaşık 100.000 civarında sonuç çıkıyor.
Genişletmek için tıkla ...

leumruk kardeşim görünüşe göre benim sorunu iyi açıklayamadıgımı hisediyorum :s yeni bir örnek dosya ekledim daha kapsamlı bir örnek daha iyi bi açıklık getiricegini sanıyorum
B ve C sütunu istenilen sonuçları dökmüyor benim istedigim düzen G sütunundaki düzende tekrarlanmadan kombinasyon oluşturmak ek dosyayı inceleyebilirmisiniz rica etsem
 

Ekli dosyalar

Örnei deneyiniz.
Kod: 
Sub Cıkarma()
Sat = 1
For x = 2 To 12
    For y = 2 To 12
        cıkar = Cells(x, "a") - Cells(y, "a")
        Sat = Sat + 1
        Cells(Sat, "c") = cıkar
    Next
Next
End Sub
 

Ekli dosyalar

Merhaba,
Eketeki örneği inceleyiniz.
Kod: 
Sub Dene3()
[d1:ı65536].ClearContents
Sat = 1: Sut = 4
x = 1
For i = 1 To 6
s1 = 1: s2 = 2: s3 = 3: s4 = 4: s5 = 5: s6 = 6
Tekrar:
For a = s1 To s1: For b = s2 To s2: For c = s3 To s3: For d = s4 To s4: For e = s5 To s5: For f = s6 To 12
Cells(Sat, Sut) = Cells(x, "a") & "-" & Cells(a, "a") _
& "/" & Cells(x, "a") & "-" & Cells(b, "a") & "/" & Cells(x, "a") _
& "-" & Cells(c, "a") & "/" & Cells(x, "a") & "-" & Cells(d, "a") _
& "/" & Cells(x, "a") & "-" & Cells(e, "a") & "/" & Cells(x, "a") & "-" & Cells(f, "a")
Sat = Sat + 1
Next: Next: Next: Next: Next: Next
s5 = s5 + 1: s6 = s6 + 1: If s6 = 7 Then GoTo Tekrar
s4 = s4 + 2: If s6 = 8 Then GoTo Tekrar
s4 = s4 - 1: s3 = s3 + 3: If s6 = 9 Then GoTo Tekrar
s3 = s3 - 2: s2 = s2 + 4: If s6 = 10 Then GoTo Tekrar
Sut = Sut + 1
Sat = 1
x = x + 1
Next
End Sub
.
 

Ekli dosyalar

Son düzenleme:
Merahaba sn.olumeleqi yine özel mesajınıza istinaden cevaplıyorum.kombinasyon konusnu unutalı senler oldu.
Dolayısile elimden gelen sizin tabloya uygun bir çalıma oldu. umarımki size yardımcı olur.
 

Ekli dosyalar

Merhaba,
Yukarıda eklemiş olduğum dosyayı güncelledim, kodu epey bir kısalttım. Ayrıca bir dosya daha ekledim.
Birinci dosyada örnek olarak belirttiğiniz sıralama var. İkinci dosyada Çıkarma işlemlerini sonuçlarına göre sıralıyor.
 
dosyaların hepsi farklı yerlerde işime yaradı sayın leumruk ve meslan ilginize teşekkür ederim son bi soru sormadan edemiycem :).yan yana yazdıgımız sayıları nasıl küçükten büyüge sıralayabiliriz 1213257
1356479

1122357
1345679 gibi örnegin
 
Excelin veri sıralama özelliğini kullanabilirsiniz. Makro kodunu isterseniz:

Range("A1:A20").Sort Key1:=Range("A1"), Orientation:=xlLeftToRight
 
Excelin sıralama özelligini kulanmayı denedim sanırım sayıların arasında noktalar ile ayrıldıgından tam olarak sıralama yapamadı birde kod hata verdi veya ben yapamadım
 
A sütununda yaklaşık 1000 sıra var , ile ayrılmış olarak 6 7 8 haneli sayılar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst