NOVINKA: Získej 40 hodin praktických dovedností s AI – ZDARMA ke každému akreditovanému kurzu!
Avatar
Josef Nový
Člen
Avatar
Josef Nový:30.8.2015 14:57

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.