- Katılım
- 6 Ekim 2010
- Mesajlar
- 49
- Excel Vers. ve Dili
- 2003 tr
- Altın Üyelik Bitiş Tarihi
- 07.12.2023
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub MyCombination()
Sheets("data").Select
Dim Choice_Array
TotalNum = 34
ReDim Choice_Array(1 To TotalNum)
For x = 1 To TotalNum
Choice_Array(x) = Cells(1, x)
Next
j = 2
k = 1
Set NewSh = Sheets.Add(After:=Sheets(Sheets.Count))
NewSh.Range("A1") = "Kombinasyon sonuçları ..."
NewSh.Range("A1").Font.Color = vbRed
For t1 = 1 To TotalNum - 1
For t2 = t1 + 1 To TotalNum - (j - 2)
If i >= 65535 Then
k = k + 1
i = 0
Set NewSh = Sheets.Add(After:=Sheets(Sheets.Count))
NewSh.Name = "Kombinasyonlar-" & k
NewSh.Range("A1") = "Kombinasyon sonuçları ..."
NewSh.Range("A1").Font.Color = vbRed
End If
NewSh.Cells(i + 2, 1) = ("'" & Choice_Array(t1) & " - " & Choice_Array(t2))
i = i + 1
Next
Next
End Sub