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
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.
