7 adet rakamın 6 lı kombinasyonu

[lpburak]

1-2-3-4-5-6-7

7 adet rakamın 6 lı kombinasyonunu bulan excel programını yapabilecek biri varmı :?

 

[gulvadi]

böyle bir şey mi

Sub Yedininaltilikom()
a = Application.InputBox("1. Rakamı Gir")
ad:
b = Application.InputBox("2. Rakamı Gir")
If a = b Then
MsgBox ("1 ve 2 değerleri aynı olamaz.")
GoTo ad
Else
bd:
End If
c = Application.InputBox("3. Rakamı Gir")
If a = c Or b = c Then
MsgBox (" Aynı değer olamaz.")
GoTo bd
Else
cd:
End If
d = Application.InputBox("4. Rakamı Gir")
If a = d Or b = d Or c = d Then
MsgBox (" Aynı değer olamaz.")
GoTo cd
Else
End If
dd:
e = Application.InputBox("5. Rakamı Gir")
If a = e Or b = e Or c = e Or d = e Then
MsgBox (" Aynı değer olamaz.")
GoTo dd
Else
End If
ed:
f = Application.InputBox("6. Rakamı Gir")
If a = f Or b = f Or c = f Or d = f Or e = f Then
MsgBox (" Aynı değer olamaz.")
GoTo ed
Else
End If
fd:
g = Application.InputBox("7. Rakamı Gir")
If a = g Or b = g Or c = g Or d = g Or e = g Or f = g Then
MsgBox (" Aynı değer olamaz.")
GoTo fd
gd:
Else
End If

Cells(1, 1).Value = "{" & a & "," & b & "," & c & "," & d & "," & e & "," & f & "}"
Cells(2, 1).Value = "{" & a & "," & b & "," & c & "," & d & "," & e & "," & g & "}"
Cells(3, 1).Value = "{" & a & "," & b & "," & c & "," & d & "," & f & "," & g & "}"
Cells(4, 1).Value = "{" & a & "," & b & "," & c & "," & e & "," & f & "," & g & "}"
Cells(5, 1).Value = "{" & a & "," & b & "," & d & "," & e & "," & f & "," & g & "}"
Cells(6, 1).Value = "{" & a & "," & c & "," & d & "," & e & "," & f & "," & g & "}"
Cells(7, 1).Value = "{" & b & "," & c & "," & d & "," & e & "," & f & "," & g & "}"
End Sub

 

[Murat OSMA]

1-2-3-4-5-6-7

7 adet rakamın 6 lı kombinasyonunu bulan excel programını yapabilecek biri varmı :?

Bunu yapabilecek babayiğit var mı ? ...der gibi sormuşsunuz...

 

[Ömer]

Merhaba,

Linki inceleyiniz.

Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

.