Diskuze: výpis variací bez opakování - skript do excelu

C# .NET .NET (C# a Visual Basic) výpis variací bez opakování - skript do excelu American English version English version

Avatar
Josef Nový
Člen
Avatar
Josef Nový:

Zdravím.
V první řadě se omlouvám. Ale jsem na programování úplná lama. Věc se má tak, že potřebuji vytvořit skript v basicu pro Excelovskou tabulku, který by z n-tice čísel uměl vygenerovat k-tici čísel bez opakování a vypsal by to.

Tedy příklad:
mám 1, 2, 3

a potřebuji vypsat všechny variace dvou čísel bez opakování:

1,2
2,3
3,1

Na netu jsem jen vygooglil script pro variaci, tedy n-tice čísel z n-tice prvků

Sub SestKostek()

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim n As Long

n = 1

For a = 1 To 6
For b = 1 To 6
For c = 1 To 6
For d = 1 To 6
For e = 1 To 6
For f = 1 To 6

Cells(n, 1).Value = a
Cells(n, 2).Value = b
Cells(n, 3).Value = c
Cells(n, 4).Value = d
Cells(n, 5).Value = e
Cells(n, 6).Value = f

n = n + 1

Next f
Next e
Next d
Next c
Next b
Next a

End Sub

Jde mi o to, že mám doma soustruh se sadou ozubených kol a potřebuju si sestavit tabulku pro řezání závitů. Za každou pomoc budu vděčný. Díky

 
Odpovědět 30.8.2015 14:57
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 1 zpráv z 1.